时间戳

首页 > 解决方案 > Arules 中规则的并集和交集在算术上是有意义的

r - Arules 中规则的并集和交集在算术上是有意义的

问题描述

union(setA,setB)= setA + setB - intersect(setA,setB)的简单数学无效

我在这里想念什么？

这是我的两个规则集的总结。

> setA
set of 625 rules
 
> setB
set of 622 rules 

> union(setA,setB)
set of 626 rules 

> intersect(setA,setB)
set of 174 rules 

> setdiff(setA,setB)
set of 451 rules 

> setdiff(setB,setA)
set of 448 rules

导出的规则

集合A

组B

模型

设置A.Rdata

设置B.Rdata

标签： raprioriarules

解决方案

这是一个棘手的问题。

load("setA.Rdata")
load("setB.Rdata")

all.equal(itemLabels(setA), itemLabels(setB))   
[1] "Lengths (261, 263) differ (string compare on first 261)"
[2] "167 string mismatches"

您有两个使用不同项目编码的规则集（即项目的不同顺序）。如果您从不同的数据集中挖掘它们并且不注意项目编码相同，则会发生这种情况。

arules 期望集合以相同的方式编码而无需检查。我认为需要添加支票。

您可以通过重新编码以使用相同的 itemLabels 来修复您的规则集：

itemLabels <- union(itemLabels(setA), itemLabels(setB))

setA_fixed <- new("rules",
  lhs = recode(lhs(setA), itemLabels = itemLabels), 
  rhs = recode(rhs(setA), itemLabels = itemLabels)
  )

setB_fixed <- new("rules",
  lhs = recode(lhs(setB), itemLabels = itemLabels), 
  rhs = recode(rhs(setB), itemLabels = itemLabels)
)

现在你得到了预期的结果：

length(union(setA_fixed, setB_fixed))
[1] 626
length(c(setA_fixed, setB_fixed)) - length(intersect(setA_fixed, setB_fixed))
[1] 626

推荐阅读