COVID-19s Effect on City/Suburban Migration

line_graph1<-ggplot(sp,  
                  aes(x=Date, y=`Median Sale Price`)) +
                   geom_line(color= "blue", size=1) +
  labs(title="Median Sale Price for CT Homes Year-Over-Year Change",  
              y= "Median Sale Price") +
  theme_bw(base_size = 12)+ #grid line theme
   theme(plot.title = element_text(size = 12, #title formatting
                                  face = "bold"))+
  scale_x_date(labels=date_format("%b %Y"), breaks =date_breaks("2 months"))+  
  theme(axis.text.x = element_text(angle = 45, 
                                   vjust = 0.5))+
  scale_y_continuous(labels=scales::dollar_format(), breaks = seq(0,350000, by=25000))
line_graph1             

line_graph2<-ggplot(sp,  
                  aes(x=Date, y=hs$`Homes Sold Above List Price`)) +
                   geom_line(color= "blue", size=1) +
  labs(title="Homes Sold Above List Price in CT Year-Over-Year Change", 
       y= "Homes Sold Above List Price") +
  theme_bw(base_size = 12)+
   theme(plot.title = element_text(size = 12, #title formatting
                                  face = "bold"))+
  scale_x_date(labels=date_format("%b %Y"), breaks =date_breaks("2 months"))+  
  scale_y_continuous(labels = scales::percent)+
  theme(axis.text.x = element_text(angle = 45, 
                                   vjust = 0.5))
line_graph2 

line_graph3<-ggplot(sp,  
                  aes(x=Date, y=nh$`Number of Homes for Sale`)) +
                   geom_line(color= "blue", size=1) +
  labs(title="Number of Homes for Sale in CT Year-Over-Year Change",
       y= "Number of Homes for Sale") +
  theme_bw(base_size = 12)+ 
   theme(plot.title = element_text(size = 12, #title formatting
                                  face = "bold"))+
  scale_x_date(labels=date_format("%b %Y"), breaks =date_breaks("2 months"))+  
  theme(axis.text.x = element_text(angle = 45, 
                                   vjust = 0.5))+
  scale_y_continuous(labels = scales::comma, breaks = seq(0,25000, by=5000))

line_graph3