ループ付きアソシエーションルール

Question

各行に何回も繰り返される顧客IDを含む顧客レポートがあります。 各顧客IDの関連ルールレポートを生成します。少数のIDしかない場合は、rhs = c（ "ID = 465"、 "ID = 223"）のように書き留めることができます。しかし、多くのIDケースはどうですか？ 以下は私の試みですが、今は動作しました。 あなたのお手伝いをよろしくお願いします。 DL

uniqID <- unique(Customer$ID) 

for (i in 1:length(uniqID)){ 
    apriori(Customer, 
      parameter=list(minlen=2,supp=0.005,conf=0.8), 
      appearance=list(rhs=c("ID=uniqID"), default="lhs"), 
      control=list(verbose=F) 
) 
} 

Answer 1

この作品は次のようなものですか？

uniqID <- unique(Customer$ID) 
uniqID <- paste("ID=", uniqID, sep="") 

apriori(Customer, 
     parameter=list(minlen=2,supp=0.005,conf=0.8), 
     appearance=list(rhs=uniqID, default="lhs"), 
     control=list(verbose=F) 
     )