根据值是否大于该行中的另一个值对每一行使用函数

Question

我试图用R来求一个数据帧中多个列（但不是全部）的总和。问题是我只想求大于该行值中值的值的总和，而忽略零。

下面是一个显示两行数据的示例，其中 20 列，其中 6 列（列 x1：x6）具有我想考虑的总和值：

x1  x2  x3  x4  x5 x6
4   4   5   0   0  2
2   3   0   1   5  0

忽略零，第一行的中位数是4，第二行是2.5。所以我想求和剩下的数字

有许多行数据。我已经将中值（我只是使用 excel 来获取此值）放在另一列中，我将称之为 data$med_no_zero，因此可以使用它，而不必在 R 代码中计算该值。

我尝试过if/then语句、apply函数和其他一些东西，但是我对R和编码还很陌生，所以我一直被卡住。我在网上广泛搜索，但还没有找到一个例子，似乎做到了这一点。

Answer 1

这里有一个替代方案，它使用rowSums来计算总和，并使用NA和指数的技巧将零转换为NA，以便它们可以在中值计算中删除。

rowSums(dat * (dat > apply(dat * NA^!dat, 1, median, na.rm=TRUE)))
[1] 5 8

apply（dat*NA^！dat，1，median，NA.rm=TRUE）计算每行的中值，通过使用dat*NA ^！dat＜/code＞，然后使用＜code＞na。rm参数位于中值中。

然后dat

最后，我们将dat乘以该矩阵，以获得大于修改中值和其他地方0的dat值。结果被馈送到rowSums，后者计算每行的总数。

数据

dat <-
structure(list(x1 = c(4L, 2L), x2 = c(4L, 3L), x3 = c(5L, 0L), 
    x4 = 0:1, x5 = c(0L, 5L), x6 = c(2L, 0L)), .Names = c("x1", 
"x2", "x3", "x4", "x5", "x6"), class = "data.frame", row.names = c(NA, 
-2L))

Answer 2

您可以对行(< code>MARGIN = 1)使用< code>apply来运行所需的函数

apply(X = df, MARGIN = 1, function(x)
    sum(x[x > median(replace(x, x==0, NA), na.rm = TRUE)], na.rm = TRUE))
#[1] 5 8