将“符号”中的值列转换/透视/转置为列名称，并将当前列名称转换为 R 语言中的值列[关闭]

这些是输出之前和之后的镜头。 我正在寻找这个问题的所有可能的解决方案，越简单越好。我是 R 新手，所以我不确定如何很好地使用任何数据操作包。我相信这是一个关键的情况。 目标是获取“符号”列中的值并将它们设为列名称，并将当前列名称设为“GSM1573135”，... 并将这些列名称转换为列，最终输出的示例如下第二个表所示。

下表是我要改造的表格：

  Symbol  GSM1573135  GSM1573160  GSM1573175 GSM1573186  GSM1573132
1  STAT1  0.29600048 -0.60394290 -0.10135269  0.2308369 -0.13862038
2  GAPDH -0.06155872  0.59726906  0.18338203 -0.4480076  0.13947392
3   ACTB -0.03187084  0.13835812  0.03187466 -0.7396250 -0.09272575
4  PRPF8  0.29218674  0.13059807  0.18707657 -0.3613615 -0.04664040
5 CAPNS1  0.28366375  0.69432163  0.01103115 -0.9594564 -0.13679028

下表是转换后的表格：

   GSM ID        STAT1      GAPDH       ACTB        PRPF8       CAPNS1
1  GSM1573135  0.29600048 -0.06155872 -0.03187084  0.29218674  0.28366375 
2  GSM1573160 -0.60394290  0.59726906  0.13835812  0.13059807  0.69432163
3  GSM1573175 -0.10135269  0.18338203  0.03187466  0.18707657  0.01103115
4  GSM1573186  0.2308369  -0.4480076  -0.7396250  -0.3613615  -0.9594564
5  GSM1573132 -0.13862038  0.13947392 -0.09272575 -0.04664040 -0.13679028

获取长格式的数据，更改变量并以宽格式返回：

library(tidyr)
df %>%
  pivot_longer(cols = -Symbol) %>%
  pivot_wider(names_from = Symbol, values_from = value)

#  name        STAT1   GAPDH    ACTB   PRPF8  CAPNS1
#  <chr>       <dbl>   <dbl>   <dbl>   <dbl>   <dbl>
#1 GSM1573135  0.296 -0.0616 -0.0319  0.292   0.284 
#2 GSM1573160 -0.604  0.597   0.138   0.131   0.694 
#3 GSM1573175 -0.101  0.183   0.0319  0.187   0.0110
#4 GSM1573186  0.231 -0.448  -0.740  -0.361  -0.959 
#5 GSM1573132 -0.139  0.139  -0.0927 -0.0466 -0.137 

data.table :

library(data.table)
dcast(melt(setDT(df), id.vars = 'Symbol'), variable~Symbol, value.var = 'value')

data

df <- structure(list(Symbol = c("STAT1", "GAPDH", "ACTB", "PRPF8", 
"CAPNS1"), GSM1573135 = c(0.29600048, -0.06155872, -0.03187084, 
0.29218674, 0.28366375), GSM1573160 = c(-0.6039429, 0.59726906, 
0.13835812, 0.13059807, 0.69432163), GSM1573175 = c(-0.10135269, 
0.18338203, 0.03187466, 0.18707657, 0.01103115), GSM1573186 = c(0.2308369, 
-0.4480076, -0.739625, -0.3613615, -0.9594564), GSM1573132 = c(-0.13862038, 
0.13947392, -0.09272575, -0.0466404, -0.13679028)), 
class = "data.frame", row.names = c(NA, -5L))