R语言中自动化绘制数据框子集列对比图的问题求助

问题背景 #

R语言新手，想要从数据框中选取第3到9列的所有列对，绘制两两对比散点图（按time列分面）并保存。尝试用lapply时across函数无效，改用for循环时x、y被识别为数据框对象，导致图表为空，原代码如下：

library(dplyr)
library(ggplot2)
library(ggpubr)
auto_graph <-function(.data, x, y){
    myplot <- ggplot(.data,
    mapping = aes(x = .data[[x]], y = .data[[y]])) + 
    geom_point(color = "cornflowerblue",
                alpha = .5,
                size = 3) +
    geom_smooth(method = "lm") +
    stat_regline_equation(label.y = 25, aes(label = ..eq.label..)) +
    stat_regline_equation(label.y = 20, aes(label = ..rr.label..)) +
    facet_wrap(~time)
    myplot <- myplot + labs(title = paste(names(x), names(y)))

    #ggsave(filename=paste(names(x), names(y),".png"), myplot, path="C:/Users/...")
    return myplot
}

foo <- lapply(temp, function(x) auto_graph(x, across(3:9), across(3:9)))
foo[[1]]

错误原因 #

1. across是dplyr中用于数据框内列选择的函数，返回列选择器而非列名字符向量，不能直接作为参数传给自定义函数
2. 原函数中paste(names(x), names(y))逻辑错误：若x是列名字符串，names(x)会返回NULL，应直接使用x、y本身
3. lapply调用逻辑错误：未生成需要的两两列组合，而是直接传递整个列选择器，导致x、y被识别为数据框对象

修正后的代码 #

library(dplyr)
library(ggplot2)
library(ggpubr)

# 1. 定义绘图函数：接收列名字符串作为x、y参数
auto_graph <- function(.data, x_col, y_col) {
    ggplot(.data, aes(x = .data[[x_col]], y = .data[[y_col]])) +
        geom_point(color = "cornflowerblue", alpha = .5, size = 3) +
        geom_smooth(method = "lm") +
        stat_regline_equation(label.y = 25, aes(label = ..eq.label..)) +
        stat_regline_equation(label.y = 20, aes(label = ..rr.label..)) +
        facet_wrap(~time) +
        labs(title = paste(x_col, "vs", y_col),
             x = x_col, y = y_col) # 补充坐标轴标签提升可读性
}

# 2. 提取需要配对的列名（假设temp是嵌套数据框，取第一个子数据框的3-9列名，可按需调整）
target_cols <- names(temp[[1]])[3:9]

# 3. 生成所有两两列组合（包含x≠y的所有配对）
col_pairs <- expand.grid(x = target_cols, y = target_cols, stringsAsFactors = FALSE)
# 若需避免重复（只保留上/下三角组合），可改用：
# col_pairs <- t(combn(target_cols, 2)) %>% as.data.frame() %>% rename(x = V1, y = V2)

# 4. 遍历每个子数据框+每个列对，生成所有图表
all_plots <- lapply(temp, function(sub_df) {
    lapply(1:nrow(col_pairs), function(i) {
        auto_graph(sub_df, col_pairs$x[i], col_pairs$y[i])
    })
})

# 5. 批量保存图表（示例：保存第一个子数据框的所有图）
save_path <- "C:/Users/..." # 替换为你的实际保存路径
dir.create(save_path, recursive = TRUE, showWarnings = FALSE) # 自动创建目录
for(i in 1:length(all_plots[[1]])) {
    ggsave(filename = paste0(col_pairs$x[i], "_vs_", col_pairs$y[i], ".png"),
           plot = all_plots[[1]][[i]],
           path = save_path,
           width = 10, height = 8)
}

# 查看第一个子数据框的第一个图
all_plots[[1]][[1]]

关键说明 #

• 用names(temp[[1]])[3:9]直接提取目标列的字符串名称，替代无效的across
• 用expand.grid生成所有列对组合，确保每个列都和其他列配对绘图
• 自定义函数接收列名字符串，用.data[[x_col]]正确引用数据框中的列
• 补充坐标轴标签提升图表可读性；增加自动创建保存目录的逻辑，避免路径不存在报错

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