Head and Tail

# Ten Most frequent county names
tally(~name, data=counties) %>% sort() %>% tail(10)
# Ten states with smallest number of counties
tally(~state, data=counties) %>% sort() %>% head(10)