connectedness |>
drop_na() |>
ggplot(aes(x = population, y = connectedness)) +
geom_point() +
geom_smooth(method = "lm") +
scale_x_log10(labels = scales::comma_format()) +
labs( title = "US County Populations versus Economic Connectedness",
subtitle = "Population size does not matter to EC",
y = "Economic Connectedness",
x = "Population"
)`geom_smooth()` using formula = 'y ~ x'