R颜色无法显示在图表上

我试图画一个多元函数。然而，由于某种原因，无论我使用哪种颜色，函数总是以黑色绘制。。。col=“lightgreen”参数似乎不起作用。有人知道为什么吗

# Define Sequences for Multivariate Function
xf3x1 <- seq(-100, 100, length=500)
xf3x2 <- seq(-100, 100, length=500)

# Outer Calculates the Cartesian Product
z <- outer(xf3x1,xf3x2,function(xf3x1,xf3x2) xf3x1*xf3x2)
persp(xf3x1,xf3x2,z,col="lightgreen",theta=30,phi=20, main="Problème 3: Function 3")

定义多元函数的序列

---

xf3x1这里发生的事情是，在一个小区域中有太多的面，面本身很小，面边界（黑色）太厚，导致填充颜色不显示。如果指定

border=NA

，则曲面将以填充颜色显示

# Define Sequences for Multivariate Function
xf3x1 <- seq(-100, 100, length=500)
xf3x2 <- seq(-100, 100, length=500)

# Outer Calculates the Cartesian Product
z <- outer(xf3x1,xf3x2,function(xf3x1,xf3x2) xf3x1*xf3x2)
persp(xf3x1,xf3x2,z,col="lightgreen", border = NA, theta=30,phi=20,
  main="Problème 3: Function 3")

定义多元函数的序列

---

xf3x1很有趣。其他颜色也不行。总是黑色有没有办法为不同的层添加不同的颜色，以便我们看到结构的内部？您是指基于z轴的值创建具有颜色的曲面，创建曲面的轮廓切片，每个具有不同的颜色，还是在同一绘图上具有多个具有不同颜色的曲面？