r - 如何创建递增矩阵？

Question

好吧，我搜索了很多问题，但没有任何效果。这是我的问题，我被要求创建一个这样的矩阵

#      [,1] [,2] [,3] [,4] [,5]
# [1,]    1    2    3    4    5
# [2,]    2    3    4    5    6
# [3,]    3    4    5    6    7
# [4,]    4    5    6    7    8
# [5,]    5    6    7    8    9

使用rep(),matrix()和seq()函数。

我想在1每个重复周期中添加seq(1:5)5 次，但我不知道该怎么做。有人能帮我解决这个问题吗？

Answer 1

谢谢@user20650！我终于想通了。（请原谅我不熟悉 Stack-overflow 的功能）

我使用这样的代码：

a = matrix(rep((1:5),each = 5),5,5,byrow = TRUE)
b = matrix(rep((0:4),each = 5),5,5)
a+b

它有效

Answer 2

n = 5
r = seq(1,n)
matrix(rep(r,n),n,n,byrow = T) + r - 1

或者，如果您不需要使用规定的功能

n = 5
r = 1:n
t(matrix(-1,n,n) + r) + r

Answer 3

检查col()和row()：

a <- matrix(0, 5, 5)
col(a) + row(a) - 1
     [,1] [,2] [,3] [,4] [,5]
[1,]    1    2    3    4    5
[2,]    2    3    4    5    6
[3,]    3    4    5    6    7
[4,]    4    5    6    7    8
[5,]    5    6    7    8    9