function for most popular words in R

What function do I need to use to rank first four most popular words in list in R program?

For example,

c("apple", "banana", "apple", "banana", "banana", "desk", "pen", "pen", "pen", "pen")

to make it like

"pen"  "banana"  "apple"  "desk"

Thank you

Answer