各地域から1つの郡を選ぶ

これまでに、各郡で徒歩通勤する人の割合を示す walk 列を使って、新しい列を追加し、各郡における徒歩通勤者の合計人数を求めました。

ここでは、徒歩通勤者の割合が最も高い郡を、各地域内で見つけたいと考えています。

counties_selected <- counties %>%
  select(region, state, county, metro, population, walk)

各地域で、徒歩通勤する市民の割合が最も高い郡を見つけましょう。