Я добился этого с помощью следующих строк кода
bins = seq(0,max(df_s$wordCount)+input$bins,by = 5)
df_s <-transform(df_s,group = cut(df_s$wordCount,bins))
df <- aggregate(df_s$Freq, by=list(Category=df_s$group), FUN=sum)
@ Ронак, спасибо за ваш совет.