求助：R语言长格式转宽格式（含关联重复结果）

Hey there! 针对你遇到的长格式转宽格式时处理关联重复检测结果的问题，我给你整理了一套高效的R语言解决方案，对付千条级别的数据完全不在话下～

核心思路 #

问题的关键在于给每个SN对应的重复检测结果添加唯一的分组内序号，这样转宽格式时就能区分开同一SN下的不同检测记录，避免重复结果被覆盖。这里我们用tidyverse工具包的dplyr做分组序号标记，tidyr::pivot_wider完成宽格式转换，比melt/recast更灵活直观。

完整代码实现 #

1. 加载依赖包 #

首先确保你已经安装了tidyverse，如果没有的话先运行install.packages("tidyverse")，然后加载：

library(tidyverse)

2. 给重复检测结果加分组序号 #

假设你的原始数据框名为raw_data，我们先按SN分组，给每个组内的检测记录添加序号：

data_with_seq <- raw_data %>%
  group_by(SN) %>%
  mutate(test_index = row_number()) %>%  # 每个SN下的检测记录从1开始编号
  ungroup()

3. 转换为宽格式 #

用pivot_wider把长格式转成宽格式，指定以SN为唯一标识，用刚才的test_index区分不同检测结果，同时指定需要转宽的列：

wide_data <- data_with_seq %>%
  pivot_wider(
    id_cols = SN,  # 作为宽格式行标识的列
    names_from = test_index,  # 用来生成列名后缀的序号
    values_from = c(LabTest, LabDate, Result, Lower, Upper),  # 需要转宽的所有列
    names_sep = "_"  # 列名的分隔符，比如生成LabTest_1、LabDate_2这类列名
  )

进阶优化：按检测类型区分列名 #

如果同一个SN下存在相同LabTest的多次检测，你可以把LabTest也加入列名生成逻辑，让宽格式列名更清晰：

wide_data_by_test <- data_with_seq %>%
  pivot_wider(
    id_cols = SN,
    names_from = c(LabTest, test_index),  # 同时用检测类型和序号生成列名
    values_from = c(LabDate, Result, Lower, Upper),
    names_sep = "_"
  )

这样生成的列名会类似LabDate_血糖_1、Result_血脂_2，一眼就能看出对应哪种检测的第几次结果。

这个方法处理千条级数据效率很高，完全不需要手动操作，你可以直接把自己的数据框替换进去测试～

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