connectedness |>
ggplot(mapping = aes(x = population)) +
geom_histogram(fill = "grey", binwidth = 0.05, 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")Warning: Removed 106 rows containing non-finite outside the scale range
(`stat_bin()`).