R实战：【统计分析】词频统计

R实战系列专栏

本文代码来自《R语言编程艺术》

本文代码和使用的文本文件百度云下载

本文使用的文本文件为《雾都孤儿》英文版，其中文本文件中经过处理只有英文单词，大写也已经转换成小写。

源代码：

setwd("D:/R/")
getwd()
txt<-scan("OliverTwist.txt","") #read all words in file to txt
wl<-list()
for(i in 1:length(txt))
{
	wrd<-txt[i]
	wl[[wrd]]<-c(wl[[wrd]],i) # for every word create a list with location list
}
nms<-names(wl)
sn<-sort(nms)
#wl[sn] 
freqs<-sapply(wl,length) #for every element use length() ,and result is c([[i]] length)
wlOrder<-wl[order(freqs)]
index<-(length(wlOrder)-10):length(wlOrder)
top10<-wlOrder[index]
sapply(top10,length)
barplot(sapply(top10,length))