WakeUP_country

library(tidyverse)
library(ggflags)

# https://twitter.com/stats_feed/status/1634586046653665282

# data
W_up <- data.frame(country1=c('Colmbia','Indonesia', 'Japan','Mexico',
                             'Denmark','US','Germany','Brazil',
                             'Canada','UK', 'India','China','Turkey','Spain',
                             'Russia','Greece','S. Arabia'),
                   country = c('co', 'id', 'jp', 'mx', 'dk', 'us', 'de',
                               'br', 'ca', 'gb', 'in','cn','tr','es','ru','gr','sa'),
                   hour_time=c(6.31,6.55,7.09,7.09,7.19,7.20,7.25,7.31,
                               7.33,7.33,7.36,7.42,8.02, 8.05,8.06,8.25,8.27),
                   hour_time2=c('6:31','6:55','7:09','7:09','7:19','7:20','7:25','7:31','7:33',
                                '7:33','7:36','7:42','8:02','8:05','8:06','8:25','8:27'))

W_up |> 
  ggplot(aes(x=fct_reorder(country1,hour_time), y=hour_time, 
             label=hour_time2,country=country, fill=country1))+
  geom_col(show.legend = FALSE, alpha=0.7)+
  geom_flag(size=7)+
  scale_fill_manual(values=c('#AFDE48','#AFDE48','#AFDE48',
                             '#AFDE48','#AFDE48','#AFDE48',
                             '#AFDE48','#AFDE48','#AFDE48',
                             '#AFDE48','#AFDE48','#AFDE48',
                             '#AFDE48','#AFDE48','#AFDE48',
                             '#AFDE48','#AFDE48'))+
  #scale_size(range = c(20, 20))+
  theme_classic()+
  labs(title = 'Average wake-up time (am)',
       y='hour',
       x='',
       fill='',
       caption = 'World of Statistics')+
  geom_text(size = 4,
            position = position_stack(vjust = 1.07))+
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, 
                                   hjust=1, size=16,
                                   color='black'),
        axis.title.y = element_text(size = 16),
        plot.title = element_text(size=22, face="bold"),
        plot.caption = element_text(size = 15),
        plot.background = element_rect(fill = "#529A52", colour = 'gray34'),
        panel.background = element_rect(fill = '#FFF9DA',
                                        colour = "#529A52",
                                        size = 0.5, linetype = "solid"))