【R】都道府県別　火災死傷者数

2020年3月17日

総務省統計局が発表している「統計でみる都道府県のすがた2020」から、都道府県別の火災死傷者数（建物火災100件当たり）と火災死傷者数（人口10万人当たり）を表示します。2017年のデータです。

  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")
  layout(matrix(1:2, 1, 2))
  
  library(NipponMap)
  JapanPrefMap(datc_kcol, main="火災死傷者数_建物　（建物火災100件当たり）")
  legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k)))
  JapanPrefMap(datc_mcol, main="火災死傷者数_人口　（人口10万人当たり）")
  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

都道府県	火災死傷者数_建物	火災死傷者数_人口
北海道	30.5	6.00
青森	35.4	7.67
岩手	43.8	8.69
宮城	39.0	6.07
秋田	58.4	9.74
山形	34.2	5.81
福島	40.8	7.23
茨城	30.6	6.15
栃木	31.1	5.83
群馬	33.9	6.48
埼玉	33.1	4.72
千葉	35.9	5.32
東京	29.3	6.09
神奈川	32.1	4.19
新潟	35.2	5.29
富山	45.5	5.78
石川	27.4	3.23
福井	40.8	5.39
山梨	27.6	5.22
長野	44.0	7.47
岐阜	32.6	5.48
静岡	35.0	5.39
愛知	35.5	5.08
三重	29.5	4.39
滋賀	32.5	4.81
京都	41.0	5.69
大阪	34.5	6.29
兵庫	32.1	5.11
奈良	36.5	5.49
和歌山	38.9	6.14
鳥取	41.4	6.37
島根	32.8	5.84
岡山	40.2	8.23
広島	32.7	5.30
山口	35.9	6.72
徳島	22.8	4.44
香川	42.0	6.83
愛媛	36.9	6.74
高知	25.0	5.88
福岡	31.5	4.90
佐賀	47.1	8.98
長崎	38.4	6.35
熊本	34.8	5.72
大分	27.8	6.08
宮崎	32.8	7.07
鹿児島	34.8	6.89
沖縄	20.8	3.12