R中的市场篮子分析答案

【问题标题】：Market Basket Analysis in RR中的市场篮子分析
【发布时间】：2014-01-30 09:51:07
【问题描述】：

以下是我的数据集中的一些观察结果

structure(list(p1 = c(1L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 1L, 0L), 
    p2 = c(1L, 0L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 0L), p3 = c(1L, 
    1L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 0L), p4 = c(1L, 1L, 1L, 1L, 
    1L, 0L, 1L, 0L, 0L, 0L)), .Names = c("p1", "p2", "p3", "p4"
), row.names = c(NA, -10L), class = "data.frame")

列名称描述了项目中该项目行前面的 1 所需的技能类型。我想创建一个共同的技能篮，这些技能一起出现以实现最大数量的项目。有没有办法对 R 中的给定数据进行市场篮子分析？或任何解决上述问题的方法。

【问题讨论】：

请向我们展示您尝试过的内容以及您想要的输出。

标签： r market-basket-analysis

【解决方案1】：

查看arules 包：

library(arules)
trans <-  as(as.matrix(df), "transactions")
rules <- apriori(trans, parameter = list(supp = 0.01, conf = 0.1, target = "rules", minlen=2))
inspect(sort(rules[1:5], by="confidence"))
#   lhs     rhs  support confidence      lift
# 1 {p1} => {p2}     0.2  0.5000000 1.0000000
# 2 {p1} => {p3}     0.2  0.5000000 0.7142857
# 3 {p2} => {p1}     0.2  0.4000000 1.0000000
# 4 {p1} => {p4}     0.1  0.2500000 0.4166667
# 5 {p4} => {p1}     0.1  0.1666667 0.4166667

【讨论】：