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)