将函数参数传递给 dplyr 和 ggplot

我对如何将函数参数传递到 dplyr 和 ggplot 代码中感到困惑。 我正在使用最新版本的 dplyr 和 ggplot2 这是我生成条形图的代码（清晰度与平均价格）

diamond.plot<- function (data, group, metric) {
    group<- quo(group)
    metric<- quo(metric)
    data() %>% group_by(!! group) %>%
           summarise(price=mean(!! metric)) %>% 
           ggplot(aes(x=!! group,y=price))+
           geom_bar(stat='identity') 
}

diamond.plot(diamonds, group='clarity', metric='price')

error:

Error in UseMethod("group_by_") : no applicable method for 'group_by_' applied to an object of class "packageIQR"

对于最新版本的 dplyr，带下划线的 verbs_() 已被轻微弃用。看来我们应该使用quosures。

我的问题：

• 有人可以澄清当前的最佳实践吗？

• 上面的代码出了什么问题？ （请不要使用下划线 dplyr 动词..）

• 在 ggplot 中，我知道我们可以使用 aes_string()，但就我而言，aes 中只有一个参数是从函数参数传递的。

提前致谢。

现在完全支持整齐评估ggplot2 v3.0.0 https://www.tidyverse.org/articles/2018/07/ggplot2-3-0-0/所以没有必要使用aes_ or aes_string不再了。

library(rlang)
library(tidyverse)

diamond_plot <- function (data, group, metric) {
    quo_group  <- sym(group)
    quo_metric <- sym(metric)

    data %>%
        group_by(!! quo_group) %>%
        summarise(price = mean(!! quo_metric)) %>%
        ggplot(aes(x = !! quo_group, y = !! quo_metric)) +
        geom_col()
}

diamond_plot(diamonds, "clarity", "price")

创建于 2018-04-16代表包 http://reprex.tidyverse.org（v0.2.0）。