如何构造R中的螺旋矩阵？

construct_spiral_matrix <- function(n) {
  matrix <- matrix(0, n, n)  # 创建空的n x n矩阵
  
  top <- 0
  bottom <- n - 1
  left <- 0
  right <- n - 1
  
  row <- 0
  col <- 0
  
  while (row < n/2 && col < n/2) {
    # 从左到右
    for (i in left:right) {
      col <- i
      matrix[row, col] <- col + 1
    }
    top <- top + 1
    
    # 从上到下
    for (i in top:bottom) {
      row <- i
      matrix[row, col] <- row + 1
    }
    right <- right - 1
    
    # 从右到左
    for (i in right:left) {
      col <- i
      matrix[row, col] <- col + 1
    }
    bottom <- bottom - 1
    
    # 从下到上
    for (i in bottom:top) {
      row <- i
      matrix[row, col] <- row + 1
    }
    left <- left + 1
  }
  
  # 奇数维度的情况，填充中心位置的元素
  if (n %% 2 == 1) {
    center <- (n + 1) / 2
    matrix[center, center] <- center
  }
  
  return(matrix)
}

# 示例用法
n <- 5  # 螺旋矩阵的维度
spiral_matrix <- construct_spiral_matrix(n)
print(spiral_matrix)

     [,1] [,2] [,3] [,4] [,5]
[1,]    1    2    3    4    5
[2,]   16   17   18   19    6
[3,]   15   24   25   20    7
[4,]   14   23   22   21    8
[5,]   13   12   11   10    9