控制persp网格瓷砖边框颜色

我特别想要一个解决方案 graphics::persp 或其他基本R函数。我对像这样的第三方软件包不感兴趣 rgl

我通过使用 polygon 以及指定 border col border=NA 多边形 persp . 然而,似乎 只需获取第一个边界值并重新使用它,不像 多边形 它将颜色与多边形匹配。

这是用于生成图像的代码:

nr <- nc <- 10
mx <- matrix(numeric(nr * nc), nr)
par(mai=numeric(4))
col <- gray((row(mx[-1,-1]) * col(mx[-1,-1])/((nr-1)*(nc-1))))

par(mfrow=c(1,3), mai=c(0, 0, .25, 0), pty='s')
persp(
  mx, phi=90, theta=0, border=NA, col=col, r=1e9, zlim=c(0,1),
  axes=FALSE, box=FALSE
)
title('Persp border=NA')
persp(
  mx, phi=90, theta=0, border=col, col=col, r=1e9, zlim=c(0,1),
  axes=FALSE, box=FALSE
)
title('Persp border=col')
plot.new()

mxpoly.x <- rbind(
  c(row(mx)[-nr, -nc]), c(row(mx)[-1, -nc]), c(row(mx)[-1, -1]),
  c(row(mx)[-nr, -1]), NA
)
mxpoly.y <- rbind(
  c(col(mx)[-nr, -nc]), c(col(mx)[-1, -nc]), c(col(mx)[-1, -1]),
  c(col(mx)[-nr, -1]), NA
)
title('Polygon')
polygon(
  ((mxpoly.x - 1) / (max(mxpoly.x,na.rm=TRUE) - 1)),
  ((mxpoly.y - 1) / (max(mxpoly.y,na.rm=TRUE) - 1)),
  col=col, border=col
)