其他
用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:在七夕来临之际，这里有一套《如何告别单身》的秘籍，请查收。
往期精彩