ggplot을 사용하여 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() 

그리고 여기가 내가, plotly을 설치 질문에서 코드를 복사하고 완벽하게 정상적으로 실행

Answer 1

기대하는 것입니다 코드를입니다. 그러나 그것은 실제로 당신이 첨부 한 3D 플롯을 반환하지 않습니다. 그 이유는 이제 ggplolty()이 ggplot을 가져 와서 "플롯 플롯으로 변환"합니다. 블로그 포스트에 주어진 예제는 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")