# ­•{“ŒvƒTƒCƒge-Stat‚©‚ηƒf[ƒ^‚π“ǂݍž‚ρ‚ŁC“s“Ή•{Œ§•ΚTFR‚̐„ˆΪƒOƒ‰ƒt‚π•`‚­ # (C) Minato Nakazawa 25 May 2014. x <- scan("http://www.e-stat.go.jp/SG1/estat/GL08020103.do?_csvDownload_&fileId=000006490245&releaseCount=1", skip=8, what=c("",numeric(20)), sep=",", nlines=48) xx <- t(matrix(x, 48, 21, byrow=TRUE)) dat <- as.data.frame(apply(xx[-1, ], 2, as.numeric)) names(dat) <- xx[1, ] YEAR <- c(0:8*5+1960, 2002:2012) matplot(YEAR, dat[,-c(1,14,48)], ylim=c(1, 3), ylab="TFR", xlab="YEAR", type="l", lty=1, lwd=1, col="grey", main="“s“Ή•{Œ§•ΚTFR‚̐„ˆΪ") lines(YEAR, dat[, 1], col="black", lwd=2, lty=1) lines(YEAR, dat[, 14], col="red", lwd=2, lty=1) lines(YEAR, dat[, 48], col="green", lwd=2, lty=1) legend("topright", lty=1, lwd=c(2, 2, 2, 1), col=c("black", "red", "green", "grey"), legend=c("‘S‘", "“Œ‹ž", "‰«“κ", "‘Ό“Ή•{Œ§"))