could not get top_n function to work on my data and the following does not seem to pull the top 5 rows as suggested in help
library(dplyr)
data("iris")
df <- iris %>%
  filter(Petal.Width>1) %>% 
  group_by(Petal.Width, Species)%>% 
  summarize(n = n()) %>% 
  arrange(n) %>% 
  top_n(5)
dim(df)
