【R】都道府県別 海外旅行の行動者率
2020年4月10日
総務省統計局が発表している「統計でみる都道府県のすがた2020」から、都道府県別の海外旅行の年間行動者率(%、 10歳以上)を表示します。2016年のデータです。
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="海外旅行の年間行動者率 %(10歳以上) ") 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
都道府県 | 海外旅行の年間行動者率 |
---|---|
北海道 | 4.3 |
青森 | 2.4 |
岩手 | 2.1 |
宮城 | 4.7 |
秋田 | 2.1 |
山形 | 4.0 |
福島 | 3.3 |
茨城 | 5.4 |
栃木 | 5.4 |
群馬 | 4.9 |
埼玉 | 8.1 |
千葉 | 9.4 |
東京 | 13.8 |
神奈川 | 10.6 |
新潟 | 3.2 |
富山 | 5.0 |
石川 | 6.2 |
福井 | 4.8 |
山梨 | 6.7 |
長野 | 4.6 |
岐阜 | 6.9 |
静岡 | 5.6 |
愛知 | 8.0 |
三重 | 6.3 |
滋賀 | 7.4 |
京都 | 8.0 |
大阪 | 8.1 |
兵庫 | 8.4 |
奈良 | 8.1 |
和歌山 | 4.5 |
鳥取 | 3.1 |
島根 | 3.1 |
岡山 | 5.0 |
広島 | 4.2 |
山口 | 4.6 |
徳島 | 4.3 |
香川 | 3.8 |
愛媛 | 3.5 |
高知 | 3.8 |
福岡 | 6.2 |
佐賀 | 4.2 |
長崎 | 3.7 |
熊本 | 4.0 |
大分 | 4.1 |
宮崎 | 3.4 |
鹿児島 | 2.9 |
沖縄 | 4.5 |