【Windows 7旗舰 R 3-1-3】 使用segmentCN函数后只有文章中的英文被分出

利用Rwordseg包对抓到的网络评论分词，但是分出来的全是英文，中文被完全忽略，求助。

程序如下：
library(tm)
library(tmcn)
library(Rwordseg)

#Data.csv是数据
Data <- read.csv("Data.csv",head=TRUE,sep=",")
Review <- unlist(Data$cont)
Rev <- vector()

#将每部电影所有观众的评价评价合并到一个变量中
times <- floor(length(Review)/2000)
for (j in 1:times) {
  for(i in 1:2000) {
    Rev[j] <- paste(Rev[j],as.character(Review[[i+(j-1)*2000+1]]))
  }
}

#分词并统计词频
review <- apply(Rev,segmentCN) ！问题在这，分词后出现的只有文字中的英文
review <- sapply(review,strsplit,"")
result <- table(unlist(reviwe))
statistics <- rev(sort(result))
words <- data.frame(word=names(statistics), freq=statistics)
words <- subset(words, nchar(as.character(words$word))>1 & words$freq>=100)  
程序一直错，还是传附件吧


Data.xlsx (99.33 MB)

2015-4-6 23:34:50 上传

Code.txt (581 Bytes)

2015-4-6 23:49:56 上传

不知为何程序乱了.....


library(tm)
library(tmcn)
library(Rwordseg)

Data <- read.csv("Data.csv",head=TRUE,sep=",")
Review <- unlist(Data$cont)
Rev <- vector()

times <- floor(length(Review)/2000)
for (j in 1:times) {
  for(i in 1:2000) {
    Rev[j] <- paste(Rev[j],as.character(Review[[i+(j-1)*2000+1]]))
  }
}

review <- apply(Rev,segmentCN)
review <- sapply(review,strsplit,"")
result <- table(unlist(reviwe))
statistics <- rev(sort(result))
words <- data.frame(word=names(statistics), freq=statistics)
words <- subset(words, nchar(as.character(words$word))>1 & words$freq>=100)  

               

BIG钊钊 发表于 2015-4-7 00:41

不知兄台可有解决的办法？？