R语言中ggplot()与ggsave()循环遍历列表仅生成首图的异常问题咨询

• temp2构造逻辑错误：代码中temp2 = list(gsub("*.txt.out$", "", list.files(pattern="*.out")))直接将gsub返回的完整文件名向量作为list()的唯一元素，最终temp2的长度恒为1。无论文件夹内有多少个匹配的.out文件，length(temp2)的计算结果始终为1，循环自然仅会执行1次，无法遍历剩余目标。
• ggsave()路径传参错误：代码中file = print(paste0(Eg_cluster, ".pdf"))嵌套了print()函数，该函数会将字符串输出到控制台，本身返回invisible(NULL)，相当于给文件路径参数传入空值，即使循环能正常遍历，也无法正确保存图表文件。
• 正则匹配逻辑失效：代码中使用"*.txt.out$"作为gsub的匹配规则，正则中*是匹配前一个字符0次或多次的量词，规则开头直接写*属于无效写法，无法正确剥离文件名后缀，容易导致路径拼接异常。
• 绘图函数参数错误：代码中ggtitle("snoRNA Cluster ", Eg_cluster)不符合函数语法，ggtitle()仅会把第一个参数作为标题文本，第二个参数不会拼接到标题中，会出现无意义的语法报警。
• 无错误捕获机制：直接通过eval(parse(text = 变量名))读取全局环境对象，一旦某一步对象读取失败、数据字段缺失，循环会直接静默中断，不会抛出明确的位置提示。

• 首先验证遍历目标的实际长度：执行str(temp2)、length(temp2)确认列表/向量的元素个数，修正temp2的构造逻辑：去掉无意义的list()嵌套，将gsub处理后的文件名向量直接作为遍历目标，保证遍历长度和实际匹配的文件数一致。
• 修正ggsave()的传参逻辑：去掉路径参数内的print()嵌套，直接将拼接好的文件名字符串传入file/filename参数，避免返回空值导致保存失败。
• 修正正则匹配规则：对正则中的特殊符号.添加转义符\\，将无效的"*.txt.out$"替换为"\\.txt\\.out$"，保证可以准确剥离文件名后缀，生成合法的输出文件路径。
• 修正标题拼接逻辑：用paste()将标题固定文本和集群名称拼接为完整字符串，传入ggtitle()，避免参数错位。
• 增加循环过程的状态提示与错误捕获：每轮循环打印当前处理的对象名称，用tryCatch()包裹数据读取、绘图的步骤，遇到单元素处理失败时直接跳过，不中断整个批量流程，同时快速定位出错的具体节点。

修正后的可运行参考代码 #

# 构造待遍历的集群名称向量
file_list <- list.files(pattern = "\\.out$")
cluster_names <- gsub("\\.txt\\.out$", "", file_list)

# 逐轮遍历处理
for (i in seq_along(cluster_names)) {
    current_cluster <- cluster_names[i]
    message("开始处理集群：", current_cluster)
    
    # 带错误捕获的数据读取
    df <- tryCatch(
        eval(parse(text = current_cluster)),
        error = function(e) {
            message("数据读取失败：", e$message, "，跳过当前节点")
            return(NULL)
        }
    )
    if (is.null(df)) next
    
    # 绘制簇图
    myplot <- ggplot(df, aes(xmin = start, xmax = end, y = molecule, fill = gene)) +
        geom_gene_arrow() +
        facet_wrap(~ molecule, scales = "free", ncol = 3) +
        scale_fill_brewer(palette = "Set3") +
        theme_genes() +
        ggtitle(paste0("snoRNA Cluster ", current_cluster))
    
    # 保存图表
    ggsave(
        filename = paste0(current_cluster, ".pdf"),
        plot = myplot,
        device = "pdf"
    )
}

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