0

だからここに例があります：

library(arules)
data(Adult)
rules <- apriori(Adult,parameter = list(maxlen = 2,minlen=2))
inspect(head(rules,3))


 lhs                         rhs                              support confidence     lift
1 {relationship=Unmarried} => {capital-loss=None}            0.1019819  0.9719024 1.019537
2 {occupation=Sales}       => {race=White}                   0.1005282  0.8920785 1.043314
3 {occupation=Sales}       => {native-country=United-States} 0.1039679  0.9226017 1.028055

2 つの列を持つ data.table を作成します。1 つは lhs と呼ばれ、もう 1 つは rhs で、ルールの lhs と rhs の値を次のように格納します。

lhs                        rhs
relationship=Unmarried    capital-loss=None
occupation=Sales          race=White
occupation=Sales          native-country=United-States

私はWindowsで始めて一度それをやったと誓いa<-as.data.table(inspect(rules))ますが、私のMacではうまくいきません...あなたは何を提案しますか?

4

2 に答える 2

1

与えられた

library(arules)
library(data.table)
data(Adult)
rules <- apriori(Adult,parameter = list(maxlen = 2,minlen=2))
r <- head(rules,3)

as.data.table(inspect(r))動作しない場合(私のマシン、Win7 x64、R 3.2.2 & packageVersion("arules")beeingでは動作します1.3.0)、試してみてください。

f <- function(x, fun) unlist(as(fun(x), "list"))
( dt <- data.table(lhs=f(r, lhs), rhs=f(r, rhs)) )
#                       lhs                          rhs
# 1: relationship=Unmarried            capital-loss=None
# 2:       occupation=Sales                   race=White
# 3:       occupation=Sales native-country=United-States
于 2016-02-28T17:01:19.243 に答える
1

これは私がこれを行うことを意図した方法です...

library(arules)
data(Adult)
rules <- apriori(Adult,parameter = list(maxlen = 2,minlen=2))

data.frame(lhs = labels(lhs(rules), setStart = "", setEnd = ""), 
           rhs = labels(rhs(rules), setStart = "", setEnd = ""))
于 2016-02-29T02:38:57.307 に答える