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

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

        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