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)