如何在时间序列的中途更改ggplot2中的线属性？

取以下两个时间序列的简单图：economics{ggplot2} dataset

require(dplyr)
require(ggplot2)
require(lubridate)
require(tidyr)

economics %>%
  gather(indicator, percentage, c(4:5), -c(1:3, 6)) %>%
  mutate(Y2K = year(date) >= 2000) %>%
  group_by(indicator, Y2K) %>%
  ggplot(aes(date, percentage, group = indicator, colour = indicator)) + geom_line(size=1)

我想改变linetype从“实线”到“虚线”（也可能是线size）对于 21 世纪的所有点，即对于那些观测值Y2K equals TRUE.

I did a group_by(indicator, Y2K)但里面ggplot我似乎无法使用命令group =在多个级别上，因此线属性仅不同indicator now.

Question：如何实现这种分段线外观？

UPDATE：我首选的解决方案是对@sahoang 的解决方案稍作调整：

economics %>%
        gather(indicator, percentage, c(4:5), -c(1:3, 6)) %>%
        ggplot(aes(date, percentage, colour = indicator)) + 
        geom_line(size=1, aes(linetype = year(date) >= 2000)) +
        scale_linetype(guide = F)

这消除了group_by正如@Roland 所评论的，以及filter步骤确保时间序列在 Y2K 点连接（如果数据是基于年份的，否则可能会出现视觉不连续性）。

比@Roland的建议更容易：

economics %>%
    gather(indicator, percentage, c(4:5), -c(1:3, 6)) %>%
    mutate(Y2K = year(date) >= 2000) %>%
    group_by(indicator, Y2K) -> econ

ggplot(econ, aes(date, percentage, group = indicator, colour = indicator)) + 
  geom_line(data = filter(econ, !Y2K), size=1, linetype = "solid") + 
  geom_line(data = filter(econ, Y2K), size=1, linetype = "dashed")

附：改变绘图宽度以消除尖峰伪影（红线）。