R 使用 mutate_at 和 contains 将函数应用于多列

发布于05月10日

我想跨多个列应用一个函数，这些列的列名中包含特定的字符串.以下命令已停止工作.关于代码的问题有什么建议吗？

数据:

> df=data.frame(ab=1:5, ba=6:10, c=11:15, dc=16:20)
> df
  ab ba  c dc
1  1  6 11 16
2  2  7 12 17
3  3  8 13 18
4  4  9 14 19
5  5 10 15 20

try :

> df %>% dplyr::mutate_at(vars(contains("a"), contains("b")), funs(sqrt(.)))

Error: `.vars` must be a character/numeric vector or a `vars()` object, not a `data.frame` object.
Backtrace:
  9. dplyr::mutate_at(., vars(contains("a"), contains("b")), funs(sqrt(.)))
 10. dplyr:::manip_at(...)
 11. dplyr:::tbl_at_syms(.tbl, .vars, .include_group_vars = .include_group_vars)
 12. dplyr:::tbl_at_vars(tbl, vars, .include_group_vars = .include_group_vars)
 13. dplyr:::bad_args(...)
 14. dplyr:::glubort(fmt_args(args), ..., .envir = .envir)

推荐答案

使用matches

library(dplyr)
df %>%
   mutate_at(vars(matches('a', 'b')), sqrt)

或者如文档所述，将match指定为字符向量

匹配-字符向量.如果长度大于；1、比赛的联合被采用.

df %>%
    mutate_at(vars(contains(match = c('a', 'b'))), sqrt)
        ab       ba  c dc
1 1.000000 2.449490 11 16
2 1.414214 2.645751 12 17
3 1.732051 2.828427 13 18
4 2.000000 3.000000 14 19
5 2.236068 3.162278 15 20

_at/_all人被否决，而across人被否决

df %>% 
   mutate(across(matches('a', 'b'), sqrt))

-输出

        ab       ba  c dc
1 1.000000 2.449490 11 16
2 1.414214 2.645751 12 17
3 1.732051 2.828427 13 18
4 2.000000 3.000000 14 19
5 2.236068 3.162278 15 20