plot 線不會着色

Question

這是我的代碼

我不知道為什么 plot 線不會着色並且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()

預計會像這樣的 plot：

但是我的結果 plot 像這樣

感謝任何人閱讀

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()