r - Plotly - 表面 - 文本悬停信息不起作用

Question

我已经用plotly构建了一个表面图表，并且我正在尝试根据我自己的文本获得hoverinfo。奇怪的是它不再工作了。

library(plotly)
x <- rnorm(10)
y <- rnorm(10)
z <- outer(y, x)

p <- plot_ly(x = ~x, y = ~y, z = ~z, type = "surface",
             text = ~paste0("My X = ", x, "\n My Y = ", y, "\n My Z = ", z),
             hoverinfo = "text") %>% layout(dragmode = "turntable")
print(p)

尽管

p <- plot_ly(x = ~x, y = ~y, z = ~z, type = "surface") %>% layout(dragmode = "turntable")

效果很好。

我也尝试过替换\n通过<br />没有效果。

我在 macOS Sierra 上使用 R 3.4.0 和plotly 4.7.0。

有什么建议吗？

Answer 1

Plotly 的标签对于使用 ~paste() 语法的自定义标签似乎很挑剔，因为它试图用您的输入(三个向量和一个矩阵)构建一个新的数据结构，但是如果您传入自定义标签作为矩阵，其尺寸与工作尺寸相同。

custom_txt <- paste0("My X = ", rep(x, times = 10),
                    "</br> My Y = ", rep(y, each = 10), # correct break syntax
                    "</br> My Z = ", z) %>%
    matrix(10,10) # dim must match plotly's under-the-hood? matrix 

plot_ly(x = ~x, y = ~y, z = ~z, type = "surface",
             text = custom_txt,
             hoverinfo = "text") %>%
    layout(dragmode = "turntable")