R语言导入txt文本报错：more columns than column names（列的数目比列的名字要多）问题解决

关注

原创最新推荐文章于 2026-09-27 23:08:28 发布 1.1w 阅读 AI 写同款· GEO 优化 ›

Excel自动转日期如何污染基因名：生物信息学数据安全避坑指南基因命名是生物信息学中承载功能与唯一性的关键标识，其字符串形式（如SEPT2、MARCH1）却天然符合Excel基于模式匹配的日期识别规则——‘字母缩写+数字’结构被误判为‘2-Sep’‘1-Mar’等日期格式。这种语义层面的工具逻辑与生物学命名规范的根本冲突，导致数据在导入、保存、协作过程中发生静默篡改，进而引发下游分析失败、结果不可重复甚至论文结论偏差。其技术价值在于暴露了通用办公软件在精密生命科学数据处理中的系统性风险；典型应用场景覆盖RNA-seq差异基因列表交付、GEO数据复现、临床队列样本ID管阅读详情

R语言导入txt文本报错：more columns than column names（列的数目比列的名字要多）问题解决

mergedata <- do.call("rbind",
                     lapply(dir,
                            function(x){ data = read.table(x,sep = "|",
                                                            colClasses="character",                                                             
                                                             header = T)
                            
                                   data$项目 <- unlist(strsplit(x,'/'))[length(unlist(strsplit(x,'/')))]
                                    return(data)}
))

今天在用R批量导入TXT文件进行合并时（代码如上），报错：

Error in read.table(x, sep = "|", colClasses = "character", header = T) : 
  more columns than column names

在查看了帮助后，将各个参数逐一试了一下，将默认参数全部反选了一遍：

read.table(file, header = FALSE, sep = "", quote = "\"'",
           dec = ".", numerals = c("allow.loss", "warn.loss", "no.loss"),
           row.names, col.names, as.is = !stringsAsFactors,
           na.strings = "NA", colClasses = NA, nrows = -1,
           skip = 0, check.names = TRUE, fill = !blank.lines.skip,
           strip.white = FALSE, blank.lines.skip = TRUE,
           comment.char = "#",
           allowEscapes = FALSE, flush = FALSE,
           stringsAsFactors = default.stringsAsFactors(),
           fileEncoding = "", encoding = "unknown", text, skipNul = FALSE)

最终在修改到fileEncoding = ""时突然想到会不会是编码问题，尝试令fileEncoding = "utf-8"，竟然成功读取了！！！

修改后代码如下：

mergedata <- do.call("rbind",
                     lapply(dir,
                            function(x){ data = read.table(x,sep = "|",
                                                             colClasses="character",
                                                             fileEncoding = "utf-8",
                                                             header = T)
                            
                                   data$项目 <- unlist(strsplit(x,'/'))[length(unlist(strsplit(x,'/')))]
                                    return(data)}
))