R的plotly中的多个三维曲面打印

以前可能有人问过这个问题，我甚至在这里使用了plotly的在线教程：

但我仍然有问题。我想在一个绘图上创建多个曲面，就像我在上面链接的教程中一样。唯一的区别是我有4个小矩阵，如下所示：

矩阵1（第313c行）：

矩阵2（第832C行）：

矩阵3（第730C行）：

矩阵4（第380C行）：

使用以下代码：

cold3Dplot <- plot_ly(showscale = FALSE) %>%
  add_surface(z = ~line313C) %>%
  add_surface(z = ~line380C, opacity = 0.98) %>%
  add_surface(z = ~line730C, opacity = 0.98) %>%
  add_surface(z = ~line832C, opacity = 0.98)

cold3Dplot

wireframe(surv~stage*temp, data=cold3D_top4, group=line, 
      col.groups=c("red","green","blue","purple"),
      scales = list(arrows=FALSE, col="black",font=10),
      xlab = list("Life Stage",rot=30, mgp=c(2)),
      ylab = list("Rearing Temperature",rot=-40),
      zlab = list("Survival",rot=90),
      zlim = c(0,1),
      ylim = c("18","25"),
      par.settings = list(regions=list(alpha=0.75)))

以及以下代码：

cold3Dplot <- plot_ly(showscale = FALSE) %>%
  add_surface(z = ~line313C) %>%
  add_surface(z = ~line380C, opacity = 0.98) %>%
  add_surface(z = ~line730C, opacity = 0.98) %>%
  add_surface(z = ~line832C, opacity = 0.98)

cold3Dplot

wireframe(surv~stage*temp, data=cold3D_top4, group=line, 
      col.groups=c("red","green","blue","purple"),
      scales = list(arrows=FALSE, col="black",font=10),
      xlab = list("Life Stage",rot=30, mgp=c(2)),
      ylab = list("Rearing Temperature",rot=-40),
      zlab = list("Survival",rot=90),
      zlim = c(0,1),
      ylim = c("18","25"),
      par.settings = list(regions=list(alpha=0.75)))

---

这就是我想要的，以防我的描述没有任何意义。在plotly中有什么方法可以做到这一点吗？

我刚刚意识到plotly使用列和行名称在图形上进行标注。这可能是一个原因，努力寻找解决方案，但没有任何运气没有解决问题

cold3Dplot <- plot_ly(showscale = FALSE) %>%
  add_surface(z = ~line313C) %>%
  add_surface(z = ~line380C, opacity = 0.98) %>%
  add_surface(z = ~line730C, opacity = 0.98) %>%
  add_surface(z = ~line832C, opacity = 0.98)

cold3Dplot

line    surv        temp    stage
313     0.521025641 18      L
313     0           25      L
313     0.914285714 18      A
313     0.328461538 25      A
832     0.63        18      L
832     0.38        25      L
832     0.99        18      A
832     0.251578947 25      A
730     0.107222222 18      L
730     0.21        25      L
730     1           18      A
730     0.549226006 25      A
380     0.13        18      L
380     0.01        25      L
380     0.933918129 18      A
380     0.938421053 25      A

wireframe(surv~stage*temp, data=cold3D_top4, group=line, 
      col.groups=c("red","green","blue","purple"),
      scales = list(arrows=FALSE, col="black",font=10),
      xlab = list("Life Stage",rot=30, mgp=c(2)),
      ylab = list("Rearing Temperature",rot=-40),
      zlab = list("Survival",rot=90),
      zlim = c(0,1),
      ylim = c("18","25"),
      par.settings = list(regions=list(alpha=0.75)))