сюжетная линия не будет окрашена

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