r - 如何将 .names 与 dplyr mutate 和匿名函数一起使用

Question

引用 across() ( https://dplyr.tidyverse.org/reference/across.html ) 的文档，您可以使用 .names 参数指定从 dplyr 动词返回的名称。可视化

iris %>%
  group_by(Species) %>%
  summarise(across(starts_with("Sepal"), mean, .names = "mean_{.col}"))
#> `summarise()` ungrouping output (override with `.groups` argument)
#> # A tibble: 3 x 3
#>   Species    mean_Sepal.Length mean_Sepal.Width
#>   <fct>                  <dbl>            <dbl>
#> 1 setosa                  5.01             3.43
#> 2 versicolor              5.94             2.77
#> 3 virginica               6.59             2.97

但是，当我使用 purr 风格的匿名函数时，我收到一个错误:

iris %>% 
   group_by(Species) %>%
   mutate(across(contains(".Width"), ~.x - mean(.x), .names = "residual_{.col}"))

#> Error: Problem with `mutate()` input `..1`.
#> x glue cannot interpolate functions into strings.
#> * object '.col' is a function.
#> i Input `..1` is `across(contains(".Width"), ~.x - mean(.x), .names = "residual_{.col}")`.
#> i The error occured in group 1: Species = "setosa".
#> Run `rlang::last_error()` to see where the error occurred.

删除 .names 参数会删除错误。应该如何在具有匿名函数的 dplyr 动词中使用 across 指定名称？

Answer 1

尝试删除 .col 中的点，所以它将是: .names = "residual_{col}"