【R】都道府県別 都市公園

総務省統計局が発表している「統計でみる都道府県のすがた2020」から、都道府県別の都市公園面積(人口1人当たり)と都市公園数(可住地面積100k㎡当たり)を表示します。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="都市公園面積 (人口1人当たり) ")
  legend("bottomright", fill=rainbow(length(levels(datc_k)), start = col_start, end=col_end), legend=names(table(datc_k)))
  JapanPrefMap(datc_mcol, main="都市公園数 (可住地面積100k㎡当たり)")
  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
  
都道府県 都市公園面積 都市公園数
北海道 26.13 34.09
青森 15.82 26.63
岩手 11.66 33.66
宮城 17.24 96.80
秋田 16.29 18.35
山形 16.97 29.46
福島 12.24 27.74
茨城 9.40 51.77
栃木 14.18 73.86
群馬 13.20 64.36
埼玉 6.90 203.82
千葉 6.68 199.14
東京 4.30 577.38
神奈川 5.47 514.30
新潟 13.32 52.41
富山 15.38 111.24
石川 13.34 80.76
福井 15.26 85.21
山梨 9.58 21.27
長野 13.21 30.01
岐阜 9.97 65.58
静岡 8.46 92.42
愛知 7.69 158.49
三重 9.37 133.26
滋賀 9.02 46.74
京都 7.36 203.18
大阪 5.37 488.66
兵庫 12.63 215.17
奈良 13.40 281.81
和歌山 7.47 25.47
鳥取 11.50 34.75
島根 15.44 31.18
岡山 14.71 73.87
広島 10.46 135.95
山口 13.97 66.73
徳島 7.26 26.13
香川 16.55 49.42
愛媛 11.33 35.92
高知 9.87 72.56
福岡 9.00 219.84
佐賀 10.26 19.47
長崎 10.51 71.05
熊本 8.10 62.26
大分 10.48 62.65
宮崎 17.37 54.22
鹿児島 11.70 39.24
沖縄 10.29 68.35

Add a Comment

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