如何用tidyr替代现有代码实现行列转置并将首列设为表头？

问题背景 #

现有一套可正常运行的数据处理代码，包含三步：生成合并键、移除无关列、转置并设置列名。希望用tidyr包实现等价逻辑，学习tidyr的函数用法。

现有代码：

# Step 1: Create the key column
temp1 <- BRes3 %>%
  mutate(key1 = paste(Group, n, sep = "-"))

# Step 2: Remove unnecessary columns
temp2 <- temp1 %>%
  select(key1, everything(), -mean, -`mean CI`, -sdev, -UCI, -LCI, -CIR, -n, -Group)

# Step 3: Transpose the data and set column names
temp3 <- setNames(data.frame(t(temp2[-1])), temp2$key1)

步骤2的DataFrame结构：

> head(temp2[1:5])
     key1             est1             est2             est3             est4
X2 X1.A-2        10.799982        10.304256         10.20124         9.550119
X3 X1.A-3 10.3659866666667        10.465434 11.1673413333333 10.8014426666667
X4 X1.A-4        10.679331        10.781562        10.025603       10.1510665
X5 X1.A-5       11.4224648       11.6025256       10.5983192        11.618744
X6 X1.A-6 10.1707603333333 11.0518533333333        10.416587         10.18374
X7 X1.A-7        10.590982 10.6979774285714 10.6989508571429 10.1854577142857

期望的最终结构：

> head(temp3[1:5])
        X1.A-2           X1.A-3     X1.A-4     X1.A-5           X1.A-6
est1 10.799982 10.3659866666667  10.679331 11.4224648 10.1707603333333
est2 10.304256        10.465434  10.781562 11.6025256 11.0518533333333
est3  10.20124 11.1673413333333  10.025603 10.5983192        10.416587
est4  9.550119 10.8014426666667 10.1510665  11.618744         10.18374
est5 10.800006         9.970464 11.5241455 11.6005004 10.9990463333333
est6  12.30192 11.0995906666667  10.449673 10.2591216 10.7492366666667

tidyr等价实现方案 #

利用tidyr的pivot_longer()和pivot_wider()函数完成宽长转换，替代手动转置操作，更符合tidyverse数据流逻辑：

library(tidyr)
library(dplyr)

temp3_tidyr <- BRes3 %>%
  # 生成合并键
  mutate(key1 = paste(Group, n, sep = "-")) %>%
  # 保留目标列，排除无关统计列
  select(key1, starts_with("est"), -mean, -`mean CI`, -sdev, -UCI, -LCI, -CIR, -n, -Group) %>%
  # 转为长格式：拆分est列到行
  pivot_longer(cols = starts_with("est"), names_to = "est_name", values_to = "value") %>%
  # 转回宽格式：以key1为列名，est_name为行标识
  pivot_wider(names_from = key1, values_from = value) %>%
  # 将est_name设为行名（匹配原代码结构，可选）
  column_to_rownames(var = "est_name")

代码解释 #

1. 生成合并键：和原逻辑一致，用mutate()合并Group与n列。
2. 筛选列：用select()保留key1和所有以est开头的列，同时排除不需要的统计列，starts_with("est")可精准匹配目标列。
3. pivot_longer()：将宽格式的est1/est2等列转换为长格式，生成est_name（记录原列名）和value（对应列的值）两列。
4. pivot_wider()：将长格式转回宽格式，以key1的值作为新列名，value作为填充值，est_name作为行的唯一标识。
5. column_to_rownames()：可选步骤，把est_name列转为行名，完全匹配原代码生成的temp3结构。

该方案避免了手动转置和设置列名的繁琐操作，更贴合tidyverse语法风格，处理大型数据集时性能更稳定。

内容的提问来源于stack exchange，提问作者CBRF23