R语言批量绘制ggplot时如何基于对应CSV文件名设置图表标题

• 构造list_of_df时没有给列表元素命名，后续无法通过列表结构获取对应CSV的文件名标识
• 绘图函数中对传入的数据框调用names()，拿到的是数据框的列名，并非列表层面存储的文件名，这是标题取值错误的直接原因

1. 为列表元素绑定对应CSV文件名 #

构造列表时，将原始CSV文件名作为元素名显式赋值，保证后续可以从列表中取出对应名称：

library(tidyverse)

# 构造测试数据框
df1_09 <- data.frame(
  first_column = c(1, 2, 3, 4),
  second_column = c(5, 6, 7, 8)
)
df1_10 <- data.frame(
  first_column = c(4, 2, 3, 1),
  second_column = c(8, 6, 7, 5)
)
df2_09 <- data.frame(
  first_column = c(9, 10, 11, 12),
  second_column = c(13, 14, 15, 16)
)
df2_10 <- data.frame(
  first_column = c(12, 10, 11, 9),
  second_column = c(16, 14, 15, 13)
)

# 给列表元素赋值为对应CSV文件名
list_of_df <- list(
  df1_09 = df1_09,
  df1_10 = df1_10,
  df2_09 = df2_09,
  df2_10 = df2_10
)

# 验证名称绑定结果
names(list_of_df)
#> [1] "df1_09" "df1_10" "df2_09" "df2_10"

2. 调整批量绘图逻辑，将文件名传入绘图函数 #

原写法直接遍历数据框内容，无法拿到对应的元素名。改成遍历列表名称的方式，把文件名作为独立参数传入绘图函数：

# 重构绘图函数：新增plot_title参数，接收文件名作为图表标题
plot_data <- function(data, plot_title) {
  ggplot(data) +
    # 用.data语法取列，避免aes环境歧义
    geom_point(aes(x = .data[[names(data)[1]], y = .data[[names(data)[2]]])) +
    xlim(0, 12) +
    ylim(5, 16) +
    ggtitle(plot_title) +
    xlab("x axis") +
    ylab("y axis") +
    theme_bw()
}

# 遍历列表元素名称，联动取出对应数据绘图
myplots <- lapply(
  X = names(list_of_df),
  FUN = function(element_name) {
    current_data <- list_of_df[[element_name]]
    plot_data(data = current_data, plot_title = element_name)
  }
)

每个生成图表的标题会和对应CSV文件名完全匹配：

# 提取第一个图表的标题校验
myplots[[1]]$labels$title
#> [1] "df1_09"

后续如果需要批量导出图表，可直接复用列表的命名属性，将元素名作为输出文件的后缀，实现图表和源CSV文件的一一对应，无需手动重复命名。

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