r - 如何使用 dplyr 在以 .x 和 .y 结尾的一组变量中应用具有两个变量的函数(x，y)

Question

示例数据:

sampdat <- data.frame(grp=rep(c("a","b","c"),c(2,3,5)), x1=seq(0,.9,0.1),x2=seq(.3,.75,0.05), y1=c(1:10), y2=c(11:20))

我想要以下数据，但我有 100 多个变量，我想为其应用一个具有两个变量的函数:

myfun <- function(x,y) {
  z=x*y
}
needdat <- sampdat %>% mutate(z1=x1*y1, z2=x2*y2)

使用 dplyr 的 across 和 summarise 最有效的方法是什么？

提前感谢您的建议/解决方案!

最好的，山姆

Answer 1

使用两个across会更简单

library(dplyr)
library(stringr)
sampdat %>% 
   mutate(across(starts_with('x'),
   .names = "{str_replace(.col, 'x', 'z')}") * 
        across(starts_with('y')))

-输出

   grp  x1   x2 y1 y2  z1   z2
1    a 0.0 0.30  1 11 0.0  3.3
2    a 0.1 0.35  2 12 0.2  4.2
3    b 0.2 0.40  3 13 0.6  5.2
4    b 0.3 0.45  4 14 1.2  6.3
5    b 0.4 0.50  5 15 2.0  7.5
6    c 0.5 0.55  6 16 3.0  8.8
7    c 0.6 0.60  7 17 4.2 10.2
8    c 0.7 0.65  8 18 5.6 11.7
9    c 0.8 0.70  9 19 7.2 13.3
10   c 0.9 0.75 10 20 9.0 15.0

---

或者用dplyover

library(dplyover)
sampdat %>% 
  mutate(across2(starts_with('x'), starts_with('y'),
   ~ .x * .y, .names = "z{xcol}"))