【R】国別　海外在留邦人数

外務省が令和元年11月13日に発表した国（地域）別在留邦人数推計から平成30年10月1日時点の海外在留邦人の国別の数を表示してみます。

dat <- read.csv("http://www.dinov.tokyo/Data/World/LivingAbroad_2018.csv", header = TRUE, fileEncoding="UTF-8")

table_df<-data.frame(Country=dat$country, Number=dat$value)

library(rworldmap)
mapDevice('x11')
sdat <- joinCountryData2Map(dat, joinCode="NAME", nameJoinColumn="country")
par(family="JP4")
mapCountryData(sdat, nameColumnToPlot="value", catMethod="fixedWidth", mapTitle = "Living abroad (2018)", addLegend = TRUE)

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

やはり、アメリカと中国が多いですね。オーストラリアが多かったのは意外でした。タイはビジネスとともに観光としての結びつきが強いですね。