Eu tenho um problema com a tela cheia / não-tela cheia do meu dispositivo rgl.

Atualmente eu uso R 3.00

Eu placo um gráfico persp3d (biblioteca rgl) no meu dispositivo, ele abre em uma janela bem pequena:

O código R:

persp3d(x, y, z, theta=50, phi=25, expand=0.75, col=red,
        ticktype="detailed", xlab="", ylab="", zlab="",axes=FALSE)
axes3d(c('x--','z'))

axis3d(edge='y+-',at =c(1,500,1000,1500,2000,2320),
labels =rownames(fd)[c(1,500,1000,1500,2000,2320)])

Que se parece com isso:

Agora eu o girei e salvei os arquivos png individuais na minha unidade. O problema é que os arquivos PNG são muito pequenos? Eu quero colocá-los em um papel usando o LaTex e o\animategraphics comando, mas é para pixely (não afiada).

Se eu clicar no ícone de tela cheia no dispositivo rgl, para que o gráfico R seja maior, isso ajuda e tudo funciona. O problema é que há muito espaço em branco em torno dele. Com esse espaço em branco acima, abaixo, à esquerda e à direita, não posso incluí-lo no LaTex, porque ele não cabe por causa de seu tamanho grande (largura, altura). Eu tenho 200 arquivos png, então remover manualmente o espaço em branco com tinta não é um bom trabalho.

As pequenas imagens são assim:

O seguinte acontece, se você ampliar (isto é, o que LaTex faz, quando eu colocá-lo no meu papel, aumenta a imagem, a imagem é do meu arquivo LaTex. Mesma imagem, um ângulo ligeiramente diferente, mas o problema permanece o mesmo ):

Você vê que parece pixely (não bom). Além disso, você já pode ver o problema com os arquivos grandes com muito espaço em branco: A imagem pequena com algum espaço em branco acima já destrói o meu título.

Então, como eu poderia resolver esse problema? Como posso dizer ao R para usar os gráficos de tela cheia, mas sem muito espaço em branco ao redor? Quando clico em tela cheia e salvo essas imagens, tudo está bem, exceto o espaço em branco ao redor.

Aqui está o arquivo png com muito espaço em branco ao redor dele (nesta tela não há espaço em branco abaixo, mas quando eu uso o zoom correto, ele está lá):

Uma nota adicional: Este é o código R que eu uso para salvar os arquivos png:

M <- par3d("userMatrix")
movie3d( spin3d(rpm=3), duration=20,dir="C:/test/movie", clean=FALSE )
play3d( spin3d(rpm=3), duration=20)