ＲＲＴ の2013年度１学期通常放送をＵＰしました

まあ、想像を絶する忙しい日々です。予算システムの切り替えと制度変更を同時進行でやってますので
まあ、今週はゆとりが少し、、、来週から年度が変わり確定＆決算だよなあ、、、

まあ、勉強もしませんとね。


会社関係では、業者さん関係の転勤が重なりました。若い方が多いので、不安の中にも希望がみえてました。
皆さんの新天地で頑張ってくださいね。

pointLabel

library(maptools)

#データの準備
CC <- c("CAN","DNK","FIN","FRA","DEU","ITA","JPN","KOR","NLD","POL","SWE","GBR","USA")
PAR <- c(13.7,15.7,16.6,16.6,20.2,20.1,22.1,10.3,14.9,13.5,17.6,15.6,12.8)
SE <- c(3.8,7.4,8.6,11.5,8.5,12.2,9.3,1.9,5.4,8.9,9.4,6.2,5.5)

sample <- data.frame(PAR, SE)
rownames(sample) <- CC

plot(sample$PAR, sample$SE, xlab="65歳以上人口比率(%)", ylab="対GDP比高齢者向け社会支出(%)")
pointLabel(x=sample$PAR, y=sample$SE, labels=rownames(sample))