R ggplot2：如何将美学参数用作函数的一部分？

Question

我想定义一个具有多个直方图作为输出的函数。我的输入是：一个数据框，一个用于binwidth的变量以及美学中“ x变量”的名称。不幸的是，代码无法正常工作，因此我可能需要以其他方式指定输入。有人可以帮忙吗？代码如下：

```
histograms <- function(InputData, my_binwidth, my_xvariable) {
  hist_template <- ggplot(aes(x = my_xvariable, y=..density..), 
                          data = InputData) +
    geom_histogram(binwidth=my_binwidth)


  hist_unscaled <- hist_template +
    scale_x_continuous() +
    labs(title = "No Scaling") 

  result <-  list(hist_template=hist_template,hist_unscaled=hist_unscaled)
  return(result)
}

testhist <- histograms(WineData,0.1,residual.sugar)  ```

Answer 1

如果将变量包装在rlang的{​​{1}}函数中，则可以执行以下操作：

enquo