library(tidyverse)
library(accesstocare)
library(tidyverse)
library(accesstocare)

County population vs hospitals

us_counties %>% 
  ggplot() +
  geom_point(aes(population, hospitals)) +
  theme_minimal() +
  labs(x = "Counties", y = "Hospitals")
summary(us_atc_model)
us_counties %>% 
  count(pred_status) %>% 
  ggplot(aes(pred_status, n)) +
  geom_col() +
  geom_text(aes(label = n, y = n + 100)) +
  coord_flip() +
  theme_minimal() +
  labs(x = "Counties", y = "Prediction Result")


sol-eng/accesstocare documentation built on Dec. 23, 2021, 3:32 a.m.