用R进行电动牙刷电商爬虫数据分析

以下是产品参数爬虫后的分析方法，需要将爬虫结果拆分成各个参数字段。

电动牙刷的评论分析方法可参考：电动牙刷电商评论分类方法（R语言）-CSDN博客

原始爬虫结果预览如下：

data$标题<-gsub('[\n\r]', '', data$标题)
data$标题<-gsub(' ', '', data$标题,fixed = T)

data$商品介绍<-gsub(' ', '', data$商品介绍,fixed = T)
data$文本<-gsub(' ', '', data$文本,fixed = T)
data$文本1<-gsub(' ', '', data$文本1,fixed = T)
data$文本2<-gsub(' ', '', data$文本2,fixed = T)
data$文本3<-gsub(' ', '', data$文本3,fixed = T)
data$字段2<-gsub(' ', '', data$字段2,fixed = T)
data$字段合并<-paste(data$文本,data$文本1,data$文本2,data$文本3,data$字段2,sep="\n")

#商品介绍
as.vector(data[1,5])
data$品牌<-str_extract_all(data$商品介绍,"(?<=品牌：).+(?=\\n)")
data$商品毛重<-str_extract_all(data$商品介绍,"(?<=商品毛重：).+(?=\\r)")
data$商品产地<-str_extract_all(data$商品介绍,"(?<=商品产地：).+(?=\\r)")
data$是否有便携盒<-str_extract_all(data$商品介绍,"(?<=是否有便携盒：).+(?=\\n)")
data$类型<-str_extract_all(data$商品介绍,"(?<=类型：).+(?=\\r)")
data$包装形式<-str_extract_all(data$商品介绍,"(?<=包装形式：).+(?=\\n)")
data$防水等级<-str_extract_all(data$商品介绍,"(?<=防水等级：).+(?=\\r)")
data$充电方式<-str_extract_all(data$商品介绍,"(?<=充电方式：).+(?=\\n)")
data$频率<-str_extract_all(data$商品介绍,"(?<=频率：).+(?=\\r)")
data$适用人群<-str_extract_all(data$商品介绍,"(?<=适用人群：).+(?=\\r)")
data$清洁类型<-str_extract_all(data$商品介绍,"(?<=清洁类型：).+(?=\\r)")
data$刷毛材质<-str_extract_all(data$商品介绍,"(?<=刷毛材质：).+(?=\\r)")
data$续航时间<-str_extract_all(data$商品介绍,"(?<=续航时间：).+(?=\\n)")
data$特征特质<-str_extract_all(data$商品介绍,"(?<=特征特质：).+(?=\\r)")
data$强度档数<-str_extract_all(data$商品介绍,"(?<=强度档数：).+(?=\\r)")

#字段合并
data$刷头形状<-str_extract_all(data$字段合并,"(?<=刷头形状).+(?=\\r)")
data$充电时间<-str_extract_all(data$字段合并,"(?<=充电时间).+(?=\\n)")
data$供电方式<-str_extract_all(data$字段合并,"(?<=供电方式).+(?=\\n)")
data$产品尺寸<-str_extract_all(data$字段合并,"(?<=产品尺寸).+(?=\\r)")
data$产品净重<-str_extract_all(data$字段合并,"(?<=产品净重).+(?=\\r)")
data$上市时间<-str_extract_all(data$字段合并,"(?<=\r\n上市时间).+(?=\\n)")
data$包装清单<-gsub(' ', '', data$字段2,fixed = T)

TBC