删除 r 矩阵中的每 2 和 5 列

Question

我正在处理一个问题集，要求我从一个非常大的矩阵 mA 中删除每 2 列和每 5 列

mA = matrix(rnorm(10000), nrow = 100, ncol = 100)

我可以很容易地弄清楚如何做其中一个，但我很难弄清楚如何同时做这两个。 有人有什么想法吗？

Answer 1

使用矢量回收你可以做 -

result <- mA[, c(TRUE, FALSE, TRUE, TRUE, FALSE)]

Answer 2

mA[,!(seq(ncol(mA)) %% 2 == 0 | seq(ncol(mA)) %% 5 == 0)]

Answer 3

我们也可以做

result <- mA[, -unique(unlist(lapply(c(2, 5), function(i) seq(1, ncol(mA), by = i))))]