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

谁不喜欢高清无码?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试一下。

朋友,你们有这个问题吗?

原文地址:https://www.cnblogs.com/HISAK/p/12811772.html