如何将嵌套列表结构的.txt文件读入R并保留原结构

我创建了一个嵌套列表，包含9个顶层元素，每个顶层元素是包含1000个基因名向量的子列表。同一顶层元素下的所有向量长度一致，但不同顶层元素间的向量长度不同。遗憾的是我将这个列表保存成了.csv和.txt文件，文件格式是R控制台打印的列表格式（示例片段如下）：

[[1]]
[[1]][[1]]
[1] "FBgn0039358" "FBgn0033482" "FBgn0039026" "FBgn0035755" "FBgn0010830"
[6] "FBgn0039727" "FBgn0037648" "FBgn0038244" "FBgn0030794" "FBgn0034989"
...
[[9]][[1000]]
[1] "FBgn0029947" "FBgn0053490" "FBgn0052631" "FBgn0036676" "FBgn0031170"
...

我需要将这个文件读回R并完全保留原嵌套列表结构，这对后续分析至关重要，且无法重新生成该列表。尝试过Stack Overflow上的相关解法，但无法适配我的数据。

以下是@onyambu提供的有效解决方法，能够准确重建原嵌套列表结构：

# 1. 读取目标文件
raw_content <- readLines("your_file_path.txt") # 替换为你的文件路径

# 2. 清理文本中的冗余标记
# 替换转义的双引号为普通双引号
clean_content <- gsub("&quot;", "\"", raw_content)
# 移除每行开头的行号（如[1]、[106]）及前置空格
clean_content <- gsub("^\\s*\\[\\d+\\]\\s*", "", clean_content)
# 移除行尾多余空格
clean_content <- gsub("\\s+$", "", clean_content)

# 3. 合并文本为符合R语法的字符串，解析重建列表
full_list_str <- paste(clean_content, collapse = "\n")
recovered_list <- eval(parse(text = full_list_str))

# 4. 验证结构是否正确
stopifnot(length(recovered_list) == 9)          # 顶层元素数应为9
stopifnot(length(recovered_list[[1]]) == 1000) # 每个顶层元素含1000个子向量

核心逻辑： #

• 你的文件本质是R控制台输出的列表文本，清理掉行号、转义符号后，就能还原为标准的R列表语法。
• eval(parse())会直接将字符串解析为R对象，完美保留原嵌套结构。
• 如果你的文件是.csv格式，只需把readLines替换为readLines("your_file.csv")即可，处理逻辑一致。

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