R: Fusión de filas en la misma tabla de datos, concatenando ciertas columnas

Question

Tengo mi tabla de datos en R. Quiero fusionar filas que tienen un identificador idéntico customerID, y luego concatenar los elementos de otras columnas fusionadas.

Quiero ir de esto:

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

a esto:

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

Answer 1

La función aggregate debería ayudar en encontrar una solución:

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 

O bien, solo asegúrese de agregar stringsAsFactors = FALSE cuando cree su marco de datos y estará listo para comenzar. Si sus datos ya se tienen en cuenta, puede usar algo como dat[c(1, 2)] = apply(dat[-3], 2, as.character) para convertirlos a caracteres en primer lugar, a continuación:

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

Answer 2

Quizás no sea la mejor solución, pero fácil de entender:

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