ggplot(Life_Expectancy_Gender_gather_join_2016, aes(x=Life_Expectancy,
                                                        y = reorder(Continent,desc(Continent)), 
        fill = Gender, group  = interaction(Continent, Gender)),width=800, height=700) +
    geom_density_ridges() + 
    theme_ipsum_rc()+
    labs(

      caption = "\n Source:World Bank  | https://data.worldbank.org/
        Visualization: JuanmaMN (Twitter @Juanma_MN)",
      x = "Life Expectancy",
      y = "")  ...

  ggplot(waffle, aes(fill = Review_Rating, values = n)) +

        geom_waffle(color = "white", size = .25, n_rows = 10, flip = T) +

        facet_wrap(~Year, nrow = 1, strip.position = "bottom") + ... 

        ggplothp<-data_2019 %>% ggplot(aes(x=fct_reorder(Country,Happiness_Score), y=Happiness_Score,
          group = Country, fill= factor(Country))) +
          geom_col(width = 0.8) +
          geom_bar_text(place = "right", contrast = TRUE, size=10,
                        aes(label=paste0(Country, "  ",round(Happiness_Score,3)))) + ...

        plot_hotel<-ggplot(hotels_data, aes(x = arrival_date_month, y = prop, fill = hotel)) +
          geom_chicklet() +
          coord_flip() +
          theme_minimal() +
          scale_fill_manual(values = c("#add8e6", "#20b2aa"))  + ...

        ggplot(data3, aes(Year, rank, color = Country)) +
          geom_point(size = 7) +
          geom_text(data = data3 %>% filter(Year == min(Year)),
                    aes(x = Year - .1, label = Country), size = 4, hjust = 1) +
          geom_text(data = data3 %>% filter(Year == max(Year)),
                    aes(x = Year + .1, label = Country), size = 4, hjust = 0) +
          geom_bump(aes(smooth = 6), size = 1.5)  + ...

        g2<-grosses2 %>%
          ggplot(aes(month,total_seats_sold, group=year, col=factor(year))) +
          geom_line(size=1.5,linetype = "solid") + 
          geom_point(size=4, shape=21, fill="#f0f0f0") ... 

    p<-plot_usmap(data = data2, values = "value", labels = TRUE, lines = "white", 
                                                  label_color = "white") ...

      europe2 <- europe + geom_polygon(data = map,
                             aes(fill = fine,x = long,
                                 y = lat, group = group),
                             color = "grey70")  ...

        pA <- ggplot() + 
          geom_map(data = world, map = world,
                   aes(long, lat, group = group,  map_id = region),
                   fill = "#282828", color = "#282828") +
          geom_map(data = databerup, map = world,
                   aes(fill = total, map_id = country),
                   color = "#282828", size = 0.15, alpha = .8) ...