如何用曲面制作3D图

Question

我正在尝试使用R中的曲面制作3D图，类似于此。

以上图解是使用Matlab（https://uk.mathworks.com/matlabcentral/answers/264427-making-10-2d-slices-out-of-3d-plot）生成的。

我在Plotly中创建了一个3D散点图，但是现在我需要根据它创建一个景观，以便更好地查看它。通过景观，我的意思是在散点图中选择最高点，然后生成类似上图所示的东西。

为了演示我正在使用虚拟数据集。

mtcars$am[which(mtcars$am == 0)] <- 'Automatic'
mtcars$am[which(mtcars$am == 1)] <- 'Manual'
mtcars$am <- as.factor(mtcars$am)
plot <- plot_ly(mtcars,x = mtcars$mpg,
     y = mtcars$disp,z = mtcars$am,
     color = ~mtcars$am, size= 1,
     colors = c('darkolivegreen3', 'darkorange3'))
plot

这会生成类似这样的情节