r - 在R中将字符串作为参数传递

Question

我想在相当定期的基础上传递在代码中用作参数的字符串。对于上下文，我经常想要一个部分，我可以在其中传递过滤标准或假设，然后流经我的分析、绘图等，使其更具交互性。

下面是一个简单的例子。我见过 eval/parse 解决方案，但似乎这使代码块不可读。有没有更好/更清洁/更短的方法来做到这一点？

column.names <- c("group1", "group2") #two column names I want to be able to toggle between for grouping
select.column <- group.options[1] #Select the column for grouping

DataTable.summary <- 
  DataTable %>% 
  group_by(select.column) %>% #How do I pass that selection in here? 
  summarize(avg.price = mean(SALES.PRICE))

Answer 1

这只是来自 tidyverse 网站的复制粘贴:链接:(https://dplyr.tidyverse.org/articles/programming.html#programming-recipes)。

my_summarise <- function(df, group_var) {
  group_var <- enquo(group_var)
  print(group_var)
  df %>%
    group_by(!! group_var) %>%
    summarise(a = mean(a))
}
my_summarise(df, g1)
#> <quosure>
#> expr: ^g1
#> env:  global
#> # A tibble: 2 x 2
#>      g1     a
#>   <dbl> <dbl>
#> 1     1  2.5 
#> 2     2  3.33

但我想我说明了你的问题。我认为您真正想做的就像上面的代码一样，即创建一个函数。