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")) #根據支持度對求得的關聯規則子集排序並察看