x <- read.delim("http://minato.sip21c.org/kokusaivote.txt") pdf("./kokusaivote.pdf") par(family="Japan1", las=1) matplot(x$YEAR, x[,4:5], type="p", xlim=c(1967, 2012), ylim=c(35, 85), xlab="", ylab="“Š•[—¦", main="¢‘ã•Ê“Š•[—¦i¶Ž²j‚Æ‘ÂV‹K”­sŠzi‰EŽ²j", pch=c(22, 24), col=c("red", "green")) axis(4, 0:5*10+35, 0:5*10) points(x$YEAR, x$KOKUSAI+35, col="cyan") plot(KOKUSAI ~ YOUTH.VR, data=x, type="b", xlab="Žá”N¢‘ã“Š•[—¦(%)", ylab="V‹K”­sŠzi’›‰~j") dev.off()