if (!require(fmsb)) { install.packages("fmsb"); library(fmsb) } if (!require(pyramid)) { install.packages("pyramid"); library(pyramid) } pyramid(data.frame(M=Jpopl$M1990/10000, F=Jpopl$F1990/10000, A=Jpopl$Age), Laxis=0:3*50, Llab="男性(単位:万人)", Rlab="女性(単位:万人)", Clab="", Cstep=10, main="1990年国勢調査人口による日本の人口構造")