R语言：使用read.table读txt仅返回一列，如何拆分5列？

我来帮你搞定这个问题！你遇到的情况很典型：文件里前三个字段是用单个空格分隔的无空格内容，但第4、5列本身包含空格，直接用sep=" "会让R把所有空格都当成分隔符，导致列数混乱报错。下面给你几个靠谱的解决办法：

方法一：用固定宽度读取（read.fwf） #

如果你的前三个字段长度是固定的（比如例子里的00004是5位、A009是4位、1是1位），这种方法最稳妥：

# 定义每列的宽度，前三个列的宽度是5、4、1，后面两个列可根据实际内容调整宽度
df <- read.fwf("your_file.txt", widths = c(5, 4, 1, 20, 20), strip.white = TRUE)

这里widths参数指定每列的字符宽度，strip.white=TRUE会自动去掉字段前后的空格，避免多余空格干扰。

方法二：先读行再用正则拆分 #

如果字段宽度不固定，用正则表达式精准拆分每行是更好的选择：

# 先读取所有行
lines <- readLines("your_file.txt")
# 用正则表达式拆分每行：前三个是无空格的字段，后两个是含空格的字段
split_lines <- strsplit(lines, "^(\\S+) (\\S+) (\\S+) (.+) (.+)$", perl = TRUE)
# 提取拆分后的内容并转成数据框
df <- do.call(rbind, lapply(split_lines, function(x) x[-1])) # 去掉正则匹配产生的空元素
colnames(df) <- c("Col1", "Col2", "Col3", "Col4", "Col5")
# 按需转换数据类型，比如把第三列转成数值型
df$Col3 <- as.numeric(df$Col3)

正则表达式^(\\S+) (\\S+) (\\S+) (.+) (.+)$的逻辑是：

• \\S+匹配一个或多个非空格字符，对应前三个无空格字段
• .+匹配任意字符，对应后两个含空格的完整字段

方法三：read.table配合fill参数（应急方案） #

如果文件大部分行结构一致，只有少数行有问题，可以临时用这个方法：

df <- read.table("your_file.txt", sep = " ", fill = TRUE, col.names = paste0("Col", 1:5))

fill=TRUE会自动填充缺失的列，但这种方法可能需要手动修正少数被错误拆分的行，适合临时应急。

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