如何使用ggplot2绘制多个相同前缀序列变量的差值图

你给出的代码报错主要来自两个问题：

• 语法逻辑错误：paste0('var', t) - paste0('var', t - 1) 是对两个字符串执行减法，R无法直接识别为数据框对应列的差值运算
• 接口弃用问题：aes_string 是ggplot2已停止维护的废弃接口，不支持复杂的列运算场景

两种方案都不需要修改原数据框新增列，直接在ggplot的映射逻辑中完成差值计算： #

方案1：使用.data代词（无需额外加载包） #

借助ggplot2内置的.data代词索引对应列，代码如下：

library(tibble)
library(ggplot2)

# 示例数据，你可以替换为自己的tibble
df <- tibble(key     = seq(1, 100), 
             var2000 = round(runif(100)), 
             var2001 = round(runif(100)),
             var2002 = round(runif(100)))

plots <- list()
# 按需修改循环的年份区间，比如2001到2020就写seq(2001,2020)
year_range <- seq(2001, 2002)

for (t in year_range) {
  col_t <- paste0("var", t)
  col_t_1 <- paste0("var", t - 1)
  plots[[as.character(t)]] <- ggplot(df) +
    geom_bar(aes(x = .data[[col_t]] - .data[[col_t_1]]))
}

调用绘图结果直接取列表元素即可，比如查看2001年的图：plots[["2001"]] #

方案2：使用整洁评估语法（适合复杂映射场景） #

如果你已经习惯tidyverse的整洁评估逻辑，可以用符号解引用的方式实现：

library(tibble)
library(ggplot2)
library(rlang)

df <- tibble(key     = seq(1, 100), 
             var2000 = round(runif(100)), 
             var2001 = round(runif(100)),
             var2002 = round(runif(100)))

plots <- list()
year_range <- seq(2001, 2002)

for (t in year_range) {
  col_t <- sym(paste0("var", t))
  col_t_1 <- sym(paste0("var", t - 1))
  plots[[as.character(t)]] <- ggplot(df) +
    geom_bar(aes(x = !!col_t - !!col_t_1))
}

两种方案执行效率没有明显差异，你可以根据自己的使用习惯选择。

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