如何将定制ggpairs()绘图对象累积到列表对象中

我来帮你搞定这个需求！下面是完整的可复现代码，能生成你需要的GGally绘图列表——每个图都会在主数据集的基础上，叠加指定数量的橙色子集点，完全匹配你描述的三个示例场景：

首先得加载需要的R包：

library(ggplot2)
library(GGally)

接下来写一个自定义函数，用来批量生成符合要求的绘图，这样后续添加更多图也很方便：

create_ggally_plot <- function(data, x_col, y_col, subset_n) {
  # 随机选取指定数量的子集数据（如果需要固定子集，可在函数外加set.seed()）
  subset_data <- data[sample(nrow(data), subset_n), ]
  
  # 用GGally的ggscatter生成主图，再叠加橙色子集点
  ggscatter(data, x = x_col, y = y_col, color = "blue", alpha = 0.6) +
    geom_point(data = subset_data, aes(x = .data[[x_col]], y = .data[[y_col]]), 
               color = "orange", size = 3, alpha = 0.8) +
    labs(title = paste0("Plot_", which(sapply(plot_params, function(p) p$x == x_col)), ": ", y_col, " vs ", x_col),
         subtitle = paste0("橙色叠加点数量: ", subset_n)) +
    theme_minimal()
}

然后定义每个绘图的参数，生成绘图列表：

# 设置三个绘图的参数：x列名、y列名、橙色点数量
plot_params <- list(
  list(x = "cyl", y = "mpg", n = 1),
  list(x = "disp", y = "mpg", n = 20),
  list(x = "hp", y = "mpg", n = 30)
)

# 生成绘图列表
plot_list <- lapply(plot_params, function(params) {
  create_ggally_plot(mtcars, params$x, params$y, params$n)
})

• 查看单个绘图：比如要查看第一个图，直接运行 plot_list[[1]]；第二个图用 plot_list[[2]]，以此类推。
• 如果需要固定每次生成的子集（避免随机选取的差异），可以在生成子集前添加 set.seed(123)（数字可自定义）。
• 想要添加更多绘图，只需要在plot_params里新增对应的参数列表即可。

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