library(tidyverse) library(accesstocare)
library(tidyverse) library(accesstocare)
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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.