グラフの例：国立の教員養成大学・学部（教員養成課程）の就職状況

文科省から毎年発表される。直近のものは国立の教員養成大学・学部（教員養成課程）の平成29年3月卒業者の就職状況等についてである。これらから抽出したデータを集めた kyoin.csv を置いておく。

文科省でも国立の教員養成大学・学部(教員養成課程)卒業者の教員就職状況（PDF）が公開されている。

国立の教員養成大学・学部（教員養成課程）の就職状況
x = read.csv("http://okumuralab.org/~okumura/stat/data/kyoin.csv", fileEncoding="UTF-8")
# par(mgp=c(2,0.8,0))
t = barplot(rbind(x[,3],x[,4],x[,2]-x[,3]-x[,4]), names.arg=x[,1], las=1)
n = length(t)
text(t[n],
     c(x[n,3]/2, x[n,3]+x[n,4]/2, (x[n,2]+x[n,3]+x[n,4])/2),
     c("正規","臨任","その他"),
     col=c("white","black","black"), srt=90)
axis(2, labels="人", at=14000, padj=-1, las=1)

Last modified: