R2SWF
1.0.0
这是一个将R图形转换为Flash File(SWF格式)的R软件包。转换可以通过两种不同的方式进行:
plot()和lines()等绘图函数直接创建SWF文件。惯例是,每次您调用高级绘图函数,例如plot()时,电影都会创建一个新的帧并在此帧中绘制以下形状。这样,您可以通过调用一系列plot()函数来创建一些动画。svg2swf()从SVG转换为SWF,以及image2swf()将PNG和JPG图像转换为单个SWF文件。R2SWF取决于以下库:
R2SWF中包含libming的源代码,您需要自己安装其他三个。
对于Debian/Ubuntu用户,安装依赖库的命令是
sudo apt-get install zlib1g-dev libpng12-dev libfreetype6-dev
对于基于RPM的系统(例如Fedora),请尝试运行
sudo yum install zlib-devel libpng-devel freetype-devel
在第一个示例中,我们首先使用png()函数创建20个图像,然后将它们转换为单个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 )
使用svg2swf非常相似,除了输出动画包含向量图形。
# # 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 )
第三个示例显示了如何使用SWF设备直接创建(而不是转换)SWF文件。
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()通常,当使用SWF设备时,高级绘图函数(例如plot() )将通过一个帧推进电影,而低级功能( lines() , text()等)仅对当前帧有效。