R2SWF

Описание

Это пакет R для преобразования R Graphics в Flash File (Format SWF). Преобразование может быть сделано двумя разными способами:

1. Этот пакет содержит устройство SWF в R, поэтому вы можете создать файл SWF непосредственно, используя функции построения построения, такие как plot() и lines() . Свенчание заключается в том, что каждый раз, когда вы называете функцию на высоком уровне, например, plot() , фильм создает новую кадр и рисует следующие формы в этом кадре. Таким образом, вы можете создать некоторую анимацию, вызывая серию функций plot() .
2. Этот пакет также включает в себя несколько функций для преобразования графики других форматов в формат SWF. Например, svg2swf() для преобразования из SVG в SWF и image2swf() для преобразования изображений PNG и JPG в один файл SWF.

Установка

R2SWF зависит от следующих библиотек:

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

Исходный код libming включен в R2SWF , и вам нужно установить остальные три самостоятельно.

Для пользователей Debian/Ubuntu команда для установки зависимых библиотек -

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

Для систем RPM (например, Fedora) попробуйте запустить

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

Примеры

В первом примере мы сначала создаем 20 изображений, используя функцию png() , а затем преобразуем их в один файл 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() и т. Д.) Эффективны только к текущему кадру.