【R】訪日外客

日本政府観光局（JNTO）が発表している訪日外客について、国別情報を世界地図に表示してみました。情報は毎月更新されています。このうち2019年1月の訪日外客情報をもとにしてみます。

dat <- read.csv("http://www.dinov.tokyo/Data/World/Travell2Japan_2019Jan.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 = "Travel to Japan (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

政府は観光産業を盛り上げようとしていますが、韓国、中国からの観光客が非常に多いです。しかし、残念ながら韓国とは貿易に関して、中国とは新型肺炎に関して悩みの種は多いです。