本は知の源でもあり、それを蓄積している図書館は非常に重要なものです。さて、総務省統計局が発表している「都道府県・市区町村のすがた（社会・人口統計体系）」から、都道府県別の図書館の蔵書数と人口１万人当たりの蔵書数を示してみたいと思います。2015年のデータです。
| 都道府県 |
図書館蔵書数 |
図書館蔵書数_人口１万あたり |
| 北海道 |
17516475 |
33697 |
| 青森 |
4309086 |
34092 |
| 岩手 |
5171096 |
41632 |
| 宮城 |
5610706 |
24526 |
| 秋田 |
3738819 |
37792 |
| 山形 |
3782856 |
34629 |
| 福島 |
6390258 |
34235 |
| 茨城 |
10013637 |
35038 |
| 栃木 |
7877251 |
40707 |
| 群馬 |
7329683 |
38042 |
| 埼玉 |
23209972 |
32475 |
| 千葉 |
19669016 |
32149 |
| 東京 |
47907599 |
35979 |
| 神奈川 |
16705291 |
18632 |
| 新潟 |
7632377 |
33978 |
| 富山 |
5229772 |
50297 |
| 石川 |
5515757 |
49254 |
| 福井 |
5586906 |
72841 |
| 山梨 |
5061240 |
62091 |
| 長野 |
9870659 |
48137 |
| 岐阜 |
7765424 |
38983 |
| 静岡 |
13868941 |
38261 |
| 愛知 |
21186974 |
28760 |
| 三重 |
6018101 |
33869 |
|
| 都道府県 |
図書館蔵書数 |
図書館蔵書数_人口１万あたり |
| 滋賀 |
9565605 |
68740 |
| 京都 |
6567807 |
25671 |
| 大阪 |
24663639 |
28388 |
| 兵庫 |
14621818 |
26919 |
| 奈良 |
5085409 |
38091 |
| 和歌山 |
3185123 |
33908 |
| 鳥取 |
3502589 |
63087 |
| 島根 |
3240853 |
48423 |
| 岡山 |
7561696 |
40415 |
| 広島 |
8564888 |
30879 |
| 山口 |
5948076 |
43853 |
| 徳島 |
3839919 |
52633 |
| 香川 |
3982139 |
41973 |
| 愛媛 |
4877014 |
36206 |
| 高知 |
2640368 |
37695 |
| 福岡 |
13636906 |
27493 |
| 佐賀 |
3317741 |
41214 |
| 長崎 |
4856740 |
36676 |
| 熊本 |
4735344 |
27403 |
| 大分 |
3794613 |
33713 |
| 宮崎 |
3724445 |
34938 |
| 鹿児島 |
5496275 |
34629 |
| 沖縄 |
4517409 |
32297 |
|
|
library(leaflet)
library(knitr)
library(kableExtra)
library(dplyr)
library(tidyr)
library(stringr)
dat <- read.csv("http://www.dinov.tokyo/Data/JP_Pref/Pref_data.csv", header = TRUE, fileEncoding="UTF-8")
col_start <- 0.2
col_end <- 0.0
dat$図書館蔵書数_人口１万<-round(dat$図書館蔵書数/dat$総人口*10000)
table_df<-data.frame(都道府県=dat$都道府県, 図書館蔵書数=dat$図書館蔵書数, 図書館蔵書数_人口１万あたり=dat$図書館蔵書数_人口１万)
datc_k <- cut(dat$図書館蔵書数, hist(dat$図書館蔵書数, plot=FALSE)$breaks, right=FALSE)
datc_kcol <- rainbow(length(levels(datc_k)), start = col_start, end=col_end)[as.integer(datc_k)]
datc_m <- cut(dat$図書館蔵書数_人口１万, hist(dat$図書館蔵書数_人口１万, plot=FALSE)$breaks, right=FALSE)
datc_mcol <- rainbow(length(levels(datc_m)), start = col_start, end=col_end)[as.integer(datc_m)]
library(NipponMap)
windowsFonts(JP4=windowsFont("Biz Gothic"))
windows(width=1600, height=800)
png("0plot1.png", width = 1600, height = 800)
par(family="JP4")
layout(matrix(1:2, 1, 2))
JapanPrefMap(datc_kcol, main="図書館蔵書数")
legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k)))
JapanPrefMap(datc_mcol, main="図書館蔵書数_人口1万")
legend("bottomright", fill=rainbow(length(levels(datc_m)), start = col_start, end=col_end), legend=names(table(datc_m)))
dev.off()
library(clipr)
t1=kable(table_df[c(1:24),], align = "c", row.names=FALSE) %>%
kable_styling(full_width = F) %>%
column_spec(1, bold = T) %>%
collapse_rows(columns = 1, valign = "middle")
t2=kable(table_df[c(25:47),], align = "c", row.names=FALSE) %>%
kable_styling(full_width = F) %>%
column_spec(1, bold = T) %>%
collapse_rows(columns = 1, valign = "middle")
paste(c('<table><tr valign="top"><td>', t1, '</td><td>', t2, '</td><tr></table>'), sep = '') %>% write_clip
