【R】都道府県別 空き家比率

総務省統計局が発表している「統計でみる都道府県のすがた2020」から、都道府県別の空き家比率(対総住宅数)を表示します。2018年のデータです。

  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$空き家比率)
  
  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)]

  windowsFonts(JP4=windowsFont("Biz Gothic"))
  windows(width=800, height=800)
  par(family="JP4")

  library(NipponMap)
  JapanPrefMap(datc_kcol, main="空き家比率 (対総住宅数) ")
  legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k)))

  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
  
都道府県 空き家比率
北海道 13.5
青森 15.0
岩手 16.1
宮城 12.0
秋田 13.6
山形 12.1
福島 14.3
茨城 14.8
栃木 17.3
群馬 16.7
埼玉 10.2
千葉 12.6
東京 10.6
神奈川 10.8
新潟 14.7
富山 13.3
石川 14.5
福井 13.8
山梨 21.3
長野 19.6
岐阜 15.6
静岡 16.4
愛知 11.3
三重 15.2
滋賀 13.0
京都 12.8
大阪 15.2
兵庫 13.4
奈良 14.1
和歌山 20.3
鳥取 15.5
島根 15.4
岡山 15.6
広島 15.1
山口 17.6
徳島 19.5
香川 18.1
愛媛 18.2
高知 19.1
福岡 12.7
佐賀 14.3
長崎 15.4
熊本 13.8
大分 16.8
宮崎 15.4
鹿児島 19.0
沖縄 10.4

Add a Comment

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