用ggplot2绘制一个时间轴

I have data like

我有数据

data = as.data.frame(  rbind(   c("1492", "Columbus sailed the ocean blue"),
                                c("1976", "Americans listened to Styx"),
                                c("2008", "financial meltdown. great.")
                                ))
data = as.data.frame(