r - 在 R 数据框中创建列，在不同列中的值上方添加几列中的值

Question

这是我的问题我有这样的数据框

df=data.frame(v1=c(24,15, 0, 7,36,10), c1=c(22,15,0,0,28,11), v2=c(0,10,0,19,0,0), c2=c(0,7,0,22,0,0), v3=c(54,22,28,55,62,38), c3=c(44,23,22,66,71,44), cut=c(20,35,40,15,40,30))

看起来像这样

  v1 c1 v2 c2 v3 c3 cut
1 24 22  0  0 54 44  20
2 15 15 10  7 22 23  35
3  0  0  0  0 28 22  40
4  7  0 19 22 55 66  15
5 36 28  0  0 62 71  40
6 10 11  0  0 38 44  30

我需要创建一个新列，添加列 v1、v2、v3 的值（实际情况下还有更多），但只有当它们高于“cut”列中的值时

因此，在这种情况下，“总和”列将是：

sum
78
 0
 0
64
62
38

我希望这不是很明显。

Answer 1

R> df$sum = apply(df[c(grep("v", names(df), value = TRUE), "cut")], 1, function(y) sum(y[y > y["cut"]]) )
R> df
  v1 c1 v2 c2 v3 c3 cut sum
1 24 22  0  0 54 44  20  78
2 15 15 10  7 22 23  35   0
3  0  0  0  0 28 22  40   0
4  7  0 19 22 55 66  15  74
5 36 28  0  0 62 71  40  62
6 10 11  0  0 38 44  30  38

这是一个映射方法

R> df$sum = do.call(mapply, c(function(...) { y = c(...); sum(y[y > y["cut"]]) }, df[c(grep("v", names(df), value = TRUE), "cut")]) )
R> df
  v1 c1 v2 c2 v3 c3 cut sum
1 24 22  0  0 54 44  20  78
2 15 15 10  7 22 23  35   0
3  0  0  0  0 28 22  40   0
4  7  0 19 22 55 66  15  74
5 36 28  0  0 62 71  40  62
6 10 11  0  0 38 44  30  38