请问R语言3d条形图是哪个包画的？

请问R语言3d条形图是哪个包画的？
从文章截图的示例如下
希望能在如图效果的基础上实现用颜色分群

另外请问如果横坐标gene种类分类过多（700多种），在图像上难以表现，请问有什么解决办法么？

能画3D条形图的R语言包有四个：
library(rgl)
library(scatterplot3d)
library(epade)
library(latticeExtra)