library(fmsb) library(pyramid) par(mar=c(1, 2, 2, 1), mfrow=c(2, 2)) pyramid(data.frame(M=Jpop$M2010/1000, F=Jpop$F2010/1000, A=Jpop$Age), Laxis=0:3*1000, AxisFM="d", Cstep=10, Llab="Males\n(x1000)", Rlab="Females\n(x1000)", Clab="", main="Population structure in Japan in\n 2010, pooled for age 85+") pyramid(data.frame(M=Jpopl$M1888/10000, F=Jpopl$F1888/10000, A=Jpopl$Age), Laxis=0:5*25, AxisFM="d", Cstep=10, Llab="Males\n(x10000)", Rlab="Females\n(x10000)", Clab="", main="Population structure in Japan in 1888") pyramid(data.frame(M=Jpopl$M2010/10000, F=Jpopl$F2010/10000, A=Jpopl$Age), Laxis=0:5*25, AxisFM="d", Cstep=10, Llab="Males\n(x10000)", Rlab="Females\n(x10000)", Clab="", main="Population structure in Japan in 2010") pyramid(data.frame(M=Jpopl$M2010J/10000, F=Jpopl$F2010J/10000, A=Jpopl$Age), Laxis=0:5*25, AxisFM="d", Cstep=10, Llab="Males\n(x10000)", Rlab="Females\n(x10000)", Clab="", Lcol="green", main="Population structure of Japanese\n in Japan in 2010")