嘿，我来帮你搞定这个R语言写入文件的问题！

日常用的写入方式主要分这几类，对应不同的数据结构：

• 标准表格类（数据框/矩阵）：用write.csv()、write.table()或者data.table::fwrite()，适合导出规整的行列数据
• 纯文本类：cat()、writeLines()，适合处理字符向量
• R专属格式：saveRDS()、save()，用来保存R特有的对象（比如列表、模型），能完整保留原始结构

你遇到的报错arguments imply differing number of rows: 65, 30, 27...，本质是kegg.gs不是规整的矩形数据（比如数据框），而是一个列表——KEGG基因集的结构就是每个通路对应一个基因向量，不同通路的基因数量不一样，自然行数没法统一，用要求行列一致的表格写入函数肯定会报错。

下面给你几个针对性的解决方法，按需选择：

方法1：保存为R专属格式（最推荐，保留原始结构） #

如果你之后还要在R里继续分析这个数据，直接存成RDS或者RData是最省心的，完全保留列表的原始结构：

# 保存单个对象为RDS格式
saveRDS(kegg.gs, file = "kegg.gs.rds")
# 后续读取的话
kegg.gs <- readRDS("kegg.gs.rds")

# 也可以存成RData（能同时保存多个R对象）
save(kegg.gs, file = "kegg.gs.RData")
# 读取时直接加载
load("kegg.gs.RData")

方法2：转成长格式数据框后导出表格 #

如果需要导出成CSV/TSV给其他工具用，把列表转换成长格式数据框（每一行对应一个基因+它所属的通路）：

用tidyverse工具包实现（代码更简洁） #

library(tibble)
library(tidyr)

# 把列表转成长数据框
kegg_long_df <- enframe(kegg.gs, name = "通路名称", value = "基因") %>%
  unnest(cols = c(基因))

# 写入CSV
write.csv(kegg_long_df, file = "kegg_长格式数据.csv", row.names = FALSE)

用基础R实现（不用额外装包） #

# 提取通路名称和对应基因
通路名称 <- rep(names(kegg.gs), sapply(kegg.gs, length))
基因 <- unlist(kegg.gs)

# 组合成数据框
kegg_long_df <- data.frame(通路名称, 基因)

# 写入CSV
write.csv(kegg_long_df, file = "kegg_长格式数据.csv", row.names = FALSE)

方法3：按通路逐行写入文本（每个通路一行，基因用分隔符分隔） #

如果想让每个通路占一行，后面跟着该通路的所有基因（比如用逗号分隔），可以这么做：

# 生成每行的内容：通路名,基因1,基因2,...
每行内容 <- paste(names(kegg.gs), sapply(kegg.gs, paste, collapse = ","), sep = ",")

# 写入文本文件
writeLines(每行内容, con = "kegg_通路基因列表.txt")

最后补一句：你之前用的write.csv()、write.table()这些函数只认规整的矩形数据，而kegg.gs是长度不一的列表，所以才会报错，选上面的方法就能解决啦！

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