dplyr 0.7-将分组变量指定为字符串 [英] dplyr 0.7 - Specify grouping variable as string

问题描述

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

I have some variable names specified as string (e.g. input from Shiny app) and I would like to use them in my dplyr and ggplot2 code as if they were variables.

我通过反复试验使它起作用，但是我觉得必须有更好的方法。有什么更好的方法来执行这些操作？

I got it to work by trial and error, but I feel like there must be a better way. What is a better way to perform these operations?

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))))

推荐答案

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

Either of these options are probably simpler:

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 。

...where you could use either group_by or group_by_at.

这篇关于dplyr 0.7-将分组变量指定为字符串的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！