在 R 中创建数字同心环递增的矩阵

我需要在 R 中编写一个函数来创建一个由递增的同心数字环组成的矩阵。该函数的参数是层数。例如，如果 x = 3，矩阵将如下所示：

1 1 1 1 1  
1 2 2 2 1  
1 2 3 2 1  
1 2 2 2 1  
1 1 1 1 1

我不知道该怎么做。我真的很感激任何建议。

1)尝试这个：

x <- 3 # input

n <- 2*x-1
m <- diag(n)
x - pmax(abs(row(m) - x), abs(col(m) - x))

giving:

     [,1] [,2] [,3] [,4] [,5]
[1,]    1    1    1    1    1
[2,]    1    2    2    2    1
[3,]    1    2    3    2    1
[4,]    1    2    2    2    1
[5,]    1    1    1    1    1

2)第二种方法是：

x <- 3 # input

n <- 2*x-1
mid <- pmin(1:n, n:1)  # middle row/column
outer(mid, mid, pmin)

给出与之前相同的结果。

3)另一种与前两种方法有相似之处的方法是：

x <- 3 # input

n <- 2*x-1
Dist <- abs(seq_len(n) - x)
x - outer(Dist, Dist, pmax)

Note:上面给出了问题中显示的样本矩阵，但问题的主题说环应该增加，这可能意味着从中心到外部增加，所以如果这是想要的，那么尝试这个m, mid and Dist和以前一样：

pmax(abs(row(m) - x), abs(col(m) - x)) + 1

or

x - outer(mid, mid, pmin) + 1

or

outer(Dist, Dist, pmax) + 1

其中任何一个都会给出：

     [,1] [,2] [,3] [,4] [,5]
[1,]    3    3    3    3    3
[2,]    3    2    2    2    3
[3,]    3    2    1    2    3
[4,]    3    2    2    2    3
[5,]    3    3    3    3    3