Word Count in R

word_count.R

elements <- c('the','story','was','the','point','of','the',
              'story', 'a', 'quick','brown','fox','the','a',
              'jumped','fence','over')
words <- sample(elements, 20000, replace = TRUE)

count <- function(word) {
  sum(words == word)
}

# unique
df <- data.frame(word = unique(words))
# count
df$count <- sapply(df$word, count)
# sort
sorted_words <- df[order(df$count, decreasing = TRUE),]
# show
top20 <- head(sorted_words, 20)

barplot(height = top20$count, names.arg = top20$word)