R: Zusammenführung von Zeilen in der gleichen Datentabelle, Verkettung bestimmter Spalten

Question

Ich habe meine Datentabelle in R. Ich möchte Zeilen zusammenführen, die eine identische customerID haben, und dann verketten die Elemente anderer zusammengeführter Spalten.

will ich von diesem gehen:

title author customerID 
1 title1 author1   1 
2 title2 author2   2 
3 title3 author3   1 

dazu:

  title   author Group.1 
1 title1, title3 author1, author3  1 
2   title2   author2  2 

Answer 1

Die aggregate Funktion sollte helfen Sie bei der Suche nach einer Lösung:

dat = data.frame(title = c("title1", "title2", "title3"), 
       author = c("author1", "author2", "author3"), 
       customerID = c(1, 2, 1)) 
aggregate(dat[-3], by=list(dat$customerID), c) 
# Group.1 title author 
# 1  1 1, 3 1, 3 
# 2  2  2  2 

Oder stellen Sie einfach sicher, dass Sie stringsAsFactors = FALSE hinzufügen, wenn Sie Ihren Datenrahmen erstellen, und Sie sind ziemlich gut zu gehen. Wenn Ihre Daten bereits berücksichtigt sind, können Sie so etwas wie dat[c(1, 2)] = apply(dat[-3], 2, as.character) zu wandeln sie in Zeichen verwenden zuerst, dann:

aggregate(dat[-3], by=list(dat$customerID), c) 
# Group.1   title   author 
# 1  1 title1, title3 author1, author3 
# 2  2   title2   author2 

Answer 2

Vielleicht nicht die beste Lösung, aber leicht zu verstehen:

df <- data.frame(author=LETTERS[1:5], title=LETTERS[1:5], id=c(1, 2, 1, 2, 3), stringsAsFactors=FALSE) 

uniqueIds <- unique(df$id) 

mergedDf <- df[1:length(uniqueIds),] 

for (i in seq(along=uniqueIds)) { 
    mergedDf[i, "id"] <- uniqueIds[i] 
    mergedDf[i, "author"] <- paste(df[df$id == uniqueIds[i], "author"], collapse=",") 
    mergedDf[i, "title"] <- paste(df[df$id == uniqueIds[i], "title"], collapse=",") 
} 

mergedDf 
# author title id 
#1 A,C A,C 1 
#2 B,D B,D 2 
#3  E  E 3