tidyverse-ggplot2

Code for all the ggplot2 analyses done and published.

geom_segment & geom_rrect

FIFA World Cup 2022

geom_segment

Ggplot2 chart using geom_segment. Code is available here

Contribution to #TidyTuesday - 31st May 2021

geom_text

Ggplot2 chart using geom_segment. Code is available here

Contribution to #TidyTuesday - 25th April 2023

geom_point

Ggplot2 chart using geom_point. Code is available here

Contribution to #TidyTuesday - 29th March 2022

Quasi-Random chart

Ggplot2 chart using geom_quasirandom. Code is available here

Bar chart

Ggplot chart using geom_bar. Code is available here

geom_bar - facet_wrap

Ggplot2 chart using geom_bar and facet_wrap. Code is available here

Dumbbell

Ggplot2 chart using geom_dumbbell. Code is available here

Ggplot2 chart using geom_dumbbell. Code is available here

Multi-point “dumbbell” plot with ggplot2. Code is available here

Multi-point “dumbbell” plot with ggplot2. Code is available here

Multi-point “dumbbell” plot with ggplot2 and point difference. Code is available here

Ridgeline

Code is available here

  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 = "")  ...

Area graph

Code is available here

Multi-area graph

Code is available here

Waffle graph

Code is available here

  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") + ... 
  

Heatmap with geom_tile

Code is available here

TidyTuesday Week 23/2023 - Energy

Code is available here.

Animated ggplot with gganimate

Code is available here

geom_bar_text

Code is available here

geom_bar_text + geom_flag

Code is available here

        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)))) + ...
                        

geom_chicklet

Code is available here

        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"))  + ...

      

geom_bump

Code is available here

        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)  + ...
          

          
          
          

Line chart

Code is available here

        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") ... 

        
          
          

Map

Code is available here

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

Code is available here

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

Code is available here

        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) ... 

geom_statebins

Code is available here

Donut chart

Code is available here

Code is available here.

Contribution to #TidyTuesday - 8th June 2020