用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()