Utilizar juntos summarize, slice_max y count

En este capítulo, has aprendido a utilizar seis verbos de dplyr relacionados con la agregación: count(), group_by(), summarize(), ungroup(), slice_max() y slice_min(). En este ejercicio, los combinarás para responder a una pregunta:

¿En cuántos estados vive más gente en áreas metropolitanas que en áreas no metropolitanas?

Recuerda que la columna metro tiene uno de los dos valores "Metro" (para zonas urbanas de alta densidad) o "Nonmetro" (para zonas suburbanas y rurales).

counties_selected <- counties %>%

  select(state, metro, population)