【R】都道府県別 海外旅行の行動者率

総務省統計局が発表している「統計でみる都道府県のすがた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

Add a Comment

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