将data.frame中的列堆叠到R中的一列中

Question

我在将data.frame中的列堆叠到一列时遇到问题.现在我的数据看起来像这样:

id   time    black   white   red 
a     1       b1      w1     r1
a     2       b2      w2     r2
a     3       b3      w3     r3
b     1       b4      w4     r4
b     2       b5      w5     r5
b     3       b6      w6     r6

我正在尝试转换data.frame,使其看起来像这样:

id   time  colour 
a     1     b1
a     2     b2
a     3     b3
b     1     b4
b     2     b5
b     3     b6
a     1     w1
a     2     w2
a     3     w3
b     1     w4
b     2     w5
b     3     w6
a     1     r1
a     2     r2
.     .     .
.     .     .
.     .     .

我猜这个问题需要使用reshape包,但我不确定如何使用它来堆叠一列下的多个列.任何人都可以提供帮助吗？

Answer 1

这里是重塑的融化:

library(reshape)
melt(x, id.vars=c('id', 'time'),var='color')

并且使用 reshape2(最新的,更快的版本reshape)语法几乎相同.

帮助文件包含有用的示例(请参阅?melt和链接melt.data.frame).

在您的情况下,以下内容将起作用(假设您的data.frame被调用DF)

library(reshape2)
melt(DF, id.var = c('id','time'), variable.name = 'colour')

Answer 2

既然你在标题中提到"堆叠",你也可以看一下stack基础R 中的函数:

cbind(mydf[1:2], stack(mydf[3:5]))
#    id time values   ind
# 1   a    1     b1 black
# 2   a    2     b2 black
# 3   a    3     b3 black
# 4   b    1     b4 black
# 5   b    2     b5 black
# 6   b    3     b6 black
# 7   a    1     w1 white
# 8   a    2     w2 white
# 9   a    3     w3 white
# 10  b    1     w4 white
# 11  b    2     w5 white
# 12  b    3     w6 white
# 13  a    1     r1   red
# 14  a    2     r2   red
# 15  a    3     r3   red
# 16  b    1     r4   red
# 17  b    2     r5   red
# 18  b    3     r6   red

如果"黑色","白色"和"红色"列中factor的character值为s,则需要先将它们转换为值.

cbind(mydf[1:2], stack(lapply(mydf[3:5], as.character)))