如何在R中使用pivot_longer函数处理多组变量实现数据宽转长？

正确实现代码 #

library(tidyr)
library(tibble)

# 原始宽格式数据
Data_Have <- tribble(~ID, ~x1, ~x2, ~x3, ~y1, ~y2, ~y3,
                     "A", 3, 3, 3, 2.4, 2.5, 2.3,
                     "B", 3, 1, 2, 1.5, 1.6, 1.7)

# 转换为长格式
Data_Result <- Data_Have %>%
  pivot_longer(
    cols = -ID,  # 排除ID列，选中所有测量列
    names_to = c(".value", "month"),  # .value保留变量名，month提取月份数字
    names_pattern = "(.)(\\d)"  # 正则拆分列名：变量标识(x/y) + 月份(1/2/3)
  ) %>%
  mutate(month = as.integer(month))  # 将month转为数值类型（可选）

# 查看结果
Data_Result

关键逻辑说明 #

之前的尝试无效，是因为没有正确拆分列名里的变量类型和月份信息：

• names_to = c(".value", "month")：.value是pivot_longer的特殊值，用于指定列名中作为新列名的部分（即x、y）；month则用来存储列名中的数字部分。
• names_pattern = "(.)(\\d)"：正则表达式拆分列名，(.)匹配单个字符（x或y），(\\d)匹配单个数字（1、2、3），刚好对应需要拆分的两部分。

运行后得到的Data_Result与你期望的Data_Want完全一致。

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