R语言基于京东评论数据情感文本挖掘

---

title: “R语言基于京东评论数据情感文本挖掘”
date: “2022/5/20”

读取数据

数据读取

Data <- read.csv("./huizong.csv", header = TRUE, encoding = 'utf-8')
colnames(Data) <- c("x1", "x2", "x3", "x4", "x5", "x6", "x7", "x8", "x9")
index <- which(Data$x5 == "美的")
meidi_jd <- Data[index, 6]
# write.table(meidi_jd, "./meidi_jd.txt", row.names = FALSE,
#             fileEncoding ='utf-8',col.names = F,quote = F)

写出我们需要的数据备用

Data <- readLines("meidi_jd.txt", encoding = "UTF-8")
length(Data)
Data1 <- unique(Data)
length(Data1)

将我们需要的数据读入去重并查看长度

将文本按情感类型分类，并读取

 将由ROSTCM6处理后的数据导入使用ROSTCM6来完成情感分析是因为该