r:按名称 append 列子集的平均值

Question

我有这个 df:

          webvisits1   webvisits2  webvisits3 webvisits4
s001          2            0           11           2
s002          11           2           23           3
s003          12           1            1           5
s004          13           5            5           0
s005          4            3            9           3

我需要创建一个输出数据框，其中添加了包含 webvisits(3-4) 和 webvisits(1-2) 平均值之间差异的列，如下所示:

          webvisits1   webvisits2  webvisits3 webvisits4 difference_mean
s001          2            0           11           2        -5.5
s002          11           2           23           3        -6.5
s003          12           1            1           5         3.5
s004          13           5            5           0         6.5
s005          4            3            9           3        -2.5

考虑到列名称(网络访问)很重要，是否有一种简单的方法可以做到这一点？谢谢

Answer 1

rowSums 函数可以对每个变量的行求和，然后找到现有变量之间的差异并取它们的平均值

library(dplyr)
 dt %>%
  mutate(difference_mean = (rowSums(dt[,2:3])-rowSums(dt[,4:5]))/2)

s.no webvisits1 webvisits2 webvisits3 webvisits4 difference_mean
1 s001          2          0         11          2            -5.5
2 s002         11          2         23          3            -6.5
3 s003         12          1          1          5             3.5
4 s004         13          5          5          0             6.5
5 s005          4          3          9          3            -2.5