R语言 关联规则

#install.packages("arules")

 

library(Matrix)

library(arules) #加载arules程序包

guanlian<-read.table(file="relation.txt",header=TRUE)   #从文本读数据到数据框

 

for (i in 1:length(guanlian))

{

 guanlian[,i]<-as.factor(guanlian[,i])

}

str(guanlian)

 

frequentsets=eclat(guanlian,parameter=list(support=0.01,maxlen=10))#求频繁项集

inspect(frequentsets[1:100]) #察看求得的频繁项集

 

inspect(sort(frequentsets,by="support")[1:10])#根据支持度对求得的频繁项集排序并察看（等价于inspect(sort(frequentsets)[1:10]）

rules=apriori(guanlian,parameter=list(support=0.01,confidence=0.01))#求关联规则

inspect(sort(rules,by="support")[1:10])

summary(rules) #察看求得的关联规则之摘要

x=subset(rules,subset=rhs%in%"assess=好评"&lift>=1.18)#求所需要的关联规则子集

inspect(sort(x,by="support")) #根据支持度对求得的关联规则子集排序并察看

 

y=subset(rules,subset=rhs%in%"assess=差评"&lift>=2.4)#求所需要的关联规则子集

inspect(sort(y,by="support")) #根据支持度对求得的关联规则子集排序并察看

 

z=subset(rules,subset=rhs%in%"assess=中评"&lift>=1.8)#求所需要的关联规则子集

inspect(sort(z,by="support")) #根据支持度对求得的关联规则子集排序并察看