基于前置列键值对为CSV数据分配列名的R语言实现求助

步骤1：读取完整数据集并构建编号-列名映射 #

不要仅读取前两行，先加载整个文件，再提取并清理前两行的映射关系：

# 读取完整CSV，关闭表头自动识别（前两行不是数据表头）
full_data <- read.csv("my.csv", header = FALSE, stringsAsFactors = FALSE)

# 提取原始列名与对应编号，清理编号中的点号
col_names <- as.character(full_data[1, ])
raw_numbers <- as.character(full_data[2, ])
clean_numbers <- gsub("\\.", "", raw_numbers)

# 构建「编号-原始列名」的映射字典
num_to_name <- setNames(col_names, clean_numbers)

步骤2：处理数据行并转换为标准表格 #

从第3行开始为有效数据，每行以「编号+对应值」成对存储，我们将其重组为列名对应数据的结构：

# 提取纯数据行（排除前两行的映射信息）
data_rows <- full_data[-c(1, 2), ]

# 定义单行数据处理函数
process_row <- function(row) {
  # 将行拆分为编号-值的成对矩阵
  pairs <- matrix(row, ncol = 2, byrow = TRUE)
  # 用映射字典替换编号为原始列名
  final_cols <- num_to_name[pairs[, 1]]
  # 重组为标准数据框行
  result <- as.data.frame(t(pairs[, 2]), stringsAsFactors = FALSE)
  colnames(result) <- final_cols
  return(result)
}

# 批量处理所有行并合并为最终表格
final_data <- do.call(rbind, lapply(1:nrow(data_rows), function(i) {
  process_row(data_rows[i, ])
}))

# 可选：统一转换数据列为数值型（根据实际数据类型调整）
final_data[] <- lapply(final_data, as.numeric)

代码说明 #

• 先加载完整文件，避免丢失后续数据行；
• 清理编号格式（如1.转为1），确保映射匹配无误差；
• 将每行的编号-值对重组，用原始列名替换编号，生成标准结构的数据框；
• 最后统一数据类型，方便后续分析操作。

测试示例 #

假设你的CSV内容如下：

UTC,BSP,AWA,TWA
1.,2.,3.,4.
1,2023-10-01 00:00,2,15.3,3,270,4,10
1,2023-10-01 01:00,2,16.1,3,265,4,12

运行代码后，final_data会输出标准表格：

UTC  BSP AWA TWA
1 2023-10-01 00:00 15.3 270  10
2 2023-10-01 01:00 16.1 265  12

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