ggplot2的3维画图时代

还记得我写的《用ggplot2画3D》一文吗？里面讲述了画3D的奥秘，其实是一种视觉上的欺骗，首先需要定义一个函数去做2D到3D的坐标轴转换，然后就可以画图了。

这种思路现在已经有人去写包实现了，两个包threed和ggthreed，第一个包负责做坐标轴的转换，第二个包提供一些图层，方便我们直接ggplot出3维图，目前这个包只提供了geom_threedpie一个图层，可以期待以后出更多的图层，现在其实你还是得《用ggplot2画3D》一样的思路。

安装

devtools::install_github("coolbutuseless/threed")
devtools::install_github("coolbutuseless/ggthreed")

3维的饼图

library(ggplot2)
library(ggthreed)
ggplot(mtcars) + 
  geom_threedpie(aes(x = as.factor(cyl))) + 
  theme_void() + 
  theme(legend.position = 'bottom')

还记得我之前画的小兔子么？

和之前《用ggplot2画3D》思路一样，用threed包来做坐标轴转换，然后3D当2D来画。下面给出了茶壶的代码，可以看做是《没有金刚钻，揽不了瓷器活！》的3D版本。有兴趣的小伙伴还可以尝试画《3D版邪恶的曲线》

library(threed)

camera_to_world <- look_at_matrix(eye = c(1.5, 1.75, 4), at = c(0, 0, 0))

obj <- threed::mesh3dobj$teapot %>%
  transform_by(invert_matrix(camera_to_world)) %>%
  perspective_projection() 

ggplot(obj, aes(x, y, group = zorder)) +
  geom_polygon(aes(fill = zorder, colour = zorder)) +
  theme_minimal() +
  theme(
    legend.position = 'none',
    axis.text       = element_blank()
  ) +
  coord_equal() +
  scale_fill_viridis_d (option = 'A') +
  scale_color_viridis_d(option = 'A')

---

往期精彩