Apriori算法的R语言实现

最新推荐文章于 2024-05-20 20:31:10 发布

chisha

最新推荐文章于 2024-05-20 20:31:10 发布

阅读量7.4k

点赞数 1

分类专栏： R语言文章标签： r语言机器学习

本文链接：https://blog.csdn.net/chisha/article/details/48969523

版权

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