小编ecl*_*ecl的帖子

我想创建一个图（最好使用ggplot2），在其中将时间线与时间趋势图一起可视化。

举个实际的例子，我对每年的失业率进行了汇总。我还有一个数据集，表明与劳动力市场相关的重要立法变化。因此，我想创建一个时间表，其中失业率显示在相同的 x 轴（时间）之后。

我已经生成了一些玩具数据，见下面的代码：

set.seed(2110)
year <- c(1950:2020)
unemployment <- rnorm(length(year), 0.05, 0.005)
un_emp <- data.frame(cbind(year, unemployment))


year <- c( 1957, 1961, 1975, 1976, 1983, 1985, 1995, 1999, 2011, 2018)
events <- c("Implemented unemployment benefit", 
            "Pre-school became free", 
            "Five-day workweek were introduced", 
            "Labor law reform 1976", 
            "Unemployment benefit were cut in half", 
            "Apprenticeship Act allows on-the-job training",
            "Changes in discrimination law",
            "Equal Pay for Equal Work was", 
            "9 weeks vacation were introduced",
            "Unemployment benefit were removed")

imp_event …