zindex при объединении perps3D и scatter3D в R

Question

Я пытаюсь объединить persp3D и scatter3D (используя plot3D в R). Тем не менее, я сталкиваюсь с проблемой, которая заключается в том, что я не могу видеть мои точки scatter3D на переднем плане (сетка, образованная графиком perps3D, остается выше графика scatter3D):

Я использовал следующий код:

x=c(1,2,3,4)
y=x
z=cbind(-x,-x,-x,-x)
persp3D(x,y,z,
        theta=140,
        phi=20,
        col="black",
        lighting=T,
        bty="g",
        facets=NA,
        ticktype="detailed",
        axes=T,ylab="\n\nBandwidth (Mbps)",xlab="\n\nLatency (ms)",zlab="\n\nSimulated Time (s)")

z=-x
scatter3D(x,y,z,
          add=T,
          type='p',pch=20,cex=1.5,col="green")

Итак, мне было интересно, есть ли способ заставить точки графика scatter3D быть выше сетки, образованной persp3D (возможно, своего рода zindex) ...