R2SWF

Descripción

Este es un paquete R para convertir los gráficos R a archivo Flash (formato SWF). La conversión se puede hacer de dos maneras diferentes:

1. Este paquete contiene un dispositivo SWF en R, por lo que puede crear un archivo SWF directamente usando funciones de trazado como plot() y lines() . La convención es que cada vez que llame a una función de trazado de alto nivel, por ejemplo, plot() , la película creará un nuevo cuadro y dibujará las siguientes formas en este marco. De esta manera, puede crear alguna animación llamando a una serie de funciones plot() .
2. Este paquete también incluye varias funciones para convertir gráficos de otros formatos en formato SWF. Por ejemplo, svg2swf() se convertirá de SVG a SWF, e image2swf() para convertir las imágenes PNG y JPG en un solo archivo SWF.

Instalación

R2SWF depende de las siguientes bibliotecas:

• zlib https://www.zlib.net/
• libpng http://www.libpng.org/
• freeType https://freetype.org/
• Libming https://github.com/libming/libming

El código fuente de libming se incluye en R2SWF , y debe instalar los otros tres por usted mismo.

Para los usuarios de Debian/Ubuntu, el comando para instalar bibliotecas dependientes es

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

Para los sistemas basados ​​en RPM (por ejemplo, Fedora), intente ejecutar

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

Ejemplos

En el primer ejemplo, primero creamos 20 imágenes usando la función png() y luego las convertimos en un solo archivo 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 )

El uso de svg2swf es bastante similar, excepto que la animación de salida contiene gráficos vectoriales.

 # # 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 )

El tercer ejemplo muestra cómo usar el dispositivo SWF para crear (en lugar de convertir) el archivo SWF directamente.

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()

En general, cuando se usa el dispositivo SWF, las funciones de trazado de alto nivel (por ejemplo plot() ) avanzarán la película por un cuadro, y las funciones de bajo nivel ( lines() , text() , etc.) son efectivas solo para el marco actual.