【R】都道府県別 防犯ボランティア

総務省統計局が発表している「都道府県・市区町村のすがた(社会・人口統計体系)」から、都道府県別の2018年の防犯ボランティア団体数【団体】と防犯ボランティア構成員数【人】を表示してみます。

都道府県 防犯ボランティア団体数 防犯ボランティア構成員数
北海道 1398 41809
青森 361 10755
岩手 354 17160
宮城 387 17499
秋田 226 10374
山形 433 23783
福島 347 20864
茨城 1031 63534
栃木 1084 57997
群馬 819 71981
埼玉 6010 283953
千葉 2743 150962
東京 3710 128763
神奈川 3581 184581
新潟 899 39139
富山 591 38808
石川 443 29490
福井 379 24437
山梨 312 20405
長野 571 45551
岐阜 1288 73130
静岡 907 54238
愛知 2618 135778
三重 671 36095
都道府県 防犯ボランティア団体数 防犯ボランティア構成員数
滋賀 254 19085
京都 888 75520
大阪 1791 177973
兵庫 2007 71293
奈良 842 40747
和歌山 223 14726
鳥取 187 12406
島根 327 16063
岡山 1344 73873
広島 749 41221
山口 431 27285
徳島 378 9996
香川 261 21208
愛媛 390 32497
高知 176 11135
福岡 2278 183799
佐賀 232 22427
長崎 433 18177
熊本 605 38719
大分 409 25280
宮崎 324 23666
鹿児島 788 26805
沖縄 700 23562
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)]

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="防犯ボランティア構成員数【人】")
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

Add a Comment

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