r - 将 dplyr SE 与 ggplot2 一起使用

Question

我经常将dplyr和ggplot2结合在包装函数中进行分析。当我使用 tidyeval 迁移到 v.0.7.1 的新 NSE/SE 范例时，我正在努力让这种组合发挥作用。我发现 ggplot 还不理解未加引号的引号。以下不起作用:

example_func <- function(col) {
  col <- enquo(col)
  mtcars %>% count(!!col) %>% 
    ggplot(aes((!!col), n)) +
    geom_bar(stat = "identity")
}
example_func(cyl)
# Error in !col : invalid argument type

我目前使用以下解决方法。但我认为一定有更好的方法。

example_func2 <- function(col) {
  col <- enquo(col)
  mtcars %>% count(!!col) %>% 
    ggplot(aes_string(rlang::quo_text(col), "n")) +
    geom_bar(stat = "identity")
}

请告诉我结合这两者的最佳方法是什么。谢谢!

Answer 1

如果您已经在处理 quosures，那么使用 aes_ 会更容易，它接受作为公式引用的输入:aes_(col, ~n)。

这段代码解决了您的问题:

library(tidyverse)
example_func <- function(col) {
  col <- enquo(col)
  mtcars %>% count(!!col) %>% 
    ggplot(aes_(col, ~n)) +
    geom_bar(stat = "identity")
}

example_func(cyl)