使用循环批量生成多组相关性散点图（基于ggplot2）

核心思路 #

通过循环遍历所有变量两两组合，复用你提供的ggplot代码模板，动态替换x/y变量并自动保存图表。需要用到ggplot2绘图包和提供stat_cor的ggpubr包。

完整代码实现 #

# 安装并加载所需包（首次运行需安装ggpubr）
# install.packages(c("ggplot2", "ggpubr"))
library(ggplot2)
library(ggpubr)

# 获取mtcars的所有列名
col_names <- names(mtcars)

# 生成所有两两不重复的变量组合（无序，避免重复绘制反向组合如mpg vs cyl和cyl vs mpg）
var_pairs <- combn(col_names, 2)

# 循环生成并保存每个组合的图表
for (i in 1:ncol(var_pairs)) {
  # 提取当前组合的x、y变量名
  x_var <- var_pairs[1, i]
  y_var <- var_pairs[2, i]
  
  # 绘制散点图（复用你的模板，用.data[[var]]处理动态变量名）
  plot <- ggplot(mtcars, aes(x = .data[[x_var]], y = .data[[y_var]])) +
    geom_point(size = 3.5) +
    guides(fill = guide_legend(override.aes = list(shape = 21))) +
    stat_cor(method = "pearson", label.x = 0.1, label.y = 0.9) + # 调整相关系数标签位置
    geom_smooth(method = lm, alpha = 0.1, color = "black") +
    labs(x = x_var, y = y_var) # 明确标注坐标轴
  
  # 保存为TIF格式，文件名包含变量组合信息
  ggsave(
    filename = paste0(x_var, "_vs_", y_var, ".tif"),
    plot = plot,
    device = "tiff",
    dpi = 300, # 控制图片分辨率
    width = 6, height = 4 # 控制图片尺寸
  )
}

可选扩展：生成所有有序组合（含反向） #

如果需要同时绘制mpg vs cyl和cyl vs mpg这类反向组合，替换变量组合生成代码为：

# 生成所有有序变量组合，排除x与y相同的情况
var_pairs_ordered <- expand.grid(x = col_names, y = col_names, stringsAsFactors = FALSE)
var_pairs_ordered <- var_pairs_ordered[var_pairs_ordered$x != var_pairs_ordered$y, ]

# 循环遍历有序组合
for (i in 1:nrow(var_pairs_ordered)) {
  x_var <- var_pairs_ordered$x[i]
  y_var <- var_pairs_ordered$y[i]
  # 后续绘图、保存代码与上文一致
}

注意事项 #

• 图表默认保存在当前工作目录，可用getwd()查看路径，setwd("你的目标路径")切换保存位置
• 可根据需求调整ggsave中的dpi、width、height参数，优化图片质量和尺寸
• stat_cor的label.x和label.y参数用于调整相关系数标签位置，避免遮挡数据点

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