
出落ちです。
【データソース】
平成28年 京都観光総合調査について
USJ来場者数3年連続最高 16年度、TDRは微減 :日本経済新聞
Tourism in Paris – Key Figures 2016
【分析コード】
#R library(tibble) library(dplyr) library(ggplot2) attendance <- tribble( ~label, ~detail, ~attendance, "京都", "日本人", 4861, "京都", "外国人", 661, "東京ディズニーリゾート\n(TDL+TDS)", "", 3000, "USJ", "", 1460 ) gp.atte <- attendance %>% mutate(label = label %>% factor %>% reorder(attendance * -1, sum)) %>% ggplot(aes(label, attendance)) + geom_col(aes(fill = detail), position = position_stack(reverse = TRUE)) + geom_text(aes(label = detail, group = detail), position = position_stack(vjust = 0.5, reverse = TRUE)) + guides(fill = FALSE) + xlab("") + ylab("年間来場者数(単位:万人)")