Homeless Rates Across Counties

Load data

library(readxl)
library(tidyverse)
Key_Counties <- read_excel("Key Counties.xlsx")

Create variable for homeless per population and homeless per square mile

Key_Counties <- Key_Counties%>%
  mutate(pop_ratio = Homeless/Pop)%>%
  mutate(geo_ratio = Homeless/Sq_miles)

Homeless Population

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

Homeless Population per population

ggplot(data = Key_Counties, aes(x = `Year`, y = `pop_ratio`, group = `CoC Name`, color = `CoC Name`))+
  geom_line()+
  geom_point()+
  ylab("Homeless/Population")

Homeless population per square mile

ggplot(data = Key_Counties, aes(x = `Year`, y = `geo_ratio`, group = `CoC Name`, color = `CoC Name`))+
  geom_line()+
  geom_point()+
  ylab("Homeless/Square Mile")+
  scale_y_log10()