根据z的值为使用curve3d（R package：emdbook）创建的3d表面着色

Question

我正在使用emdbook包中的curve3d函数在R中绘制3D表面。一个例子：

curve3d(expr=219.4*exp(-0.5*(((x--1.3)/0.6)^2+((y-2.4)/0.8)^2))+ 
          80.1*exp(-0.5*(((x-0.1)/0.7)^2+((y--1.3)/0.4)^2))+
          52.1*exp(-0.5*(((x-0.2)/0.5)^2+((y-0.8)/0.5)^2)),
          from = c(-3,-3), to = c(3,5), n = 50, sys3d = "persp",
          theta=145,phi=30,zlab="z")

现在，我想根据z值为表面着色。我看了一下persp函数的例子，其中表面根据z着色，但这没有用，因为我在使用curve3d时并没有自己定义z。有没有办法用curve3d做到这一点？