R: arules

Question

tüm sepetler için öneriler Benim veriler aşağıdaki gibi işlemler ise:

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 

Ben önerilerde bulunmak istiyorum, bu yüzden müşteri için veri dönüşümü ve kurallarını

library(arules) 
trans = as(split(df$item, df$ID), "transactions") 
rules = apriori(trans, parameter = list(support = 0.006, confidence = 0.25, 
             minlen = 2)) 

Öneri inşa sepet 3 böyle bulunursa ile:

basket = trans[3] 
rulesMatchLHS = is.subset(rules@lhs,basket) 
suitableRules = rulesMatchLHS & !(is.subset(rules@rhs,basket)) 
order.rules = sort(rules[suitableRules], by = "lift") 
LIST(order.rules@rhs)[[1]] 

[1] "süt"

Ancak tüm sepetler için nasıl önerilerde bulunabilirim? Bunu denedim, ama bir hata alıyorum:

reco=function(x){ 
    rulesMatchLHS = is.subset(rules@lhs,x) 
    suitableRules = rulesMatchLHS & !(is.subset(rules@rhs,x)) 
    order.rules = sort(rules[suitableRules], by = "lift") 
    LIST(order.rules@rhs)[[1]] 
} 

results = lapply(trans, function(x) reco(x)) 

Error in as.vector(data) : no method for coercing this S4 class to a vector

nasıl bütün sepetler için öneriler çalıştırabilir? Bir vektöre işlemler sınıfı dönüştürmek için hiçbir işlevi yoktur, Görünüşe

sapply(1:length(trans), function(x) reco(trans[x])) 

:

Answer 1

bu deneyin.