r - 如何使用 ggplotly 绘制 3D 图形？

Question

我正在从这个 blog post 运行以下示例绘制 3D 图表。代码运行没有任何错误，但输出不符合预期。这是代码

library(plotly)
pp <- function (n,r=4) {
    x <- seq(-r*pi, r*pi, len=n)
    df <- expand.grid(x=x, y=x)
    df$r <- sqrt(df$x^2 + df$y^2)
    df$z <- cos(df$r^2)*exp(-df$r/6)
    df
}
qplot(x, y, data=pp(100), geom="tile", fill=z)
ggplotly()

这就是我所期望的

Answer 1

我安装了 plotly，从您的问题中复制了代码，它运行得非常好。但它确实不会返回您附加的 3D 图。原因是现在 ggplolty() 获取了您的 ggplot 并“转换为 plotly plot”。正如 B. Bolker 在评论中所说，博客文章中给出的示例很可能已贬值。

然而，这也有好处。 plotly 仍然有曲面图选项(参见:plotly-documentation)。这意味着您可以使用以下代码重新创建示例:

library(reshape2)
library(plotly)
#
pp <- function (n,r=4) {
    x <- seq(-r*pi, r*pi, len=n)
    df <- expand.grid(x=x, y=x)
    df$r <- sqrt(df$x^2 + df$y^2)
    df$z <- cos(df$r^2)*exp(-df$r/6)
    df
}
data_xyz <- pp(100)
data_z <- acast(data_xyz, x~y, value.var = "z")
plot_ly(z = data_z,  type = "surface")