答案 0 :(得分:1)
library(arulesViz)
data("Groceries")
rules <- apriori(Groceries, parameter=list(support=0.001, confidence=0.5))
调整图形设备的高度
f <- function(height) {
pdf(tf <- tempfile(fileext = ".pdf"), height = height)
plot(rules, method="grouped")
dev.off()
shell.exec(tf)
}
f(5) # too small
f(10) # better height
或尝试使用交互式情节
sel <- plot(rules, method="grouped", interactive=TRUE)