Chapter 43 Next Ten Most Active Characters

Here the next 10 active characters are being displayed. Their ranking is from the 11th position to the 20th position.

ggplot(TopCharacters[10:20,], aes(x = reorder(name, n), 
                     y = n)) +
  geom_bar(stat='identity',colour="white", fill = fillColor2) +
  geom_text(aes(x = name, y = 1, label = paste0("(",n,")",sep="")),
            hjust=0, vjust=.5, size = 4, colour = 'black',
            fontface = 'bold') +
  labs(x = 'name', y = 'Count Of Sentences', title = 'Next Ten Most Active Characters') +
  coord_flip() + 
  theme_bw()