dplyr 0.7 - 指定分组变量作为字符串

Question

我有一些指定为字符串的变量名称（例如来自Shiny应用程序的输入），我想在我的dplyr和ggplot2代码中使用它们，就好像它们是变量一样。

我通过反复试验了解了它的工作原理，但我觉得必须有更好的方法。什么是更好的方式来执行这些操作？

library(rlang) 
library(ggplot2) 
library(dplyr) 

someString <- "g1" 

df <- tibble(
    g1 = c(1, 1, 2, 2, 2), 
    g2 = c(1, 2, 1, 2, 1), 
    a = sample(5), 
    b = sample(5) 
) 

my_summarise <- function(df, group_var) { 
    print(group_var) 

    df %>% 
    group_by(!!group_var) %>% 
    summarise(a = mean(a)) 
} 

my_plot <- function(df, group_var) { 
    print(group_var) 

    ggplot(data = df %>% 
      group_by(!!group_var) %>% 
      summarise(a = mean(a)), 
     aes_string(x = quo_name(group_var), y = "a")) + 
    geom_bar(stat = "identity") 
} 

my_summarise(df, quo(UQ(sym(someString)))) 

my_plot(df, quo(UQ(sym(someString)))) 

Answer 1

的这两种选项可能简单：

my_summarise <- function(df, group_var) { 
    print(group_var) 

    df %>% 
    #Either works 
    group_by_at(.vars = group_var) %>% 
    #group_by(!!sym(group_var)) %>% 
    summarise(a = mean(a)) 
} 

my_summarise(df,someString) 

my_plot <- function(df, group_var) { 
    print(group_var) 

    ggplot(data = df %>% 
      group_by_at(.vars = group_var) %>% 
      #group_by(!!sym(group_var)) %>% 
      summarise(a = mean(a)), 
     aes_string(x = group_var, y = "a")) + 
    geom_bar(stat = "identity") 
} 

my_plot(df, someString) 

...在这里你可以使用任何group_by或group_by_at。

Answer 2

那么打电话给my_summarise(df, as.name(someString))呢？