0

ルールの Excel ファイルがあります。前例の列、結果の列、サポートの列などです。

arulesViz を使用してそれらをプロットする「ルール」オブジェクトを作成しようとしています。

http://www.inside-r.org/packages/cran/arules/docs/rhs

new("rules", ...)

スロットを作成しようとしています

lhs:Object of class itemMatrix; the left-hand-sides of the rules (antecedents)
rhs:Object of class itemMatrix; the right-hand-sides of the rules (consequents)
quality:a data.frame

itemMatrix を作成するには、スパース マトリックスに戻る必要がありますが、うまくいかないと思います。ルールを arulesViz に「インポート」する方法はありますか?

エクセルファイル:

Antec   Conseq      Supp      Conf
MMMMAAA MMAAAA  0.061945    0.5
MMM,MA  MMAAAA  0.071944    0.6
MMMMAAA MMAAA   0.053948    0.5
MMM,MA  MMAAA   0.054948    0.7
AAAAAA  AAAA    0.090909    0.5
4

1 に答える 1

1

1 つの方法は、ルール用の PMML ファイルを作成し、read.PMML. ルール オブジェクトを最初から作成するのは少し難しいです。次に例を示します。

library("arules")
l <- list(c("MMMMAAA"), c("MMM", "MA"), "MMMMAAA", c("MMM","MA"), "AAAAA")
r <- list("MMAAAA", "MMAAAA", "MMAAA", "MMAAA", "AAAA")
q <- data.frame(
     support = c(0.061945, 0.071944, 0.053948, 0.054948,0.090909), 
     confidence = c(.5, .6, .5, .7, .5),
     lift = c(1,1,1,1,1)
)
### Note that I also added lift since arulesViz uses 
### lift in some visualizations.


### find unique item labels
items <- unique(c(unlist(l), unlist(r)))

### encode data as a rules object
r <- new("rules", lhs = encode(l, items), 
   rhs = encode(r, items), quality = q)

inspect(r)

### use a visualization as a scatter plot.
library("arulesViz")
plot(r)

お役に立てれば！

于 2015-03-22T23:26:17.423 に答える