|> ggplot(aes(x = pop_state, y = avg_ec)) + geom_point() +