电动牙刷电商评论分类方法（R语言）

最新推荐文章于 2024-11-14 23:59:02 发布

sl11u19

最新推荐文章于 2024-11-14 23:59:02 发布

阅读量138

点赞数 1

分类专栏：电商爬虫数据分析文章标签： r语言爬虫

本文链接：https://blog.csdn.net/sl11u19/article/details/137949980

版权

电商爬虫数据分析专栏收录该内容

5 篇文章 0 订阅

订阅专栏

该篇文章通过数据分析电动牙刷的用户评论，关注了外观、清洁效果、便携性、噪音振动、智能功能以及操控难易度等方面。结果显示电池续航和噪音振动方面的五星好评比例相对较低。作者使用R语言中的`CrossTable`函数对评价星级和各项特性进行了交叉表分析。

摘要由CSDN通过智能技术生成

电动牙刷评论主要涉及外观、清洁力度、便携性、噪音振动、智能、操控难度等，分类方法详见下方R代码。结合爬虫得到的评价星级，可了解各类评论的占比差异，如下图可知电池续航、噪音振动的五星好评比例低于其它角度（83%和78%）。

library(tidyr)
library(gmodels)

data<-read.csv("电动牙刷评论20230325.csv")
data<-data[!is.na(data$评价内容),]
data<-data[!duplicated(data$评价内容),]  #去重
data1<-separate_rows(data,评价内容,sep = "\n") #评论文本分段


data1$外观<-grepl('颜色|外观|外形|外表|美观|美丽|简洁|
               大方|体积|颜值|漂亮|好看|工艺',data1$评价内容)
CrossTable(data1$评价星级,data1$外观,prop.r = F,prop.t=F,
           prop.chisq=F,format = "SPSS",chisq = T)

data1$清洁<-grepl('清洁|干净',data1$评价内容)
CrossTable(data1$评价星级,data1$清洁,prop.r = F,prop.t=F,
           prop.chisq=F,format = "SPSS",chisq = T)

data1$续航<-grepl('续航|电池|充电|电力|没电',data1$评价内容)
CrossTable(data1$评价星级,data1$续航,prop.r = F,prop.t=F,
           prop.chisq=F,format = "SPSS")

data1$携带<-grepl('便携|携带|外出|出差',data1$评价内容)
CrossTable(data1$评价星级,data1$携带,prop.r = F,prop.t=F,
           prop.chisq=F,format = "SPSS")

data1$噪音振动<-grepl('噪音|振动|震动|音量|声音|震',data1$评价内容)
CrossTable(data1$评价星级,data1$噪音振动,prop.r = F,prop.t=F,
           prop.chisq=F,format = "SPSS")

data1$智能<-grepl('压感|智能|得分|APP|App|app|算法|数据|分数',data1$评价内容)
CrossTable(data1$评价星级,data1$智能,prop.r = F,prop.t=F,
           prop.chisq=F,format = "SPSS")

data1$操控<-grepl('操控|控制|掌握|把握',data1$评价内容)
CrossTable(data1$评价星级,data1$操控,prop.r = F,prop.t=F,
           prop.chisq=F,format = "SPSS",chisq = T)

#其它内容
data1$无线充电<-grepl('无线|接触式',data1$评价内容)
data1$彩屏<-grepl('彩屏|屏幕|显示屏',data1$评价内容)
data1$消毒<-grepl('消毒|杀菌',data1$评价内容)
data1$防水<-grepl('防水|漏水|渗水',data1$评价内容)