library("tidyverse")
data  <- read.csv("props.csv")
data %>%
  filter(Semi_Detached_Average_Price < 200000) %>%
  filter(Semi_Detached_Average_Price > 180000) %>%
  filter(
    Region_Name == "Warwickshire" |
      Region_Name == "Staffordshire" |
      Region_Name == "London"
  ) %>%
  filter(Date > "2010-01-01") %>%
  ggplot(aes(
    Date,
    Semi_Detached_Average_Price,
    color = Region_Name
  )) +
  geom_point(size = 2) +
  geom_line(size = 1)