【R】図書館貸し出し数
2020年1月1日
公立図書館の書籍の貸し出し冊数を地図に表示してみました。
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万人あたりの貸し出し数です。