Arules-Paket - Daten vorbereiten

Question

Wie bereite ich die Daten in Form von "Transaktionen" vor, aber für jede Transaktions-ID wird der zeitliche Effekt/Reihenfolge berücksichtigt? Ich habe festgestellt, dass die "Split" -Funktion in alphabetischer Reihenfolge erfolgt.

zB:

ID Items Sequence 
1 D  1 
1 A  2 
1 C  3 
2 A  1 
2 B  2 

gewünschte Ausgabe in Transaktionen:

ID Items 
1 D A C#notice that A comes after D as it is dictacted by sequence variable 
     #              here for the order 
2 A B 

Grüße.

Answer 1

lapply und rbind verwenden,

DF = read.table(text="ID Items Sequence 
1 D  1 
1 A  2 
1 C  3 
2 A  1 
2 B  2",header=TRUE,stringsAsFactors=FALSE,na.strings="") 


DF 
# ID Items Sequence 
#1 1  D  1 
#2 1  A  2 
#3 1  C  3 
#4 2  A  1 
#5 2  B  2 

Für jede ID, die Datenrahmen Teilmenge, sortiert nach Sequenz, kombinieren die Elemente und das Rück ouput für jede ID

DF_new = do.call(rbind,lapply(unique(DF$ID),function(x) { 

subset_DF = DF[DF$ID==x,]; 
subset_DF = subset_DF[,order(subset_DF$Sequence)] 
subset_DF = subset_DF[,c("ID","Items")] 
subset_DF$Items = paste0(subset_DF$Items,collapse=" ") 
subset_DF = unique(subset_DF) 
rownames(subset_DF)= NULL 
return(subset_DF) 
})) 

DF_new 
# ID Items 
#1 1 D A C 
#2 2 A B