Skip to content

Instantly share code, notes, and snippets.

@davidpeach
Created September 13, 2023 19:47
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Embed
What would you like to do?
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)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment