DS LABS

Loading libraries and data

library("dslabs")
data(package = "dslabs")

library(tidyverse)
library(ggthemes)
library(ggrepel)
data("research_funding_rates")

funding_rates_long <- research_funding_rates |>
  pivot_longer(cols  = c(success_rates_men, success_rates_women),
               names_to = "gender",
               values_to = "success_rate") |>
  mutate(gender = recode(gender, "success_rates_men" = "Men", "success_rates_women" = "Women"))

ggplot(funding_rates_long,aes(x=reorder(discipline,success_rate),y= success_rate,color = gender, group = gender)) +
  geom_line(linewidth = 1)+
  geom_point(size =3)+
  scale_color_brewer(palette = "Set2",name = "Gender")+
  labs(title = "Research Funding Success Rates by Gender and Discipline (Netherlands)", x = "Discipline", y = "Success Rate(%)")+
  theme_bw()