connectedness |> drop_na() |> ggplot(mapping = aes(x = population)) + geom_histogram(fill = "black", bins = 100) +
scale_x_log10(labels = scales::comma_format()) +
labs(title = "US County Populations in 2018",
subtitle = "Populations are highly skewed",
x = "Population", y = "Number of Counties",
caption = "Opportunity Insights")US Counties
library(tidyverse)