I. Vector df stored with words:
 > df <- c("AAA","BB","DD","AA","AAA","CCC","PP","PP","CC","LL","OOO","LL","CC","AAA")
 > df
 # [1] "AAA" "BB"  "DD"  "AA"  "AAA" "CCC" "PP"  "PP"  "CC"  "LL"  "OOO" "LL" 
 # [13] "CC"  "AAA"
II. Table showing frequency of each word:
 > table(df)
 #   df
 #   AA AAA  BB  CC CCC  DD  LL OOO  PP 
 #    1   3   1   2   1   1   2   1   2 
III. Frequency of each word stored in result data frame
 > result <- as.data.frame(table(df))
 > result
 #    df Freq
 # 1  AA    1
 # 2 AAA    3
 # 3  BB    1
 # 4  CC    2
 # 5 CCC    1
 # 6  DD    1
 # 7  LL    2
 # 8 OOO    1
 # 9  PP    2
IV. Ordering words by Decreasing Frequency:
 > result[order(result$Freq,decreasing=T),]
 #    df Freq
 # 2 AAA    3
 # 4  CC    2
 # 7  LL    2
 # 9  PP    2
 # 1  AA    1
 # 3  BB    1
 # 5 CCC    1
 # 6  DD    1 
 # 8 OOO    1
V. Frequency by Specifying Words:
   > result[result$df=="AAA",]
   #    df Freq
   # 2 AAA    3
   > result[result$df=="LL",]
   #    df Freq
   # 1  LL    2
   > result[result$df=="DD",]
   #    df Freq
   # 6  DD    1
VI. Words by Specifying Frequency:
  > unique(df[which(result$Freq == 1)])
  # [1] "AAA" "DD"  "CCC" "PP" 
  > unique(df[which(result$Freq == 2)])
  # [1] "AA" "PP" "CC"
  > unique(df[which(result$Freq == 3)])
  # [1] "BB"
  > unique(df[which(result$Freq == 4)])
  # character(0)