R2SWF

Descrição

Este é um pacote R para converter gráficos R em arquivo flash (formato SWF). A conversão pode ser feita de duas maneiras diferentes:

1. Este pacote contém um dispositivo SWF em R, para que você possa criar um arquivo SWF diretamente usando funções de plotagem como plot() e lines() . A convenção é que toda vez que você chama uma função de plotagem de alto nível, por exemplo, plot() , o filme criará um novo quadro e desenha as seguintes formas nesse quadro. Dessa forma, você pode criar alguma animação chamando uma série de funções plot() .
2. Este pacote também inclui várias funções para converter gráficos de outros formatos em formato SWF. Por exemplo, svg2swf() para converter de SVG em SWF e image2swf() para converter imagens PNG e JPG em um único arquivo SWF.

Instalação

R2SWF depende das seguintes bibliotecas:

• zlib https://www.zlib.net/
• libpng http://www.libpng.org/
• Freetype https://freetype.org/
• Libmming https://github.com/libming/libming

O código -fonte de libming está incluído no R2SWF e você precisa instalar os outros três sozinho.

Para usuários de Debian/Ubuntu, o comando para instalar bibliotecas dependentes é

 sudo apt-get install zlib1g-dev libpng12-dev libfreetype6-dev

Para sistemas baseados em RPM (por exemplo, Fedora), tente correr

 sudo yum install zlib-devel libpng-devel freetype-devel

Exemplos

No primeiro exemplo, primeiro criamos 20 imagens usando a função png() e depois as convertemos em um único arquivo SWF R2SWF-ex1.swf .

 # # Creating png files
png( " image-png-%03d.png " , 480 , 300 )
x = seq( 0 , 2 * pi , length.out = 20 )
cols = rainbow( 20 )
for ( i in 1 : 20 ) plot( x [ i ], sin( x [ i ]), xlim = c( 0 , 2 * pi ), ylim = c( - 1 , 1 ),
                    col = cols [ i ], pch = 16 , cex = 2 , main = " PNG => SWF " )
dev.off()

# # Obtain the filenames
pngfiles = sprintf( " image-png-%03d.png " , 1 : 20 )

# # Convert to SWF
image2swf( pngfiles , " R2SWF-ex1.swf " , interval = 0.3 )

O uso svg2swf é bastante semelhante, exceto que a animação de saída contém gráficos vetoriais.

 # # Do similar things as above
svg( " image-svg-%03d.svg " , 8 , 5 )
x = seq( 0 , 2 * pi , length.out = 20 )
cols = rainbow( 20 )
for ( i in 1 : 20 ) plot( x [ i ], sin( x [ i ]), xlim = c( 0 , 2 * pi ), ylim = c( - 1 , 1 ),
                    col = cols [ i ], pch = 16 , cex = 2 , main = " SVG => SWF " )
dev.off()
svgfiles = sprintf( " image-svg-%03d.svg " , 1 : 20 )

# # Convert to SWF
svg2swf( svgfiles , " R2SWF-ex2.swf " , interval = 0.3 )

O terceiro exemplo mostra como usar o dispositivo SWF para criar (em vez de converter) o arquivo SWF diretamente.

swf( " R2SWF-ex3.swf " )
set.seed( 123 )
x = rnorm( 5 )
y = rnorm( 5 )
for ( i in 1 : 100 ) {
    plot( x <- x + 0.1 * rnorm( 5 ), y <- y + 0.1 * rnorm( 5 ),
         xlim = c( - 3 , 3 ), ylim = c( - 3 , 3 ), col = " steelblue " ,
         pch = 16 , cex = 2 , xlab = " x " , ylab = " y " )
    title( " Brownian Motion " )
}
dev.off()

Em geral, ao usar o dispositivo SWF, as funções de plotagem de alto nível (por exemplo plot() ) avançarão o filme por um quadro e funções de baixo nível ( lines() , text() , etc.) são efetivas apenas no quadro atual.