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

2020年2月16日

総務省統計局が発表している都道府県別の幼稚園数と保育所数（分校含む）を第六十四回日本統計年鑑（平成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