Parece un problema sencillo, pero tiene su complicación en el hecho que no hay una cantidad de filas por id
consistente, entonces hay que agregar los NA
correspondientes. Se me ocurre lo siguiente:
datos$Nombre <- as.character(datos$Nombre)
datos$Sexo <- as.character(datos$Sexo)
out <- aggregate(cbind(Nombre, Sexo) ~ id, datos, paste)
out[[2]] <- lapply(out[[2]], FUN = function(x) c(x, rep(NA,max(lengths(out[[2]]))-length(x))))
out[[3]] <- lapply(out[[3]], FUN = function(x) c(x, rep(NA,max(lengths(out[[3]]))-length(x))))
x1 <- do.call(rbind, out$Nombre)
colnames(x1) <- paste0("Nombre_",1:ncol(x1))
x1 <- cbind(out[c("id")], x1)
x2 <- do.call(rbind, out$Sexo)
colnames(x2) <- paste0("Sexo_",1:ncol(x2))
final <- cbind(x1, x2)
final
Explicación
En primer lugar, para evitar problemas, convertimos las columnas si son Factor
a una cadena común:
datos$Nombre <- as.character(datos$Nombre)
datos$Sexo <- as.character(datos$Sexo)
Luego agrupamos por id
y combinamos los valores de Nombre
y Sexo
out <- aggregate(cbind(Nombre, Sexo) ~ id, datos, paste)
out
id Nombre Sexo
1 1 Alberto, Luis, Maria H, H, M
2 2 Alberto, Paco H, H
3 3 Bea, Marisa, Josefina M, M, M
Las columnas Nombre
y Sexo
ahora son listas con todos los valores. Lo siguiente es hacer que cada una de estas listas tengan la misma cantidad de valores, agregando NA
:
out[[2]] <- lapply(out[[2]], FUN = function(x) c(x, rep(NA,max(lengths(out[[2]]))-length(x))))
out[[3]] <- lapply(out[[3]], FUN = function(x) c(x, rep(NA,max(lengths(out[[3]]))-length(x))))
Por último transformamos cada lista en columnas, y renumeramos cada nombre de columna:
x1 <- do.call(rbind, out$Nombre)
colnames(x1) <- paste0("Nombre_",1:ncol(x1))
x1 <- cbind(out[c("id")], x1)
x2 <- do.call(rbind, out$Sexo)
colnames(x2) <- paste0("Sexo_",1:ncol(x2))
final <- cbind(x1, x2)
final
La salida final:
id Nombre_1 Nombre_2 Nombre_3 Sexo_1 Sexo_2 Sexo_3
1 1 Alberto Luis Maria H H M
2 2 Alberto Paco <NA> H H <NA>
3 3 Bea Marisa Josefina M M M