R语言循环使用ggsave/png保存散点图异常问题求助

核心问题分析 #

你的代码里最关键的错误是ggplot的aes(y = i)这一行：i是字符类型的变量名，直接放在aes()里ggplot无法正确解析为数据框的列，导致绘图逻辑出错——RStudio里能正常显示可能是环境上下文的临时兼容，但批量保存时就会暴露问题。另外，png()函数的宽高默认单位是像素，和RStudio绘图窗口的尺寸逻辑不同，也可能加剧显示异常。

修复方案 #

方案1：使用.data代词解析变量（推荐） #

把aes(y = i)改成aes(y = .data[[i]])，这是ggplot2推荐的动态引用列名的方法，能正确识别循环中的字符变量；同时改用ggsave，它能自动适配ggplot对象的尺寸逻辑，无需手动管理设备：

library(ggplot2)
library(ggrepel)

for (i in traits) {
  scatter <- ggplot(datos, aes(x = TREATMENT, y = .data[[i]], 
                               label = ifelse(TREATMENT %in% checks, TREATMENT, ""))) +
    geom_text_repel(size = 2,
                    point.padding = 0.2, 
                    nudge_x = 0.05,
                    nudge_y = 0,
                    segment.curvature = 0, max.overlaps = Inf,
                    arrow = arrow(length = unit(0.015, "npc"))) +
    geom_point(aes(color = pop), size = 1, na.rm = TRUE) + 
    theme_classic() + 
    scale_colour_brewer(palette = "Set1")
  
  ggsave(paste0("images/01_scatterplot_raw_", i, ".png"), 
         plot = scatter, 
         width = 10, height = 10, units = "cm", 
         dpi = 300)
}

方案2：修复变量引用并统一png单位 #

如果坚持使用png()，需要同时修复y轴变量引用，并指定物理单位和分辨率，和RStudio绘图窗口逻辑对齐：

for (i in traits) {
  scatter <- ggplot(datos, aes(x = TREATMENT, y = .data[[i]], 
                               label = ifelse(TREATMENT %in% checks, TREATMENT, ""))) +
    geom_text_repel(size = 2,
                    point.padding = 0.2, 
                    nudge_x = 0.05,
                    nudge_y = 0,
                    segment.curvature = 0, max.overlaps = Inf,
                    arrow = arrow(length = unit(0.015, "npc"))) +
    geom_point(aes(color = pop), size = 1, na.rm = TRUE) + 
    theme_classic() + 
    scale_colour_brewer(palette = "Set1")
  
  png(file = paste0("images/01_scatterplot_raw", i, ".png"), 
      width = 10, height = 10, units = "cm", res = 300)
  print(scatter)
  dev.off()
}

额外优化点 #

• 移除了aes()里多余的size = 0.4，该参数属于geom_point，放在全局aes会干扰其他图层
• 用TRUE替代T，避免和自定义变量名冲突

内容的提问来源于stack exchange，提问作者Paula Andrea Espitia Buitrago