如何在R中使用apply-family函数使用〜函数符号？

Question

有没有办法使用“~”。 R 中带有应用/重叠函数的函数符号？

作为一个非常简单的例子，我想做两个应用中的第二个，将“_se”添加到每个字符串列表中：

cols <- c("x1", "x2")
sapply(cols, function(x) paste0(x, "_se")) # works, is long

sapply(cols, ~paste0(., "_se")) # doesn't work, I want to save the typing

有没有办法做类似于第二个解决方案的事情？ 人们喜欢的其他替代品吗？

Answer 1

我们在这里不需要循环，因为paste 、 paste0等都是矢量化的

paste0(cols, "_se")
#[1] "x1_se" "x2_se"

---

如果我们使用~ ，请确保将它与map一起使用，因为这适用于 tidyverse 函数

library(purrr)
map_chr(cols, ~ paste0(.x, "_se"))
#[1] "x1_se" "x2_se"

或者另一个选项是as_mapper

sapply(cols,  as_mapper(~ paste0(.x, "_se")))
#     x1      x2 
#"x1_se" "x2_se"