Change In Homeless Population Over Time

Load data

library(tidyverse)
library(readxl)
County_Counts <- read_excel("CountyCounts.xlsx")

Create subset with counties of interest

County_Comparison <- County_Counts%>%
  filter(`CoC Number`=="WA-500"| `CoC Number`== "CA-501"| `CoC Number`== "CA-600"| `CoC Number` == "DC-500"| `CoC Number`== "NY-600")

County_Comparison$`Overall Homeless, 2018` <-as.numeric(County_Comparison$`Overall Homeless, 2018`) 

Line graph

ggplot(data = County_Comparison, aes(x = `Year`, y = `Overall Homeless, 2018`, group = `CoC Name`, color = `CoC Name`))+
  geom_line()+
  geom_point()+
  scale_y_log10()+
  ylab("Homeless Population")