如何转换具有相同列名的数据框

Question

I have a df like:

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))

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

I performed melt function by meltData <- melt(df) on the df but I get all row same, I mean:

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

desired output should be:

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

I tried different ways of melting but couldn't figure out what I'm missing. Any help would be appreciated.

Answer 1

You can use data.table::melt() instead:

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

Or stack() from base R:

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

Data

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)
)