给定 只有 以下向量:

v <- c(2, 4, 6, 8)

需要以下矩阵,其中行方向交替从右到左和从左到右(通过从上到下遍历矩阵)并且反对角线设置为零。
8  6  4  2  0
2  4  6  0  8
8  6  0  4  2
2  0  4  6  8
0  8  6  4  2

如何在 R 中有效地实现这一点?

最佳答案

这个怎么样?

v <- c(2, 4, 6, 8)

首先创建一个交替方向的矩阵 v 。因为矩阵是按列填充的,所以我们必须在最后进行转置。
m <- matrix(0, length(v), length(v) + 1)
m[, c(FALSE, TRUE)] <- rev(v)
m[, c(TRUE, FALSE)] <- v

m <- t(m)

现在通过填充上下三角形然后反转列来创建零对角线:
m1 <- matrix(0, length(v) + 1, length(v) + 1)
m1[upper.tri(m1)] <- m[upper.tri(m, TRUE)]
m1[lower.tri(m1)] <- m[lower.tri(m)]
m1[, rev(seq_len(ncol(m1)))]

#     [,1] [,2] [,3] [,4] [,5]
#[1,]    8    6    4    2    0
#[2,]    2    4    6    0    8
#[3,]    8    6    0    4    2
#[4,]    2    0    4    6    8
#[5,]    0    8    6    4    2

我希望这对于更大尺寸的向量是一个有效的解决方案。对于小向量,基于循环的解决方案可能更快。

关于r - 生成 5x5 矩阵给定一个向量和 0 对角线排列,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/38430765/

10-12 22:36