Geocode Data

Where did you sleep on the night of the PIT?

This data was collected in the supplemental PIT Survey

d_sum <- read_csv("ggmap_d_sum.csv")

roanoke_bw_map <- get_googlemap(center = c(-79.93996, 37.269), zoom = 14,
                        color = "bw",
                        style = c(feature = "all", element = "labels", visibility = "off"))

m1 <- ggmap(roanoke_bw_map)+
  geom_point(aes(x = lon, y = lat, color = Count ),
             size = 5, alpha = 0.5,
             data = d_sum) +
  scale_color_gradientn(limits=c(0,50), breaks=seq(0, 50, by=10), colors = c("blue", "purple", "red"))

m2 <- m1 +
  geom_text(data = d_sum, aes(lon, lat, label = name),
            size = 3, colour = "black")+
  theme(axis.ticks.x = element_blank(),
        axis.text.x = element_blank(),
        axis.ticks.y =element_blank(),
        axis.text.y = element_blank(),
        axis.title.x = element_blank(),
        axis.title.y = element_blank())+
  labs(title = "Roanoke City Point-In-Time Count")

m3 <- ggplotly(m2)

m3