|
# 在Windows系统下,打开所选的多个文件并统计词频
fileNames <- choose.files()
for(i in fileNames) { data <- c(data, scan(i, what="")) }
data <- gsub("[^\w-]", "", data, perl=TRUE)
wordFreq <- sort(table(tolower(data)))
wordFreq[wordFreq>length(fileNames)]
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-5-19 18:43
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社