繪製當運行本實施例的代碼我得到在最後一行下面的錯誤時:非數字矩陣程度誤差中的R
錯誤矩陣(平均(範圍),NcoI位= NcoI位(x)中,nrow = nrow(x)中,dimnames = dimnames(X)):非數字矩陣程度
然而,記得在看到其他情況下,一些個月前,其中文庫arulesViz工作絲毫分類數據類型。
landing.data=read.csv2("http://archive.ics.uci.edu/ml/machine-learning-databases/shuttle-landing-control/shuttle-landing-control.data",
sep=",", header=F, dec=".")
landing.data=as.data.frame(sapply(landing.data,gsub,pattern="\\*",replacement=10))
library(arules)
landing.system <- as(landing.data, "transactions")
rules <- apriori(landing.system, parameter=list(support=0.01, confidence=0.6))
rulesLandingManual <- subset(rules, subset=rhs %in% "V1=1" & lift>1.2)
library(arulesViz)
plot(head(sort(rulesLandingManual, by="confidence"), n=3),
method="graph",control=list(type="items"))
感謝您的幫助 – nopeva 2013-02-11 07:40:07