在Plotly，R中显示3d轴

Question

使用plotly中的R，如何制作显示轴的3d图，如下所示：

而不是显示边界框的图，如下所示：

？

第二个的R代码是

t <- seq(0,2*pi,by =1)
r <- seq(0,1,by = .1)
x <- as.vector(outer(t,r,function(t,r).5*r*cos(t)))
y <- as.vector(outer(t,r,function(t,r)r*sin(t)))
z <- 4*x^2+y^2
plot_ly(x = ~x, y = ~y, z = ~z, type = "mesh3d", opacity=.5)