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