在R Plotly中给3D曲面图命名图例

Question

我想知道是否有一种方法可以为plotly在同一图上显示的多个表面命名图例，与跟踪方法等效：

使用plotly上的多个表面示例：

https://plot.ly/r/3d-surface-plots/

library(plotly)
    z <- c(
  c(8.83,8.89,8.81,8.87,8.9,8.87),
  c(8.89,8.94,8.85,8.94,8.96,8.92),
  c(8.84,8.9,8.82,8.92,8.93,8.91),
  c(8.79,8.85,8.79,8.9,8.94,8.92),
  c(8.79,8.88,8.81,8.9,8.95,8.92),
  c(8.8,8.82,8.78,8.91,8.94,8.92),
  c(8.75,8.78,8.77,8.91,8.95,8.92),
  c(8.8,8.8,8.77,8.91,8.95,8.94),
  c(8.74,8.81,8.76,8.93,8.98,8.99),
  c(8.89,8.99,8.92,9.1,9.13,9.11),
  c(8.97,8.97,8.91,9.09,9.11,9.11),
  c(9.04,9.08,9.05,9.25,9.28,9.27),
  c(9,9.01,9,9.2,9.23,9.2),
  c(8.99,8.99,8.98,9.18,9.2,9.19),
  c(8.93,8.97,8.97,9.18,9.2,9.18)
)
dim(z) <- c(15,6)
z2 <- z + 1
z3 <- z - 1

p <- plot_ly(showscale = FALSE) %>%
  add_surface(z = ~z) %>%
  add_surface(z = ~z2, opacity = 0.98) %>%
  add_surface(z = ~z3, opacity = 0.98)

如果我将ploty代码更改为以下内容：

p <- plot_ly(showscale = TRUE) %>%
  add_surface(z = ~z, name="Example 1") %>%
  add_surface(z = ~z2, opacity = 0.98,name="Example 2") %>%
  add_surface(z = ~z3, opacity = 0.98,name="Example 3")

根据下面的跟踪示例，人们不会像预期的那样在图例上方显示名称：

https://plot.ly/r/legend/#legend-names

library(plotly)
library(tidyr)
library(plyr)

data <- spread(Orange, Tree, circumference)
data <- rename(data, c("1" = "Tree1", "2" = "Tree2", "3" = "Tree3", "4" = "Tree4", "5" = "Tree5"))

p <- plot_ly(data, x = ~age, y = ~Tree1, type = 'scatter', mode = 'lines', 
        legendgroup = 'group1', name = 'Zone 1 - Tree 1') %>%
  add_trace(y = ~Tree2, legendgroup = 'group2', name = 'Zone 2 - Tree 1') %>%
  add_trace(y = ~Tree3, legendgroup = 'group1', name = 'Zone 1 - Tree 2') %>%
  add_trace(y = ~Tree4, legendgroup = 'group2', name = 'Zone 2 - Tree 2') %>%
  add_trace(y = ~Tree5, legendgroup = 'group1', name = 'Zone 1 - Tree 3') 

有没有办法使用多个表面来获得等效的图例标签结果？

- RK1

Answer 1

您是否正在寻找以下内容：

p <- plot_ly() %>%
    add_surface(z = ~z, colorbar=list(title='Example 1')) %>%
    add_surface(z = ~z2, opacity = 0.98, colorbar=list(title='Example 2')) %>%
    add_surface(z = ~z3, opacity = 0.98, colorbar=list(title='Example 3'))

- MLavoie

---

这种方法在每个图形都有特定颜色时无法工作。您能否同时解决 https://stackoverflow.com/questions/65135163/legend-for-multi-surface-plot-with-specific-colors 问题？谢谢。 - Agi