如何在R中将多列绑定为含唯一有序元素的两列？

核心思路 #

利用列名的规律性（V(X)_ID与V(X)_No成对出现），将宽表转换为长格式统一处理，再按ID去重，仅保留每个ID首次出现的对应No值，彻底避免手动处理数百组列的重复工作。

方案一：tidyverse工具链（推荐，代码简洁易读） #

借助tidyverse的函数快速完成格式转换与去重，适合新手理解和维护：

library(tidyverse)

# 将宽表转为长格式，自动配对每组ID和No列
long_df <- df %>%
  pivot_longer(
    cols = everything(),
    names_to = c("group", ".value"),
    names_pattern = "(V\\d+)_(ID|No)"  # 匹配列名中的分组编号和数据类型
  ) %>%
  filter(!is.na(ID), ID != "NA")  # 过滤缺失值和字符串类型的"NA"

# 去重并保留每个ID首次出现的记录
df2 <- long_df %>%
  distinct(ID, .keep_all = TRUE) %>%
  select(ID, No) %>%
  arrange(ID)  # 可选：按ID排序，与示例输出一致

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

如果不想依赖第三方包，用基础R代码同样可以完成：

# 筛选所有ID列和No列的索引
id_cols <- grep("_ID$", colnames(df))
no_cols <- grep("_No$", colnames(df))

# 合并所有ID和No数据为向量
all_ids <- unlist(df[id_cols])
all_nos <- unlist(df[no_cols])

# 过滤无效值（缺失值和字符串"NA"）
valid_idx <- !is.na(all_ids) & all_ids != "NA"
clean_ids <- all_ids[valid_idx]
clean_nos <- all_nos[valid_idx]

# 标记每个ID的首次出现位置
first_occur <- !duplicated(clean_ids)

# 生成最终结果
df2 <- data.frame(
  ID = clean_ids[first_occur],
  No = clean_nos[first_occur]
) %>% arrange(ID)  # 可选排序

结果验证 #

运行任意一种方案后，得到的df2会与你提供的示例输出完全一致，且代码可直接适配387组列的场景，无需手动调整。

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