R语言ggplot2如何用最少代码为数据框不同变量生成独立绘图

核心需要解决两个问题：

1. 动态给aes()传列名：用.data[[字符串变量]]语法，这是tidyverse官方推荐的动态变量传入方式，可替代已弃用的aes_string()
2. 动态生成绘图对象/独立画布：可以用列表存储绘图对象、assign()函数生成全局变量、dev.new()弹出独立画布

方案1：purrr包批量生成（tidyverse生态推荐写法） #

适合需要把所有绘图对象存为命名列表/生成独立全局变量的场景，代码更简洁：

library(tidyverse)

# 1. 定义需要遍历的Y轴列名
y_cols <- paste0("v", 2:8)

# 2. 批量生成绘图对象，存入命名列表
plot_list <- map(y_cols, function(y_var) {
  df %>%
    ggplot(aes(x = v1, y = .data[[y_var]], group = id, color = id)) +
    geom_line() +
    labs(y = y_var) # 自动匹配Y轴标签
}) %>% 
  # 给列表元素命名，格式为plot_v2、plot_v3...
  set_names(paste0("plot_", y_cols))

# 可选：把列表中的绘图对象释放为全局独立变量，直接调用plot_v2即可
list2env(plot_list, envir = .GlobalEnv)

方案2：基础for循环写法 #

和Matlab循环逻辑最接近：

# 定义需要遍历的Y轴列名
y_cols <- paste0("v", 2:8)

for (y_var in y_cols) {
  # 生成绘图对象名
  plot_obj_name <- paste0("plot_", y_var)
  
  # 绘图，动态传入Y轴变量
  current_plot <- df %>%
    ggplot(aes(x = v1, y = .data[[y_var]], group = id, color = id)) +
    geom_line() +
    labs(y = y_var, title = paste0("变量", y_var, "趋势图"))
  
  # 将当前绘图对象赋值为全局独立变量
  assign(plot_obj_name, current_plot)
}

方案3：循环弹出独立画布（完全等效Matlab figure()效果） #

如果不需要保存绘图对象，只需要直接生成独立的绘图窗口，直接在循环中加dev.new()即可：

y_cols <- paste0("v", 2:8)

for (y_var in y_cols) {
  # 新建独立绘图窗口，等效Matlab的figure()
  dev.new()
  
  p <- df %>%
    ggplot(aes(x = v1, y = .data[[y_var]], group = id, color = id)) +
    geom_line() +
    labs(y = y_var, title = paste0("Y轴：", y_var))
  
  # 打印绘图到当前新建的窗口
  print(p)

  # 可选：直接批量导出为独立图片
  # ggsave(paste0(y_var, "_趋势图.png"), p, width = 8, height = 6)
}

如果你使用的是老旧版本ggplot2，不支持.data代词，可以替换为已弃用的aes_string()语法：aes_string(x = "v1", y = y_var, group = "id", color = "id")

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