开发笔记:R_Studio(关联)简单对数据进行关联分析

#导入arules包
install.packages("arules")
library ( arules )
setwd(‘D:\\data‘)
Gary<- read.transactions("menu_orders.txt", format = "basket", sep=",")
#设置频繁项集元素个数大于等于2
GarySize<-size(Gary)
Gary_u<-Gary[GarySize>1]
#查看部分规则
inspect(Gary_u)
#支持度0.4,置信度0.5,输出与a相关的规则
Gary_u=apriori(Gary_u,parameter=list(support=0.4,cOnfidence=0.5))
#Gary_u=apriori(Gary_u,parameter=list(support=0.4,cOnfidence=0.5),appearance=list(rhs=c("a"),default="lhs"))
#输出与a相关的规则
Gary_u=subset(Gary_u,items%pin%c("a")) #求所需要的关联规则子集
#查看部分规则
inspect(Gary_u)

#导入arules包
install.packages("arules")
library ( arules )
setwd(‘D:\\data‘)
Gary<- read.transactions("menu_orders.txt", format = "basket", sep=",")
#设置频繁项集元素个数大于等于2
GarySize<-size(Gary)
Gary_u<-Gary[GarySize>1]
#查看部分规则
inspect(Gary_u)
#支持度0.4,置信度0.5,过滤掉lhs为空的规则
Gary_u=apriori(Gary_u,parameter=list(support=0.4,cOnfidence=0.5,minlen=2))
#Gary_u=apriori(Gary_u,parameter=list(support=0.4,cOnfidence=0.5),appearance=list(rhs=c("a"),default="lhs"))
#查看部分规则
inspect(Gary_u)

#导入arules包
install.packages("arules")
library ( arules )
setwd(‘D:\\data‘)
Gary<- read.transactions("menu_orders.txt", format = "basket", sep=",")
#设置频繁项集元素个数大于等于2
GarySize<-size(Gary)
Gary_u<-Gary[GarySize>1]
#查看部分规则
inspect(Gary_u)
#支持度0.4,置信度0.5
Gary_u=apriori(Gary_u,parameter=list(support=0.4,cOnfidence=0.5))
#Gary_u=apriori(Gary_u,parameter=list(support=0.4,cOnfidence=0.5),appearance=list(rhs=c("a"),default="lhs"))
#过滤掉提升度小于1的规则。
Gary_u<- subset(Gary_u,lift > 1)
#查看部分规则
inspect(Gary_u)