r - R中的Apriori算法，不是否定规则

Question

我有一个大型二进制数据集，我希望在 R 中运行先验算法。问题在于算法正在制定所有 0 的规则，而我只想查看 1。例如获取这些规则:

        lhs                                                        rhs     support   confidence lift      count
[1]    {SPA=0,SPD=0,SPE=0,SPF=1,SPJ=0}                         => {SPC=0} 0.2036065 0.9866727  1.0174854  6515
[2]    {SPA=0,SPD=0,SPE=0,SPF=1}                               => {SPC=0} 0.2163885 0.9864653  1.0172715  6924
[3]    {SPA=0,SPD=0,SPF=1,SPJ=0}                               => {SPC=0} 0.2070754 0.9852788  1.0160479  6626

有谁知道如何只查找变量为 1 而不是 0 的规则？谢谢你!

Answer 1

您可以使用apriori 的appearance 参数来控制它。由于您不提供数据，我将使用内置的成人数据作为示例，但我认为您需要将 appearance=list(rhs = "SPC=1") 添加到您的先验声明。

例子

我将只生成 rhs 为 native-country=United-States 的规则

rules <- apriori(Adult, 
    parameter = list(supp = 0.4, conf = 0.6, 
        minlen=2, target = "rules"),
    appearance=list(rhs = "native-country=United-States")
)

inspect(rhs(rules[1:5]))
    items                         
[1] {native-country=United-States}
[2] {native-country=United-States}
[3] {native-country=United-States}
[4] {native-country=United-States}
[5] {native-country=United-States}

加法

我以为您只想在 rhs 上设置 SPC=1。根据您的评论，我现在认为您想要生成根本不包含 XYZ=0 项的规则。您也可以通过 appearance 获得它。首先确定 XYZ=0 的可能项目，然后使用外观排除这些。我不知道你的变量叫什么，所以我调用交易 TransactionData

## identify items to exclude
excluded <- grep("=0", itemLabels(TransactionData), value = TRUE)

然后将其添加到您的 apriori 语句中。

appearance=list(none = excluded)