如何將 function 參數粘貼到 function 的 dplyr 中的 .names？

Question

我正在嘗試使用{col}和 function arguments 中的一個來命名across function 的 output

library(tidyverse)

mean_by <- function(data, by, var, prefix = "avg") {
  data %>% 
    group_by({{ by }}) %>% 
    summarise(across({{ var }}, mean, .names = "{prefix}_{col}"))
}

但是，在對iris %>% mean_by(Species, Sepal.Width)進行測試時，出現無法找到 object 'prefix' 的錯誤。 .names中的粘合語法對我來說沒問題，所以我認為這是一個范圍問題？ .names參數只能訪問傳遞給across內容嗎？

Answer 1

我相信.names in across只允許引用{col}和{fn} inside across ，但你可以嘗試粘貼你的prefix ：

> library(tidyverse)
> mean_by <- function(data, by, var, prefix = "avg") {
  data %>% 
    group_by({{ by }}) %>% 
    summarise(across({{ var }}, mean, .names = paste0(prefix,"_{col}")))
 }
> iris %>% mean_by(Species, Sepal.Width)
`summarise()` ungrouping output (override with `.groups` argument)
# A tibble: 3 x 2
  Species    avg_Sepal.Width
  <fct>                <dbl>
1 setosa                3.43
2 versicolor            2.77
3 virginica             2.97