R - 计算每行的最大和最小列之间的差异

Question

标题非常简单 - 如何计算每行的最大值和最小值之间的差异？

我们假设这是我的数据:

a b c d
1 2 3 4
0 3 6 9
3 2 1 4
9 8 7 6

对于每一行,我想找到具有最高值的列与具有最低值的列之间的差异 - 结果如下所示:

3
9
3
3

任何帮助是极大的赞赏!

Answer 1

1

对于每一行(使用applywith MARGIN = 1),使用range获取最小值和最大值的向量,然后diff获得这些值的差异

apply(X = df, MARGIN = 1, function(x) diff(range(x)))
#[1] 3 9 3 3

2

如果你想要更快的解决方案,你可以使用并行最大值和最小值(pmax和pmin)

do.call(pmax, df) - do.call(pmin, df)
#[1] 3 9 3 3

数据

df = structure(list(a = c(1L, 0L, 3L, 9L), b = c(2L, 3L, 2L, 8L), 
    c = c(3L, 6L, 1L, 7L), d = c(4L, 9L, 4L, 6L)), .Names = c("a", 
"b", "c", "d"), class = "data.frame", row.names = c(NA, -4L))

计时

dat <- df[sample(1:4,5e6,replace=TRUE),]
rw <- seq_len(nrow(dat))

system.time({
    apply(X = dat, MARGIN = 1, function(x) diff(range(x)))
})
#STILL RUNNING...

system.time({
    rw <- seq_len(nrow(dat))
    dat[cbind(rw, max.col(dat))] - dat[cbind(rw, max.col(-dat))]
})
#   user  system elapsed 
#   3.48    0.11    3.59 

system.time(do.call(pmax, dat) - do.call(pmin, dat))
#   user  system elapsed 
#   0.23    0.00    0.26 

identical(do.call(pmax, dat) - do.call(pmin, dat),
      dat[cbind(rw, max.col(dat))] - dat[cbind(rw, max.col(-dat))])
#[1] TRUE