R语言Apriori算法
我们需要安装arules and arulesViz包。
项目要求:
生成频繁项目集满足下面条件:
– The minimum support threshold as 0.02
– The minimum length of the itemsets as 1
– The maximum length of the itemsets as 10
生成的关联规则满足下面条件:
– The minimum support threshold as 0.001
– The minimum confidence threshold as 0.6
Project Start
# 下载并加载相关的包(可能需要梯子)
install.packages('arules')
install.packages('arulesViz')
library('arules')
library('arulesViz')
# 读取并展示“Groceries”包
data(Groceries)
Groceries
summary(Groceries)
class(Groceries)
可以看到这个“Groceries”包一共有9835行和169列。
# 展示前20个grocery labels
Groceries@itemInfo[1:20,]
# 显示第10至20的transactions
apply(Groceries@data[,10:20], 2,
function(r) paste(Groceries@itemInfo[