吴喜之R软件教程——关联规则分析.pptxVIP

吴喜之;超市例子 ;library(arules) data(Groceries) summary(Groceries) itemFrequencyPlot(Groceries, support = 0.05, cex.names = 0.8) #图3.1;术语;;library(arules) data(Groceries) summary(Groceries) itemFrequencyPlot(Groceries, support = 0.05, cex.names = 0.8) #图3.1 fsets - eclat(Groceries, parameter = list(support = 0.05,maxlen=10))#求频繁项集 inspect(fsets[1:10]) inspect(sort(fsets, by = support)[1:10]) rules = apriori(Groceries, parameter = list(support = 0.01,confidence = 0.01))#求规则 x=subset(rules, subset = rhs %in% whole milk lift 1.2) inspect(sort(x, by = support)[1:5]) #第三章表 inspect(sort(x, by = confidence)[1:5])#第三章表 #inspect(sort(x, by = lift)[1:5]);x=subset(rules, subset = lhs %in% whole milk lift 1.2) inspect(sort(x, by = support)[1:5]) inspect(sort(x, by = confidence)[1:5]) #inspect(sort(x, by = lift)[1:5]) x=subset(rules, subset = lhs %ain% whole milk lift 1.2) inspect(sort(x, by = support)[1:5]) inspect(sort(x, by = confidence)[1:5]) #inspect(sort(x, by = lift)[1:5]) x=subset(rules, subset = rhs %ain% whole milk lift 1.2) inspect(sort(x, by = support)[1:5]) inspect(sort(x, by = confidence)[1:5]) #inspect(sort(x, by = lift)[1:5]) x=subset(rules, subset = lhs %pin% whole milk lift 1.2) inspect(sort(x, by = support)[1:5]) inspect(sort(x, by = confidence)[1:5]) #inspect(sort(x, by = lift)[1:5]) x=subset(rules, subset = rhs %pin% whole milk lift 1.2) inspect(sort(x, by = support)[1:5]) inspect(sort(x, by = confidence)[1:5]) #inspect(sort(x, by = lift)[1:5]);library(arules);w=read.table(f:/xzwu/adbook/shopping.txt,header=TRUE,sep=\t);a=w[1:10];dim(a)[1] 786 10 names(a) [1] Ready.made Frozen.foods Alcohol Fresh.Vegetables Milk  [6] Bakery.goods Fresh.meat Toiletries Snacks Tinned.goods a=as.matrix(a); trans2 - as(a, transactions); summary(trans2)#数据概况;#图示数据 itemFrequencyPlot(trans2, support = 0.1, cex.names = 0.8);fsets - eclat(trans2, parameter = list(support = 0.05,maxlen=10))#求频繁项集 rules =