library(fmsb) library(pyramid) attach(Jpop) png("comparemch.png", width=800, height=480) par(family="sans", mfrow=c(1,2)) pyramid(data.frame(Males=M1950/10000,Females=F1950/10000,Ages=Age), Laxis=0:3*50, Llab="男性",Rlab="女性",Clab="(歳)", Cstep=5, Cadj=-0.05, Lcol=c(rep("darkgreen",5),rep("cyan",81)), Rcol=c(rep("darkgreen",5),rep("pink",10),rep("red",35),rep("pink",36)), main="日本の人口ピラミッド,1950年\n(母子保健対象塗り分け)(単位:万人)") pyramid(data.frame(Males=M2005/10000,Females=F2005/10000,Ages=Age), Laxis=0:3*50, Llab="男性",Rlab="女性",Clab="(歳)", Cstep=5, Cadj=-0.05, Lcol=c(rep("darkgreen",5),rep("cyan",81)), Rcol=c(rep("darkgreen",5),rep("pink",10),rep("red",35),rep("pink",36)), main="日本の人口ピラミッド,2005年\n(母子保健対象塗り分け)(単位:万人)") dev.off() detach(Jpop)