ggplot2包装器中Tidyeval与if语句的问题排查

问题成因解析 #

plot_1报错原因 #

plot_1中直接调用is.numeric(y)时，这里的y只是函数参数的符号，R会尝试在当前函数环境中寻找名为y的对象，而非从传入的data数据框中提取对应变量。由于函数环境中不存在childs这个对象，因此触发object 'childs' not found错误。{{ y }}仅在ggplot的aes()中实现了延迟求值，无法直接用于外部的类型判断。

plot_2无刻度值原因 #

plot_2中用enquo(y)将参数y转换为quosure对象，但is.numeric(cond)判断的是quosure对象本身的类型，而非数据框中对应变量的类型。quosure不属于numeric类型，因此条件判断进入else分支，调用了scale_y_discrete，但实际y轴变量是numeric类型，离散刻度与连续数据不匹配，导致刻度值无法正常显示。

解决方案与实现思路 #

正确判断变量类型的方法 #

核心是从传入的data中提取出y对应的实际变量，再进行类型判断，以下是两种可行方式：

方式1：结合dplyr::pull与{{ }}提取变量

plot_fixed <- function(data, x, y, fill) {
  
  plot <- ggplot(data = data,
                 mapping = aes(x = {{ x }}, y = {{ y }}, fill = {{ fill }})) +
    geom_col(position = "dodge")
  
  # 从数据框中提取y变量并判断类型
  y_var <- dplyr::pull(data, {{ y }})
  
  if (is.numeric(y_var)) {
    scale <- scale_y_continuous(expand = expansion(mult = c(0, 0.05)),
                                breaks = scales::breaks_extended(),
                                labels = scales::label_number(big.mark = "'"))
  } else if (is.factor(y_var) || is.character(y_var)) {
    scale <- scale_y_discrete(expand = expansion(mult = c(0, 0.05)))
  } else {
    # 其他类型默认不添加自定义刻度
    scale <- NULL
  }
  
  plot +
    scale +
    cowplot::theme_minimal_hgrid()
}

方式2：使用rlang工具求值quosure

若不想依赖dplyr，可使用rlang包的函数在数据环境中解析quosure：

plot_fixed2 <- function(data, x, y, fill) {
  
  plot <- ggplot(data = data,
                 mapping = aes(x = {{ x }}, y = {{ y }}, fill = {{ fill }})) +
    geom_col(position = "dodge")
  
  y_quo <- enquo(y)
  # 在data的环境中计算quosure，得到实际变量
  y_var <- rlang::eval_tidy(y_quo, data = data)
  
  if (is.numeric(y_var)) {
    scale <- scale_y_continuous(expand = expansion(mult = c(0, 0.05)),
                                breaks = scales::breaks_extended(),
                                labels = scales::label_number(big.mark = "'"))
  } else {
    scale <- scale_y_discrete(expand = expansion(mult = c(0, 0.05)))
  }
  
  plot +
    scale +
    cowplot::theme_minimal_hgrid()
}

其他实现思路 #

• 利用ggplot的自动刻度逻辑，通过修改theme或guides间接调整样式，但灵活性不如主动判断变量类型。
• 封装通用的轴刻度适配函数，支持x/y轴的自动判断，扩展函数的复用性。
• 对于复杂场景，可结合purrr包的函数式编程，批量处理不同类型的变量刻度。

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