用ggplot2画3D

在《扪心自问，meme几何？》一文中，我画了一只兔子：

今天给大家演示一下画一只3D版本的兔子，我们知道ggplot2不支持3D，只能画2D的图，但3D其实只是视觉上的，显示在你屏幕上的，同样只是2D。所以我们要做的，就是把3D的坐标转换成2D，然后画出2D的图片来，而这2D看上去有3D的效果。

我们首先定义一个转换函数：

trans_3d_2d <- function(data, theta=135, phi=60) {
    pmat <- plot3D::perspbox(z=diag(2), plot=F, theta=theta, phi=phi)

    data <- as.data.frame(data)
   XY <- plot3D::trans3D(
       x = data$x,
       y = data$y,
       z = data$z,
       pmat = pmat) %>%
     data.frame()

   data$x <- XY$x
   data$y <- XY$y

    return(data[, c('x', 'y')])
}

然后我们使用一个3D兔子的坐标来测试一下，当然一般画3D的程序都支持你用鼠标交互，比如旋转角度什么的，但我们用ggplot2就不可以，我们能做到的，就是在调用上面的转换函数时，指定不同的角度而已。

require(onion)
data(bunny)
d <- trans_3d_2d(bunny)

require(ggplot2)
ggplot(d, aes(x, y, color=x)) + geom_point(alpha=.2)  + 
    coord_flip() + 
    theme(legend.position="none") + 
    scale_y_reverse()

除了把3D变2D，还能把3D拍（拍黄瓜那个拍）成2D来画，比如在《一千个伤心的理由》中，我展示了把一个三元的不等式，用二维的曲线画出来：

PS:在七夕来临之际，这里有一套《如何告别单身》的秘籍，请查收。

---

往期精彩