Экспорт rgl.snapshot и rgl.postscript завершается неудачно

Question

Я в настоящее время использую rgl пакет для представления некоторых данных. Вот моя команда

mypath("directory")
png(file=mypath, res=600, width=10.5, height= 10.5,units="in",bg = "transparent")
require(rgl)
set.seed(1)
df <- data.frame(replicate(4,sample(1:200,1000,rep=TRUE)))
colnames(df) <- c("var1","var2","var3","var4")
plot3d(x=df$var1, y=df$var2, z=df$var3, col=as.numeric(df$var4), size=0.5, type='s',xlab="var1",ylab="var2",zlab="var3")
rgl.snapshot(mypath)

Команда выше работает и создает крошечное изображение, которое я не смог увеличить или увеличить его разрешение (до 600).

Я также попытался экспортировать PDF с помощью:

rgl.postscript(mypath, fmt="pdf") 

но когда я выполняю команду, R переходит в состояние "не отвечает".

Может кто-нибудь показать мне, как правильно экспортировать файл? Я бы предпочел иметь PNG с разрешением 600 точек на дюйм.

Ура,

Answer 1

Решением может быть установка размера окна с помощью open3d():

require(rgl)
set.seed(1)

df <- data.frame(replicate(4,sample(1:200,1000,rep=TRUE)))
colnames(df) <- c("var1","var2","var3","var4")
open3d(windowRect=c(100,100,700,700))
plot3d(x=df$var1, y=df$var2, z=df$var3, col=as.numeric(df$var4), size=0.5, type='s',xlab="var1",ylab="var2",zlab="var3")
rgl.snapshot(<path to png file>)

Answer 2

Может быть, кому-то нужно. Я использовал следующую комбинацию для persp3Drgl:

persp3Drgl(...)
par3d( windowRect=c( 0,0,100,100 ) )
snapshot3d( file.path(plotDir, "3D.png"), top = TRUE )

Без top = TRUE это не удалось.