如何在R中实现指定格式的数据透视（Pivot/Transpose）？

可以通过tidyverse中的pivot_longer结合pivot_wider实现格式转换，以下是具体代码和步骤：

示例数据与转换代码 #

library(tidyverse)

# 加载你的数据集
df <- data.frame(
  Index = seq(1,5),
  X_50 = c(3,8,9,3,7),
  X_90 = c(5,8,3,10,2),
  Y_50 = c(1,6,3,8,3),
  Y_90 = c(10,6,7,10,5),
  Z_50 = c(3,9,7,6,10),
  Z_90 = c(4,7,4,1,8)
)

# 格式转换
result <- df %>%
  # 将宽格式转成长格式，拆分列名为变量和分位数
  pivot_longer(
    cols = -Index,
    names_to = c("variable", "percentile_value"),
    names_pattern = "(.*)_(.*)"  # 用正则匹配"变量_分位数"结构拆分列名
  ) %>%
  # 将长格式转回目标宽格式，把变量转为列
  pivot_wider(
    names_from = variable,
    values_from = value
  ) %>%
  # 把分位数转为整数类型（可选，适配目标格式）
  mutate(percentile_value = as.integer(percentile_value)) %>%
  # 按Index和分位数排序，与目标格式一致
  arrange(Index, percentile_value)

print(result)

代码说明 #

1. pivot_longer：将除Index外的所有列转为长格式，同时通过正则表达式把原列名（如X_50）拆分为variable（X/Y/Z）和percentile_value（50/90）两个字段。
2. pivot_wider：把拆分后的variable字段转为列，对应填充数值，得到每个Index+分位数组合下的X/Y/Z值。
3. 后续处理：将分位数转为整数并排序，确保结果和目标格式完全匹配。

如果之前单独用pivot_longer没得到预期结果，是因为还需要结合pivot_wider重构列结构，两步配合才能完成宽→长→目标宽格式的转换。

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