如何区分含空格列名与空格分隔符，实现TXT数据集的正确读取（将W90*设为行名、KDY A1等设为列名）

这个问题确实有点棘手——空格既当分隔符又出现在列名里，直接用常规的分隔读取方法肯定会拆错列名。不过我们可以换个思路，先逐行读取文件，手动拆分列名和数据，再重组出想要的结构。

具体步骤与代码实现 #

首先，我们用readLines把整个文件读进来，这样能完全掌控每一行的处理：

# 读取所有行内容
all_lines <- readLines("data.txt")

接下来，分别提取行名、处理带空格的列名和对应数据：

# 提取第二行作为行名（W9001到W9016）
row_names <- strsplit(all_lines[2], "\\s+")[[1]]

# 取出第三到第六行的实际数据行
data_rows <- all_lines[3:6]

# 写一个小函数，拆分每行的列名和对应数值
split_col_and_data <- function(line) {
  # 把一行按空格拆分成单个元素
  parts <- strsplit(line, "\\s+")[[1]]
  # 找到第一个不是以*开头的元素位置，前面的就是列名（可能带空格）
  col_end_idx <- which(!grepl("^\\*", parts))[1] - 1
  # 合并列名部分（处理空格）
  col_name <- paste(parts[1:col_end_idx], collapse = " ")
  # 剩下的就是对应行的数据
  data_values <- parts[(col_end_idx + 1):length(parts)]
  list(column = col_name, values = data_values)
}

# 应用函数到所有数据行
processed_data <- lapply(data_rows, split_col_and_data)

# 提取所有列名和数据矩阵
col_names <- sapply(processed_data, function(x) x$column)
data_matrix <- do.call(rbind, lapply(processed_data, function(x) x$values))

# 转置矩阵，把列数据转成行数据，再转成数据框
final_df <- as.data.frame(t(data_matrix), stringsAsFactors = FALSE)

# 设置行名和列名
rownames(final_df) <- row_names
colnames(final_df) <- col_names

最终效果 #

运行完上面的代码后，final_df就是你想要的结构：

• 行名是W9001到W9016
• 列名是*KDY A1、*K6P B3、*RDY、*Rhh（完整保留了列名里的空格）
• 每个单元格对应正确的bb/aa等值

如果第一行的dat typ outc 16 4 0 0 0是有用的元数据，你可以单独提取出来保存：

meta_info <- strsplit(all_lines[1], "\\s+")[[1]]

这个方法的核心是利用列名开头带*的特征，精准区分列名和数据部分，完美解决了空格既当分隔符又在列名里的冲突问题。

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