R中如何通过自定义函数调用dplyr、ggplot2实现自动化绘图

• dplyr::select()未指定操作的数据源：你定义的函数入参为数据集x，但代码中直接写select(var1, var2)，程序无法识别要从哪个数据集提取变量，自然会报var1未找到。
• ggplot()未接收传入的数据集：链式操作输出的数据集没有传递给ggplot函数，同时aes的非标准求值在自定义函数作用域下会出现变量查找失败的问题。
• 存在语法疏漏：代码中ggplot(aes(x = var1, y = var2)缺失右括号，ggplot图层叠加需要用+而非dplyr的管道符%>%。

固定变量版本（绘图固定取数据集中的var1、var2列） #

library(dplyr)
library(ggplot2)

graph_plot <- function(x) {
  gp1 <- x %>% 
    select(var1, var2) %>%
    ggplot(aes(x = var1, y = var2)) +
    geom_bar(stat = "identity")
  return(gp1)
}

# 调用函数，x为你的目标数据集
graph_plot(x)

如果你的柱状图不需要映射y值，仅统计var1的出现频次，可简化为：

graph_plot <- function(x) {
  gp1 <- x %>% 
    ggplot(aes(x = var1)) +
    geom_bar()
  return(gp1)
}

动态变量版本（支持调用时自定义绘图列） #

如果需要函数适配不同列名的数据集，可使用rlang的{{ }}运算符处理非标准求值：

library(dplyr)
library(ggplot2)
library(rlang)

graph_plot <- function(data, x_col, y_col = NULL) {
  if (is.null(y_col)) {
    # 仅统计x列频次的场景
    p <- data %>% 
      ggplot(aes(x = {{x_col}})) +
      geom_bar()
  } else {
    # 映射x、y列的场景
    p <- data %>% 
      select({{x_col}}, {{y_col}}) %>% 
      ggplot(aes(x = {{x_col}}, y = {{y_col}})) +
      geom_bar(stat = "identity")
  }
  return(p)
}

# 调用示例：统计var1频次
graph_plot(x, var1)
# 调用示例：绘制var1为x轴、var2为y轴的柱状图
graph_plot(x, var1, var2)

• ggplot2叠加图层统一使用+号，不要和dplyr的管道符%>%混淆
• geom_bar()默认统计x变量的出现次数，无需指定y映射；如果要直接使用y列的原始值作为柱高，必须添加stat = "identity"参数

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