R:在每列中每两行查找最大值

Question

我想在每列中找到每 2 行的最大值(比如说)。如何在 R 中做到这一点？例如

matrix(c(3,1,20,5,4,12,6,2,9,7,8,7), byrow=T, ncol=3) 

我想要这样的输出

matrix(c(5,4,20,7,8,9), byrow=T, ncol=3) 

Answer 1

这是一种方法。

1. 定义一个向量，其中包含您想要的 groups 的相关信息。在这种情况下，我使用 rep 来重复一个数字序列。
2. 然后定义一个辅助函数来计算数组的列最大值——这是一个简单的apply of max。
3. 最后，将 sapply 与一个匿名函数一起使用，该函数将 colMax 应用于每个分组的数组子集。

代码:

groups <- rep(1:2, each=2)
colMax <- function(x)apply(x, 2, max)
t(
    sapply(unique(groups), function(i)colMax(x[which(groups==i), ]))
)

结果:

     [,1] [,2] [,3]
[1,]    5    4   20
[2,]    7    8    9