# x <- read.delim("http://minato.sip21c.org/demography/nagano-table-2015.csv") x <- read.delim("./nagano-table-2015.csv") library(pyramid) png("nagano-pyramid-2015.png", width=672, height=672) par(family="sans", mar=c(2,3,2,2)) pyramid(data.frame(M=x[,2], F=x[,3], A=x[,1]), Clab="", Llab="男性", Rlab="女性", Cstep=10, AxisFM="d", main="長野県の人口ピラミッド\n (2015年国勢調査)") dev.off()