将多个行按行列值合并到一个列中

Question

使用R试图合并原始矩阵以根据行值的值生成矩阵。

例：

来自：

1 2 
a1 10 
a1 20 
a1 40 
a2 45 
a2 50 
a3 40 
a4 45 
a4 60 

到：

10 20 40 
45 50 
40 
45 60 

Answer 1

我们可以使用split

split(df1[,2], df1[,1]) 
#$a1 
#[1] 10 20 40 

#$a2 
#[1] 45 50 

#$a3 
#[1] 40 

#$a4 
#[1] 45 60 

创建的

Answer 2

或者使用aggregate：

aggregate(df$X2~df$X1, df, rbind) 

    # df$X1  df$X2 
# 1 a1 10, 20, 40 
# 2 a2  45, 50 
# 3 a3   40 
# 4 a4  45, 60 

DATA

df <- structure(list(X1 = structure(c(1L, 1L, 1L, 2L, 2L, 3L, 4L, 4L 
), .Label = c("a1", "a2", "a3", "a4"), class = "factor"), X2 = c(10L, 
20L, 40L, 45L, 50L, 40L, 45L, 60L)), .Names = c("X1", "X2"), class = 
"data.frame", row.names = c(NA, 
    -8L))