library(fmsb) library(pyramid) library(animation) ani.options(interval=1, ani.type="png") drawanim <- function() { for (i in c(1:24*2, 52, 56, 60)) { pyramid( data.frame(M=Jpopl[, i]/10000, F=Jpopl[, i+1]/10000, A=Jpopl[, 1]), Laxis=0:4*50, AxisFM="d", Llab="男性(万人)", Rlab="女性(万人)", Cstep=10, main=gsub("M([0-9]+)", "Year \\1", names(Jpopl)[i])) ani.pause() } } saveGIF(drawanim(), "./JapanCensusAnimation.gif")