R语言长表转宽表：基于字符串顺序匹配对转换out变量

我来帮你搞定这个需求！核心思路是先给每个str在对应grp内的出现顺序做标记，再根据标记把配对的out值转成两列，完美匹配你要的关联关系。下面用两种常见的R实现方式来演示：

方法一：用dplyr + tidyr（推荐，代码更直观） #

首先我们构造一个和你需求匹配的示例数据，你可以直接替换成自己的真实数据：

library(dplyr)
library(tidyr)

# 示例数据（grp内每个str重复4次）
df <- tibble(
  grp = rep(c("grp1", "grp2"), each = 8),
  str = c("dat", "axy", "dat", "axy", "dat", "axy", "dat", "axy",
          "dat", "axy", "dat", "axy", "dat", "axy", "dat", "axy"),
  out = 1:16
)

接下来分两步处理：

1. 分组标记每个str的出现顺序，同时定义配对组（比如第1、3次出现为一组，第2、4次为另一组）
2. 将out转置为两列，和str的配对关联对应

# 步骤1：添加顺序标记和配对组
df_processed <- df %>%
  group_by(grp, str) %>%
  mutate(
    seq_num = row_number(),  # 标记每个str在grp内是第几次出现
    pair_id = case_when(
      seq_num %in% c(1, 3) ~ 1,  # 把第1、3次归为同一个配对组
      seq_num %in% c(2, 4) ~ 2   # 把第2、4次归为同一个配对组
    ),
    pos = ifelse(seq_num %% 2 == 1, "first_out", "second_out")  # 标记是配对里的第一个还是第二个值
  ) %>%
  ungroup()

# 步骤2：转置为两列
final_result <- df_processed %>%
  pivot_wider(
    id_cols = c(grp, str, pair_id),
    names_from = pos,
    values_from = out
  ) %>%
  select(-pair_id)  # 不需要配对组ID的话可以删掉这行

处理后的结果会是这样的（以grp1为例）：

完全符合你要的“第1行str值'dat'匹配第3行，第2行str值'axy'匹配第4行”的关联要求~

方法二：用Base R实现（无需额外安装包） #

如果不想加载第三方包，用Base R也能完成：

# 给每个str在grp内的出现顺序编号
df$seq_num <- ave(rep(1, nrow(df)), df$grp, df$str, FUN = seq_along)
# 定义配对组
df$pair_id <- as.integer((df$seq_num + 1)/2)
# 标记配对内的位置
df$pos <- ifelse(df$seq_num %% 2 == 1, "first_out", "second_out")

# 转置为宽表
final_result <- reshape(
  df, 
  idvar = c("grp", "str", "pair_id"), 
  timevar = "pos", 
  direction = "wide"
)
# 移除配对组ID
final_result$pair_id <- NULL

这个方法的结果和上面完全一致，适合不想依赖第三方包的场景。

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