[未知用户]
id_a <- c('AA',rep('BB',4),rep('DD',2))
b <- c('ab','ce',"df","db",'en','cd','fh')
d <- c(0.18,.23,1.43,1.32,.99,0.57,1.22)
df <- cbind(id_a,b,d)
temp <- NULL
for(n in unique(df[,1])){
temp[[n]] <- subset(df,id_a==n)
print(unique(as.vector(t(temp[[n]]))))
}
[1] "AA" "ab" "0.18"
[1] "BB" "ce" "0.23" "df" "1.43" "db" "1.32" "en" "0.99"
[1] "DD" "cd" "0.57" "fh" "1.22"
:-)