以绘图方式显示三维轴，R

使用

R

中的

plotly

，如何制作显示轴的三维绘图，如下所示：

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

?

第二个的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)

---

t第一个绘图的代码是什么？遗憾的是，第一个绘图没有代码。这是一张来自教科书的图片，展示了我想要的输出。第一个情节的代码是什么？遗憾的是，第一个情节没有代码。这是一张教科书上的图片，展示了我想要的输出。