在arules中如何将稀疏数据框转换为事务？

Question

您好我有定购的杂货的稀疏数据帧像这样

library(arules) 
a_df <- data.frame(
apple = as.factor(c(1,0,0,0,1,1)), 
banana = as.factor(c(0,1,1,0,0,0)), 
peeler = as.factor(c(1,0,0,0,1,1))) 

a_tran = as(a_df, "transactions") 
inspect(a_tran) 
rules <- apriori(a_tran, parameter=list(minlen=2, supp=0.5,conf = 0.5)) 
inspect(rules) 

但是结果包括0（该项目不排序）如下： LHS RHS支持的信心提升计数 {香蕉= 0} => {苹果= 1} 0.5 0.6 1.2 3

如何可以忽略在数据帧的0，或变换数据帧到像

order 1: apple, peeler 
order 2: banana 

感谢。

Answer 1

这里有几个选项

library(magrittr) 
idx <- which(a_df==1, arr.ind = T) 
(lst <- split(names(a_df)[idx[,2]], idx[,1])) 
# $`1` 
# [1] "apple" "peeler" 
# 
# $`2` 
# [1] "banana" 
# 
# $`3` 
# [1] "banana" 
# 
# $`5` 
# [1] "apple" "peeler" 
# 
# $`6` 
# [1] "apple" "peeler" 

rules <- function(x, app=NULL) { 
    x %>% as("transactions") %>% apriori(parameter=list(minlen=2, supp=0.5,conf = 0.5), appearance=app) 
} 
# use a list without "0"s: 
lst %>% rules %>% inspect 
# filter "0"s afterwards: 
a_df %>% rules %>% subset(!lhs%pin%"0" & !rhs%pin%"0") %>% inspect 
# filter "0"s in apriori: 
a_df %>% rules(list(none = paste(names(a_df), "0", sep="="), default="both")) %>% inspect 

Answer 2

看起来像你的数据是一个完整的0-1矩阵。这里是最快的方式：

trans <- as(a_df == "1", "transactions") 
inspect(trans) 

    items   
[1] {apple,peeler} 
[2] {banana}  
[3] {banana}  
[4] {}    
[5] {apple,peeler} 
[6] {apple,peeler} 

现在你可以挖掘规则。