如何在R中使用tidyverse整理偶列为表头值的数据集

使用tidyverse套件中的dplyr和tidyr即可实现需求，无需额外安装其他依赖，具体实现代码如下：

首先加载所需包：

library(tidyverse)

方法1：按行键值对拆分（代码更简洁） #

假设你已经将原始数据读取为无表头的数据框raw_data，处理逻辑是逐行提取奇数列作为字段名、偶数列作为对应值，直接展开为标准结构：

result <- raw_data %>%
  rowwise() %>%
  summarise(
    !!!set_names(
      x = c_across(everything())[c(FALSE, TRUE)],
      nm = str_trim(c_across(everything())[c(TRUE, FALSE)])
    ),
    .groups = "drop"
  )

方法2：长宽格式转换（逻辑更易懂） #

如果需要更清晰的分步处理逻辑，可以用长格式转宽格式的思路实现：

result <- raw_data %>%
  # 给原始每行添加唯一标识，方便后续分组处理
  mutate(row_id = row_number()) %>%
  # 转为长格式统一处理所有字段值
  pivot_longer(-row_id, values_transform = as.character) %>%
  # 去除空值和字段前后的空格
  drop_na(value) %>%
  mutate(value = str_trim(value)) %>%
  group_by(row_id) %>%
  # 拆分字段名和对应的值
  mutate(
    col_name = value[c(TRUE, FALSE)],
    col_val = value[c(FALSE, TRUE)]
  ) %>%
  ungroup() %>%
  select(row_id, col_name, col_val) %>%
  distinct() %>%
  # 转为所需的宽表结构
  pivot_wider(names_from = col_name, values_from = col_val) %>%
  # 删掉辅助的行号列
  select(-row_id)

处理完成后，你可以通过write_csv(result, "output.csv")直接导出为结构化CSV文件，也可以用print(result)在控制台查看对齐后的输出效果。上述代码支持字段不固定的场景，不需要手动指定列名即可自动适配新增字段。

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