R语言3D图导出矢量图有bug

Posted 2021-02-21 hisak

谁不喜欢高清无码？rgl.snapshot就是个渣渣

首先，用rgl画3D图并调整好视角，代码如下：

z <- 2 * volcano # Exaggerate the relief
x <- 10 * (1:nrow(z)) # 10 meter spacing (S to N)
y <- 10 * (1:ncol(z)) # 10 meter spacing (E to W)

open3d()
#bg3d("slategray")
#material3d(col = "black")
persp3d(x, y, z, col = "green3", aspect = "iso",axes = T, box = T)

RGL窗口结果：

 

 

 

 

用rgl.postscript导出pdf文件，代码如下：

rgl.postscript("plot.pdf", fmt = "pdf", drawText = T)

结果：

 

惨不忍睹。。。轴面有对角线，图片缺失，rgl.postscript能导出的格式都试过，结果都是这样

主要考虑可能是rgl版本的问题，装了半天旧版rgl，装不上，此路不通

百度一下，无相似问题，顺便说一下，保存时由于要渲染，图内容越多越复杂，渲染时间就会更长，造成软件无响应，等就好了

谷歌一下，有一样的问题https://stackoverflow.com/questions/35367206/plot3d-rgl-postscript-adding-diagonals-unexpectedly 没有解决方案

同样的代码，有的人有这个问题，有的人没有，谷歌相关内容也就上面一条。

于是让其他人试了一下，他的没问题。问了一下R版本号，我再下一个R测试，重装rgl，一样的bug。。。与R版本无关，与rgl无关

最后猜测可能电脑系统或者硬件问题，下回再用linux试一下。

朋友，你们有这个问题吗？