提取矩阵的每个第 N 个元素

Question

我想提取矩阵中每一行的每行的第 n 个元素，这是我的代码：

x <- matrix(1:16,nrow=2)
x
       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
[1,]    1    3    5    7    9   11   13   15
[2,]    2    4    6    8   10   12   14   16

我试过：

sapply(x, function(l) x[seq(1,8,2)])

这显然失败了。

我想从 "x" 中提取每个第二个值，所需的输出类似于...

      [,1] [,2] [,3] [,4]
[1,]    3    7   11   15
[2,]    4    8   12   16

Answer 1

你太复杂了：

这给了你所需要的

x[,seq(2, 8, 2)]

或者更一般地说

x[,seq(2, ncol(x), 2)]

提取矩阵的每个第 N 个元素

Extracting Every Nth Element of A Matrix

r

matrix

seq