将csv转换为arules的事务

Question

我有一个来自csv数据库的子集，它有几个不同的列，我想将数据转换为事务。我已经读过this post了

library(arules)
library(arulesViz)

trans = read.transactions("data.csv", format = "single", sep = ",",
                     cols = c("EMAIL", "BRAND"))

但是，无法用建议的解决方案转换我的数据：

CATEGORY   BRAND   SKU   EMAIL         SEGMENT   SALES
shorts     gap     1564  one@mail.x    1         1
tops       gap     8974  one@mail.x    1         2
shoes      nike    3245  two@mail.x    4         3
jeans      levis   8956  two@mail.x    4         1

现在我想用arules来了解客户通常一起购买的品牌。为了使用arules，我需要转换我的数据，如下所示：

gap, gap
nike, levis

有人能帮我找出如何相应地转换我的数据吗？

Answer 1

如果我们将列EMAIL视为一种事务ID，则可以通过以下方法将data.frame转换为transactions类：

library(arules)
trans <- as(split(df[,"BRAND"], df[,"EMAIL"]), "transactions")

# To explore the rules we could do
rules <- apriori(trans)
inspect(rules)
#  lhs        rhs     support confidence lift
#1 {levis} => {nike}  0.5     1          2   
#2 {nike}  => {levis} 0.5     1          2