【R】図書館貸し出し数

公立図書館の書籍の貸し出し冊数を地図に表示してみました。

e0 <- read.csv("http://www.dinov.tokyo/Data/JP_Pref/Pref_data.csv", header = TRUE, fileEncoding='UTF-8')
e1 <- e0$貸出冊数 / e0$総人口 * 10000
mec <- cut(e0$貸出冊数, hist(e0$貸出冊数, plot=FALSE)$breaks, right=FALSE)
mcol <- rainbow(length(levels(mec)))[as.integer(mec)]
mec1 <- cut(e1, hist(e1, plot=FALSE)$breaks, right=FALSE)
mcol1 <- rainbow(length(levels(mec1)))[as.integer(mec1)]
windowsFonts(JP1=windowsFont("MS Gothic"),
             JP2=windowsFont("MS Mincho"),
             JP3=windowsFont("Meiryo"),
             JP4=windowsFont("Biz Gothic"))
windows(width=1700, height=600)
par(family="JP4")
layout(matrix(1:2, 1, 2))
library(NipponMap)
JapanPrefMap(mcol, main="図書館貸し出し数")
legend("bottomright", fill=rainbow(length(levels(mec))), legend=names(table(mec)))
JapanPrefMap(mcol1, main="人口10000人当たりの図書館貸し出し数 ")
legend("bottomright", fill=rainbow(length(levels(mec1))), legend=names(table(mec)))

左が貸し出し数、右が人口1万人あたりの貸し出し数です。

Add a Comment

メールアドレスが公開されることはありません。