【R】都道府県別 都市公園
2020年3月31日
総務省統計局が発表している「統計でみる都道府県のすがた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 |