Frank Hänel

# Load necessary libraries
library(tidyverse)            # For data manipulation and visualization

library(tidytuesdayR)        # For accessing TidyTuesday datasets
library(showtext)            # For working with fonts

library(glue)                # For text formatting
library(ggtext)              # For enhanced text formatting in ggplot2

# Load Data
# Data is loaded from the 'tidytuesdayR' package for a specific week (2023, week 38).
tuesdata <- tidytuesdayR::tt_load(2023, week = 38)

package_authors <- tuesdata$package_authors
cran_graph_nodes <- tuesdata$cran_graph_nodes

# Load Fonts and Define Colors
# Fonts are loaded, and colors are defined for text and symbols in visualizations.
font_add_google("Raleway", "raleway")
font_add('fa-reg', 'c:/Users/info/OneDrive/Dokumente/fonts/Font Awesome 6 Free-Regular-400.otf')
font_add('fa-brands', 'c:/Users/info/OneDrive/Dokumente/fonts/Font Awesome 6 Brands-Regular-400.otf')
font_add('fa-solid', 'c:/Users/info/OneDrive/Dokumente/fonts/Font Awesome 6 Free-Solid-900.otf')
showtext_auto()
bg <- "lightgrey"
col1 <- "#57375D" # for text
col2 <- "#FF3FA4"
col3 <- "#FF9B82"
col4 <- "#FFC8C8"

# Define Symbols
# Symbols are defined using HTML-style code with appropriate colors and fonts.
rproject <- glue("<span style='font-family:fa-brands;'>&#xf4f7;</span>")
twitter <- glue("<span style='color:{col2};font-family:fa-brands;'>&#xf099;</span>")
mastodon <- glue("<span style='color:{col2};font-family:fa-brands;'>&#xf4f6;</span>")
link <- glue("<span style='color:{col2};font-family:fa-solid;'>&#xf0c1;</span>")
data <- glue("<span style='color:{col2};font-family:fa-solid;'>&#xf1c0;</span>")
space <- glue("<span style='color:{bg}'>-</span>")
space2 <- glue("<span style='color:{bg}'>--</span>") # This creates horizontal lines for formatting.

# Define Title
# A formatted title for the analysis is defined using glue.
t <- glue("<b>Discovering the Key Players in the {rproject} Package Development Community</b>")
s <- glue("The top twenty authors with the highest number of {rproject} packages<br>and their distance to Hadley Wickham in the CRAN collaboration graph.")
ytitle <- glue("Number of {rproject} packages")

# Define Caption
# A formatted caption is defined, including social media icons and links.
cap <- glue("{twitter}{space2}@web_design_fh{space2} 
    {space2}{mastodon}{space2}@frankhaenel @fosstodon.org{space2}
    {space2}{link}{space}{space2}www.frankhaenel.de<br>
    {data}{space2}Schochastics (n.d.) GitHub - schochastics/CRAN_collaboration: <i>Analysing the<br>{space2}{space2}collaboration graph of R package developers on CRAN</i> [Internet].")

# create plot
package_authors %>%
    count(authorsR) %>%
    arrange(desc(n)) %>%
    slice(1:20) %>%
    left_join(cran_graph_nodes %>%
    select(name, dist2HW), by = c("authorsR" = "name")) %>%
    mutate(hwz = ifelse(is.na(dist2HW), hwz, dist2HW)) %>%
    select(-dist2HW) %>%
    ggplot(aes(x=fct_reorder(authorsR, n),y=n,fill=as.factor(hwz))) +
        geom_col() +
        scale_fill_manual(values=c(col2,col3,col4), name = "Hadley-<br>Number") +
        labs(title = t, subtitle = s,caption = cap) +
        ylab(ytitle) +
        theme(
            plot.margin = margin(10, 10, 10, 20),
            panel.background = element_rect(fill=bg, colour = bg),
            plot.background = element_rect(fill=bg),
            plot.title = element_markdown(size = 16, hjust = 0.5, lineheight = 1.3, family = "raleway", color = col1),
            plot.subtitle = element_markdown(size = 12, hjust = 0.5, lineheight = 1.3, family = "raleway", color = col1),
            plot.caption = element_markdown(size = 10, hjust = 0, lineheight = 1.3, family = "raleway", color = col1),
            legend.background = element_rect(fill=bg, colour = bg),
            legend.title = element_markdown(size = 12, hjust = 0, lineheight = 1.3, family = "raleway", color = col1),
            legend.text = element_markdown(size = 10, hjust = 0, lineheight = 1.3, family = "raleway", color = col1),
            axis.title.x = element_blank(),
            axis.text.x = element_markdown(angle=45, vjust=1, hjust=1, size = 10, color = col1, family = "raleway"),
            axis.text.y = element_markdown(size = 10, color = col1, family = "raleway"),
            axis.title.y = element_markdown(size = 10, color = col1, family = "raleway"),
            )