Counties

connectedness |>
  drop_na() |> 
  ggplot(aes(x = population, y = connectedness))+
  geom_point()+
  scale_x_log10(labels = scales::comma_format())+
  geom_smooth(method="lm")+
  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'