如何使自定义ggplot函数正确引用参数并生成目标绘图？

你的问题出在非标准求值的处理上：ggplot的aes()不会自动识别函数参数对应的数据框列，且ggtitle(metric)无法把变量名转为字符串。以下是两种可行的修改方案：

方案一：使用{{ }}（推荐，简洁直观） #

利用rlang包的{{ }}语法，直接告诉ggplot解析传入的参数：

plot_eval <- function(data, metric) {
  data |> 
    ggplot(aes(x = cut, y = {{ metric }})) +
    geom_point() +
    ggtitle(rlang::as_name(enquo(metric)))
}

• {{ metric }}：将参数metric映射为数据框中的对应列
• rlang::as_name(enquo(metric))：把传入的变量名（比如price）转为字符串，作为图表标题

方案二：使用enquo()和!! #

手动捕获参数并强制求值，适合需要更精细控制的场景：

plot_eval <- function(data, metric) {
  # 捕获传入的参数表达式
  metric_expr <- enquo(metric)
  data |> 
    ggplot(aes(x = cut, y = !!metric_expr)) +
    geom_point() +
    ggtitle(rlang::as_name(metric_expr))
}

修改后调用plot_eval(diamonds, price)，就能生成和直接绘图代码完全一致的散点图。

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