我试图构建R中协方差矩阵的2D透视图。下面是reprex代码

nrows <- 10
ncols <- 10
p <- nrows * ncols

Qvariance <- 1
Qrho <- 0.8

alpha <- matrix(rep(1:p, p), nrow = p, ncol = p)
JJ <- (alpha - 1) %% nrows + 1
II <- floor((alpha - JJ) / ncols) + 1
LL <- t(JJ)
KK <- t(II)
d <- sqrt((LL - JJ)^2 + (KK - II)^2)
Q <- Qvariance * (Qrho^d)

print(dim(Q))
Q[1:5, 1:5]

x <- 1:ncol(Q)
y <- 1:nrow(Q)

# Create a grid of x and y values
X <- matrix(x, nrow = nrow(Q), ncol = ncol(Q), byrow = TRUE)
Y <- matrix(y, nrow = nrow(Q), ncol = ncol(Q), byrow = FALSE)

library(plot3D)
persp3D(x = X, y = Y, z = Q, theta = 90, expand = 0.5, xlab = "Columns", ylab = "Rows", scale = FALSE)

字符串
剧情就在这里

的数据
我想图例被放置在底部（水平）。如何使用 persp3D（） plot函数来实现这一点？