RScript - ggplot() 和 ggsave() 循环不遍历列表答案

【问题标题】：RScript - ggplot() and ggsave() loop not iterating through listRScript - ggplot() 和 ggsave() 循环不遍历列表
【发布时间】：2021-07-09 20:40:18
【问题描述】：

我正在尝试使用带有 ggplot() 和 ggsave() 的循环来使用以下代码从单独的数据框列表中创建一组图：

temp2 = list(gsub("*.txt.out$", "", list.files(pattern="*.out")))
for (i in 1:length(temp2)) {
    Eg_cluster = temp2[[i]]
    df = data.frame(eval(parse(text = Eg_cluster)))
    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("snoRNA Cluster ", Eg_cluster)
    ggsave(file = print(paste0(Eg_cluster, ".pdf")), plot = myplot, device = "pdf")
}

代码成功地从列表中的第一个数据帧输出第一个图，但循环似乎没有遍历列表并在 ggsave 中生成其余图。有没有人知道为什么其余的图没有输出？

非常感谢！

【问题讨论】：

标签： r loops ggplot2

【解决方案1】：

您正在将 temp 2 设为长度为 1 的列表。

temp2 = gsub("*.txt.out$", "", list.files(pattern="*.out"))

【讨论】：

是的，做到了！非常感谢！