修剪杂货数据集中的apriori规则时出错

时间:2017-11-14 07:18:44

标签: r apriori arules

我正在尝试修剪由apriori算法为杂货数据集创建的规则,但是会出现一个错误

使用R 3.4.2和RStudio(版本1.1.383)

导入的库

library(arules)
data("Groceries")

我已经创建了规则

rules <- apriori(Groceries, parameter = list(supp =0.001,
                                         conf = 0.5,
                                         target = "rules"))

开始修剪冗余规则

rules.sorted = sort(rules, by="lift")
subset.matrix <- is.subset(rules.sorted, rules.sorted)

在将矩阵的下三角形转换为NA时,我得到了一个警告

subset.matrix[lower.tri(subset.matrix, diag=T)] = NA

警告讯息:

In `[<-`(`*tmp*`, as.vector(i), value = NA) :
x[.] <- val: x is “ngTMatrix”, val not in {TRUE, FALSE} is coerced; NA |--> TRUE

然后尝试识别冗余规则

redundant <- colSums(subset.matrix, na.rm=T) >= 1

最后修剪规则

rules.pruned = rules.sorted[!redundant]

但在检查时却没有显示任何内容

inspect(rules.pruned)

甚至是rules.pruned的摘要,显示“零”0规则

summary(rules.pruned)

我猜错误主要是由于矩阵下三角转换为NA值时出现警告

如何克服警告?

1 个答案:

答案 0 :(得分:1)

is.subset()从版本1.5-2开始返回一个稀疏矩阵(参见包NEWS)。如果您想使用您的代码,则需要使用:

subset.matrix <- is.subset(rules.sorted, rules.sorted, sparse = FALSE)
然而,这是非常低效的,只适用于非常小的规则集。请改用is.redundant()来查找冗余规则。