r - 线条下方的3D填充

Question

我想用时间图绘制3D线图，并在每条线下填充。我这里有一个示例代码。

library(plotly)

dens <- with(diamonds, tapply(price, INDEX = cut, density))
data <- data.frame(
  x = unlist(lapply(dens, "[[", "x")),
  y = unlist(lapply(dens, "[[", "y")),
  cut = rep(names(dens), each = length(dens[[1]]$x)))

p <- plot_ly(data, x = ~cut, y = ~x, z = ~y, type = 'scatter3d', mode = 'lines', color = ~cut)
p

用这个代码我可以产生这个 plotly

没有填充的3d线图



我已经尝试过 surfaceaxis=0，1或2，它们产生了错误的填充。

3D-填充错误的绘图



我想要的是填充X轴和折线图之间的区域。

有一个带有其他值的示例3D图。

例如，在曲线下填充其他值的3D图



有人可以建议一种方法吗？先感谢您。

编辑:它必须与包“plotly”创建

Answer 1

如果您对伪3d没问题，则可以绘制山脊线密度图。我相信也有一个可用的版本。

免责声明:我是ggridges包的作者。

library(ggplot2)
library(ggridges)

ggplot(diamonds, aes(x = price, y = cut, fill = cut)) +
  geom_density_ridges(scale = 2, alpha = 0.7) +
  scale_fill_brewer(guide = guide_legend(reverse = TRUE)) +
  scale_y_discrete(expand = c(0.01, 0)) +
  theme_ridges(center = TRUE)