R中3D曲面的投影

Question

我已经创建了3D图，现在我想使用R创建2D中该3D表面投影的热图。这是我尝试过的3D图的可复制代码

library(plotly)
kd <- with(MASS::geyser, MASS::kde2d(duration, waiting, n = 50))
p <- plot_ly(x = kd$x, y = kd$y, z = kd$z) %>% add_surface()

我发现使用相同的库执行此操作的python版本。 https://plot.ly/python/2d-projection-of-3d-surface/