0
所有籃子的建議我的數據是這樣的數據:R:與arules
ID=c("A123","A123","A123","A123","B456","B456","B456","C789","C789")
item=c("bread", "butter", "milk", "eggs", "meat","milk", "peas", "peas", "meat")
df=data.frame(cbind(ID, item))
ID item
1 A123 bread
2 A123 butter
3 A123 milk
4 A123 eggs
5 B456 meat
6 B456 milk
7 B456 peas
我想提出建議,所以我轉換數據和建立規則
library(arules)
trans = as(split(df$item, df$ID), "transactions")
rules = apriori(trans, parameter = list(support = 0.006, confidence = 0.25,
minlen = 2))
建議爲客戶與籃3是發現這樣的:
basket = trans[3]
rulesMatchLHS = is.subset([email protected],basket)
suitableRules = rulesMatchLHS & !(is.subset([email protected],basket))
order.rules = sort(rules[suitableRules], by = "lift")
LIST([email protected])[[1]]
[1] 「牛奶」
但是我怎樣才能爲所有籃子提出建議?我想這一點,但得到一個錯誤:
reco=function(x){
rulesMatchLHS = is.subset([email protected],x)
suitableRules = rulesMatchLHS & !(is.subset([email protected],x))
order.rules = sort(rules[suitableRules], by = "lift")
LIST([email protected])[[1]]
}
results = lapply(trans, function(x) reco(x))
Error in as.vector(data) : no method for coercing this S4 class to a vector
我怎麼能運行所有的籃子的建議?