情节线不会着色

Question

这是我的密码

我不知道为什么情节线不着色，geom_vline()不能工作。

这是数据源的链接。

https://drive.google.com/uc?export=download&id=1i4FHyp4hn-7PShKnaBqKAGhwcXvehjM8

library(dplyr)  
library(devtools)
library(skimr)

data = read.csv('did_house.csv')
data = cbind(data['Period'],data['HouseIndexYoY'],data['North'])
skim(data, Period, HouseIndexYoY, North)


data = data %>%
  mutate(post2016 = Period >= 2016, 
         Location = North >= 1)

ggplot(data, aes(as.Date(Period), HouseIndexYoY,group = North)) +
  stat_summary(geom = 'line') +
  geom_vline(xintercept = 2016) +
  scale_x_date(date_breaks = "year" , date_labels = "%Y") +
  theme_minimal()

就像这样的情节：

​

​

但我的结果是这样的

​

​

感谢大家的阅读

Answer 1

是像这样吗？

library(lubridate)
data = data %>%
  mutate(post2016 = Period >= 2016, 
         Location = North >= 1,
         Period = lubridate::dmy(Period))


ggplot(data, aes(Period, HouseIndexYoY,group = North, color = as.factor(North))) +
  stat_summary(geom = 'line') +
  geom_vline(xintercept = dmy("01-01-2016")) +
  scale_x_date(date_breaks = "year" , date_labels = "%Y") +
  theme_minimal()