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(df, as.name(someString)) 打电话怎么样？

Answer 2

这些选项中的任何一个都可能更简单：

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。

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

dplyr 0.7 - Specify grouping variable as string

r

ggplot2

dplyr

rlang