R准报价内置函数聚合

如何解决R准报价内置函数聚合

下面是从名为starwars的内置数据集中提取的代码。目标是能够构建一个名为filtered_starwars的最终数据集对象，该对象将由最终用户根据预先指定的条件（输入）进行“​​分组”，“概括”。最终目标是能够使用此代码创建RShiny应用。

但是，在此之前，存在一些当前的问题。我创建了aggregating_choices和mean的{​​{1}}和median和measures_choices的{​​{1}}的列表。目的是将其输入到名为 height 的函数中，然后将使用预先指定的输入从最终mass最终数据框中调出该功能。不幸的是，aggregate_statement部分中不允许这样做。

我想创建一个最终的数据框，以对 filtered_starwars ， summarise ， hair_color （意味着它们是唯一的），并将创建新的指定度量skin_color和eye_color作为以下列， height ，mass，mean_height，median_height 。

当前，分组依据不是唯一的，均值和中位数的合计函数不会弹出。

非常感谢您的支持或指导！谢谢！

mean_mass

解决方法

我不确定我是否正确理解了您的问题。以下是您的初衷吗？为此，我利用了across 1.0.0中新的dplyr以及您可以使用all_of将列名作为字符串提供的事实，因此您不必处理非标准评估：

library(dplyr)

hair_color_selection <- c("brown","black","white","none")
skin_color_selection <- c("fair","dark","white")
eye_color_selection <-  c("blue","brown","yellow")

dimensions_groupBy <- c("hair_color","skin_color","eye_color")
measures_choices <- c("height","mass")
aggregating_choices <- list("mean" = mean,"median" = median)

starwars %>% 
  filter(
    hair_color %in% hair_color_selection,skin_color %in% skin_color_selection,eye_color %in% eye_color_selection
  ) %>%
  group_by(across(all_of(dimensions_groupBy))) %>% 
  summarise(across(all_of(measures_choices),aggregating_choices,.names = "{fn}_{col}"))
#> `summarise()` regrouping output by 'hair_color','skin_color' (override with `.groups` argument)
#> # A tibble: 9 x 7
#> # Groups:   hair_color,skin_color [6]
#>   hair_color skin_color eye_color mean_height median_height mean_mass
#>   <chr>      <chr>      <chr>           <dbl>         <dbl>     <dbl>
#> 1 black      dark       brown            182.           183        NA
#> 2 black      fair       brown            173            173        NA
#> 3 brown      fair       blue             185.           183        NA
#> 4 brown      fair       brown             NA             NA        NA
#> 5 none       dark       blue             184            184        50
#> 6 none       dark       brown            188            188        84
#> 7 none       white      yellow           233            233        NA
#> 8 white      fair       blue             167            167        NA
#> 9 white      fair       brown            193            193        80
#> # ... with 1 more variable: median_mass <dbl>

^{由reprex package（v0.3.0）于2020-10-06创建}