R语言：用for循环在同一页面绘制多个ggplot图表的问题求助

你的代码主要有三个问题，导致所有图表都显示最后一个变量的内容：

1. ggplot延迟求值陷阱 #

在for循环里直接用x=data[, c(i)]，ggplot不会立即计算i的当前值，而是等到渲染时才取i的最终值（也就是你输入的Howmany），所以所有图表都调用了最后一个自变量。

2. 语法错误 #

scale_color_discrete(name = "dependent_variable" + labs(... 这里的+位置错误，应该把scale_color_discrete和labs作为独立图层用+连接，而且你的代码还缺失了闭合括号，导致语法不完整。

3. geom_point的size设置错误 #

把size=5放在aes()里会将其识别为数据映射，生成不必要的图例，应该直接作为参数放在geom_point()外面。

修正后的代码 #

Howmany <- readline(prompt="请输入自变量的数量: ") 
Howmany <- as.numeric(Howmany)
plot_lst <- vector("list", length = Howmany) 

for (i in 1:Howmany) {
  # 提取当前变量名
  var_name <- names(data)[i]
  # 用local包裹，强制捕获当前迭代的变量值
  plot_lst[[i]] <- local({
    current_var <- var_name
    ggplot(data = data, aes(x = .data[[current_var]], y = gender)) +
      geom_point(size = 5) +  # 直接设置点大小，不放在aes里
      scale_color_discrete(name = "因变量") +  # 修正语法，拆分scale和labs
      labs(
        title = paste("逻辑回归拟合模型", i),
        x = current_var,
        y = "gender"
      )
  })
}

# 确保已加载multiplot所在包（比如ggpubr）
# library(ggpubr)
multiplot(plotlist = plot_lst, cols = 1)

关键修改说明 #

• 用local()包裹循环内的ggplot代码，强制每次迭代都捕获当前的变量名，避免延迟求值问题。
• 使用.data[[current_var]]引用变量，符合ggplot规范，同时规避环境变量冲突。
• 修正了scale_color_discrete与labs的语法错误，补充了缺失的括号。
• 将size=5移到geom_point()外，取消不必要的大小图例。

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