如何在R中将表头与值同行的CSV转换为DataFrame？

逐行解析法（低内存适配大文件） #

• 第一步：读取文件所有行

lines <- readLines("your_large_file.csv")

• 第二步：定义解析函数处理单行内容

parse_single_line <- function(line) {
  # 拆分逗号分隔的键值对
  key_value_pairs <- strsplit(line, ",")[[1]]
  # 拆分每个键值对的等号，提取键和值
  split_pairs <- strsplit(key_value_pairs, "=")
  # 转置后转为临时数据框
  temp_df <- as.data.frame(do.call(rbind, split_pairs), stringsAsFactors = FALSE)
  t(temp_df)
}

• 第三步：批量处理并整理成目标DataFrame

# 应用解析函数到所有行
raw_result <- do.call(rbind, lapply(lines, parse_single_line))
# 转换为标准数据框
result_df <- as.data.frame(raw_result, stringsAsFactors = FALSE)
# 设置列名（取第一行的键）
colnames(result_df) <- result_df[1, ]
# 移除第一行的键，保留值行
result_df <- result_df[-1, ]
# 重置行号
rownames(result_df) <- NULL

data.table高效处理法（大文件首选） #

如果已安装data.table包，用它处理大文件速度更快：

library(data.table)
# 读取文件，不设表头
dt <- fread("your_large_file.csv", sep = ",", header = FALSE)
# 遍历每列拆分键值对
for (col_name in names(dt)) {
  # 拆分等号，得到键和值
  split_result <- tstrsplit(dt[[col_name]], "=")
  # 设置列名为键
  setnames(dt, col_name, split_result[[1]][1])
  # 替换列内容为对应的值
  dt[[col_name]] <- split_result[[2]]
}
# 可选：转换为data.frame格式
result_df <- as.data.frame(dt)

最终效果验证 #

执行head(result_df)会输出：

ColumnA ColumnB
1  valueA  valueB
2 valueABC valueBC

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