r - R中的 "diagonal"矩阵平方

Question

我有一组向量，我想将它们堆叠在一起以创建矩阵的对角线条目。

从 c1 和 c2 创建 example_out 矩阵的简单方法是什么？

c1 <- seq(1, 4)
c2 <- seq(5, 8)


example_out <- matrix(c(1,0,0,0,5,2,0,0,0,6,3,0,0,0,7,4,0,0,0,8), nrow=5, byrow=T)
example_out

Answer 1

用 0 创建一个矩阵，然后用 c1 填充主对角线，用 c2 填充副对角线。

example_out <- matrix(rep(0, 20), 5, 4)
diag(example_out) <- c1
diag(example_out[-1, ]) <- c2

屈服

> example_out
     [,1] [,2] [,3] [,4]
[1,]    1    0    0    0
[2,]    5    2    0    0
[3,]    0    6    3    0
[4,]    0    0    7    4
[5,]    0    0    0    8

数据

c1 <- seq(1, 4)
c2 <- seq(5, 8)