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的跨和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}"))