【R】都道府県別 幼稚園・保育所数

総務省統計局が発表している都道府県別の幼稚園数と保育所数(分校含む)を第六十四回日本統計年鑑(平成27年)から取得し、地図上にプロットしてみます。

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

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)]

windowsFonts(JP4=windowsFont("Biz Gothic"))
windows(width=1600, height=800)
par(family="JP4")
par(family="JP4")
layout(matrix(1:2, 1, 2))

library(NipponMap)
JapanPrefMap(datc_kcol, main="幼稚園数(平成25年)  (総務省統計局より) ")
legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k)))
JapanPrefMap(datc_mcol, main="保育所数(平成25年)  (総務省統計局より) ")
legend("bottomright", fill=rainbow(length(levels(datc_m)), start = col_start, end=col_end), legend=names(table(datc_m)))

library(clipr)
kable(table_df, align = "c") %>%
  kable_styling(full_width = F) %>%
  column_spec(1, bold = T) %>%
  collapse_rows(columns = 1, valign = "middle") %>%
  write_clip

都道府県 幼稚園数 保育所数
北海道 547 850
青森 120 470
岩手 142 358
宮城 282 341
秋田 93 253
山形 109 241
福島 344 314
茨城 366 490
栃木 198 353
群馬 207 418
埼玉 626 1003
千葉 569 790
東京 1039 1864
神奈川 724 1151
新潟 155 708
富山 89 303
石川 73 362
福井 125 272
山梨 74 238
長野 119 579
岐阜 188 426
静岡 511 510
愛知 521 1220
三重 254 433
滋賀 193 262
京都 229 482
大阪 774 1240
兵庫 698 879
奈良 202 194
和歌山 106 213
鳥取 35 192
島根 108 286
岡山 330 403
広島 305 616
山口 202 311
徳島 189 215
香川 175 209
愛媛 185 324
高知 56 258
福岡 491 905
佐賀 106 221
長崎 175 438
熊本 145 588
大分 216 281
宮崎 134 401
鹿児島 240 475
沖縄 274 400

やはり人口の多い都道府県はあ幼稚園・保育所が多いですね。両親共働きの要望が多いからか、ほとんどの都道府県で幼稚園より保育所の方が多いですね。

Add a Comment

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