1)数据准备
library(arules)
a<-matrix(0,7,4,dimnames=list(c("basket1","basket2","basket3","basket4",
+ "basket5","basket6","basket7"),c("item1","item2","item3","item4")))
> a[1,]<-c(1,0,1,0)
> a[2,]<-c(0,0,1,1)
> a[3,]<-c(1,1,1,1)
> a[4,]<-c(1,1,0,0)
> a[5,]<-c(0,0,1,0)
> a[6,]<-c(1,0,1,1)
> a[7,]<-c(0,1,1,1)
a.class<-as(a,"transactions")
apriori函数进行关联分析
rules<-apriori(a.class,parameter=list(supp=0.2,conf=0.6,target="rules"))
inspect(rules)
lhs rhs support confidence lift
1 {} => {item3} 0.8571429 0.8571429 1.0000000
2 {item2} => {item1} 0.2857143 0.6666667 1.1666667
3 {item2} => {item4} 0.2857143 0.6666667 1.1666667
4 {item2} => {item3} 0.2857143 0.6666667 0.7777778
5 {item1} => {item3} 0.4285714 0.7500000 0.8750000
6 {item4} => {item3} 0.5714286 1.0000000 1.1666667
7 {item3} => {item4} 0.5714286 0.6666667 1.1666667
8 {item2,item4} => {item3} 0.2857143 1.0000000 1.1666667
9 {item2,item3} => {item4} 0.2857143 1.0000000 1.7500000
10 {item