谁不喜欢高清无码?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试一下。
朋友,你们有这个问题吗?
请发表评论