US counties

connectedness |> 
  ggplot(mapping = aes(x = population)) +
    geom_histogram(fill = "black") +
    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"
  )

`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

Warning: Removed 106 rows containing non-finite outside the scale range
(`stat_bin()`).