謝益輝大神寫的animation包真的是很好玩。寫一個(gè)循環(huán)再用animation包里面的saveGIF函數(shù)連接就可以弄出gif。前期準(zhǔn)備需要imageMagick軟件，在后面的代碼convert=shQuote()會(huì)用到covert.exe的路徑。

library(animation)
ani.options(interval = 0.1, nmax = 150,convert=shQuote(“D:\ImageMagick-7.0.7-Q16\convert.exe”))
saveGIF(brownian.motion(pch = 21,cex = 5,col = “red”, bg = “yellow”),
main = “Demonstration of Brownian Motion”)     

library(lattice)

對(duì)于lattice或是ggplot2繪圖命令，最后一定要使用print，不然出不了圖

saveGIF(
for (i in seq(0,360,by=5)) {
p <- wireframe(volcano,="" shade="">
aspect = c(61/87, 0.4),
light.source = c(10,0,10),
screen = list(z = i, x = -60))
print(p)

})

#氣泡圖

library(ggplot2)

#數(shù)據(jù)要求有三個(gè)數(shù)值型變量，x軸&y軸&氣泡大小。

#另外兩個(gè)最好是分類變量，一個(gè)是顏色，一個(gè)是i。

bubble<>

bubble<>

bubble<>

bubble$month<>

bubble$time<>

ani.options(interval = 0.5#控制播放速度,

            convert=shQuote('D:\\ImageMagick-7.0.7-Q16\\convert.exe'))

saveGIF(

for(i in 0:23){

  bub<>

  p<>

    geom_point(aes(col=month,size=O3))+ylim(0,200)+xlim(0,200)+

    annotate('text',x=200,y=200,label=i,col='gray')+

    theme(panel.grid.major.x=element_blank(),panel.grid.major.y = element_blank())

  print(p)

})