R write.csv2输出显示空字符串

Question

我正在尝试将apriori算法应用于效果很好的数据集（CSV）。阅读交易并应用先验后，我可以看到结果。

输入文件示例：

transactionid;article
21-348;JG78NF7
42-357;ALL0001
89-786;110845466
...

但是在写入CSV之后，这就是我的output.csv中剩下的内容：

""

设置的参数为support = 0.0001，confidence = 0.1当我增加支持到0.001时，我的输出CSV实际上显示了一些行。我以为是RAM问题，但事实并非如此。下面是我的代码。

#!/usr/bin/env Rscript
# load arules library
library(arules)

# read csv file
data <- read.transactions(file='input.csv', format='single', sep=';', cols=1:2)
#summary(data)

#create apriori rules
rules <- apriori(data, parameter=list(support=0.0001, confidence=0.1))
#summary(rules)

#inspect(sort(rules, by='confidence'))
write.csv2(inspect(rules), file='output.csv')

没有错误信息或其他任何信息。使用--verbose标志执行不会显示错误消息。也许有人有一个主意。

规格：MacOSX卡塔利娜10.15.4R语言（通过Homebrew安装）3.6.3_1酿造版本2.2.11

Answer 1

inspect()函数仅打印，因此，如果要获取lhs和rhs等信息，可以按照this link或尝试以下提供所需信息的操作：

library(arules)
data("Adult")
rules <- apriori(Adult, 
parameter = list(supp = 0.5, conf = 0.9, target = "rules"))

out = data.frame(
lhs=labels(lhs(rules)),
rhs=labels(rhs(rules)),
support = quality(rules)$support,
count=quality(rules)$count)

write.csv(out....)