ui <- fluidPage(plotOutput("wordsPlot"))

server <- function(input, output) {
  output$wordsPlot <- renderPlot({
    reactiveCount() %>%
      head(n=10) %>%
      ggplot() + aes(x=words, y=n) + geom_bar(stat="identity")
  })
}

shinyApp(ui = ui, server = server)