R语言中for循环结合ggplot批量绘图的非标准求值问题

这个问题我之前也踩过坑，核心原因确实像你说的：循环里的i是字符字符串，直接塞进aes()里时，ggplot会把它当成离散的分类变量，而不是去引用数据框里对应的数值列，所以就触发了Discrete value supplied to continuous scale的错误。下面给你几种实用的解决办法：

方法1：使用.data代词（tidyverse推荐） #

这是现在tidyverse官方主推的语法，通过.data[[i]]可以直接引用字符串对应的列，明确告诉ggplot要取数据框里的数值列：

for(i in colnames(df)[-1]){
  print(
    ggplot(df, aes(x= time, y = .data[[i]])) + 
      geom_jitter(position=position_jitter(width=0.1)) + 
      scale_y_continuous(limits = c(0,100)) +
      labs(y = i) # 顺便把y轴标题改成对应列名，让图表更清晰
  )
}

方法2：使用aes_string()（兼容旧版ggplot） #

如果你用的是比较老的ggplot版本，aes_string()是专门用来接受字符串参数的映射函数，也能解决问题：

for(i in colnames(df)[-1]){
  print(
    ggplot(df, aes_string(x= "time", y = i)) + 
      geom_jitter(position=position_jitter(width=0.1)) + 
      scale_y_continuous(limits = c(0,100)) +
      labs(y = i)
  )
}

方法3：用purrr批量绘图（更符合tidyverse风格） #

如果不想写for循环，可以用purrr包的函数实现批量处理，代码更简洁，还方便后续保存图表：

library(purrr)

# 先定义一个通用的绘图函数
plot_single_col <- function(col_name) {
  ggplot(df, aes(x = time, y = .data[[col_name]])) +
    geom_jitter(position = position_jitter(width = 0.1)) +
    scale_y_continuous(limits = c(0, 100)) +
    labs(y = col_name, title = paste("散点图：", col_name, "随时间分布"))
}

# 批量生成所有图表，存到列表里
all_plots <- map(colnames(df)[-1], plot_single_col)

# 查看单个图表，比如第一个
all_plots[[1]]

# 如果需要批量保存到本地，可以用walk2
walk2(all_plots, paste0(colnames(df)[-1], ".png"), ggsave, width = 6, height = 4)

为什么原来的代码会报错？ #

当你直接写y = "value_a"时，ggplot会把这个字符串当成一个固定的离散值——所有数据点的y轴值都是这个字符串，而不是去数据框里提取value_a列的数值。scale_y_continuous要求y轴是连续数值类型，自然就会报错了。而上面的几种方法，都是明确告诉ggplot：要去数据框里找名为i的列，提取它的数值来绘图。

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