如何使用相同的列名称融合数据框

Question

我有一个df，例如：

name   cont cont cont treat  treat  treat
mouse   27   43  18   49040  48570  138888
rat     83   45  54   53522  22235  345667 

我在df上由melt执行了meltData <- melt(df)功能，但所有行都一样，我的意思是：

variable value
 cont      27
 cont      83
 cont      27
 cont      83
 treat     49040
 treat     53522  
 treat     49040
 treat     53522
        .
        .
        .

期望的输出应该是：

variable value
 cont      27
 cont      83
 cont      43
 cont      45
 treat     49040
 treat     53522  
 treat     48570
 treat     22235
        .
        .
        .

我尝试了不同的融化方式，但无法弄清我的缺失。任何帮助，将不胜感激。

Answer 1

您可以改用data.table::melt()：

library(data.table)
setDT(df)
melt(df, id.vars = "name")[, variable := sub("\\..+", "", variable)
                           ][, !"name"]


    variable  value
 1:     cont     27
 2:     cont     83
 3:     cont     43
 4:     cont     45
 5:     cont     18
 6:     cont     54
 7:    treat  49040
 8:    treat  53522
 9:    treat  48570
10:    treat  22235
11:    treat 138888
12:    treat 345667

或以R为基的stack()：

dfl <- stack(df[-1])
dfl$ind <- sub("\\..+", "", dfl$ind)
dfl

   values   ind
1      27  cont
2      83  cont
3      43  cont
4      45  cont
5      18  cont
6      54  cont
7   49040 treat
8   53522 treat
9   48570 treat
10  22235 treat
11 138888 treat
12 345667 treat

数据

df <- data.frame(
  name = c("mouse", "rat"), 
  cont = c(27L, 83L), 
  cont = c(43L, 45L), 
  cont = c(18L, 54L), 
  treat = c(49040L, 53522L), 
  treat = c(48570L, 22235L), 
  treat = c(138888L, 345667L)
)