Nice ggplot with sad data: something happens with women in science
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
library(ggplot2)
library(scales)
dat <- read.csv("wis.csv")
dat$pos <-
factor(dat$pos, levels = c("pre", "post", "ryc", "ct", "ic" , "pi"))
ggplot(dat, aes(x = pos, y = per)) +
geom_line(size = 3, aes(group = sex, color = sex)) +
geom_point() +
geom_text(aes(label = round(per * 100, 1)), vjust = -1, size = 4) +
labs(
title = "Women in Science \n Spanish National Research Council",
x = "research stage",
y = "sex ratio",
color = " \n",
subtitle = "(2016)"
) +
scale_color_manual(labels = c("women", "men"),
values = c("purple", "orange")) +
scale_x_discrete(
breaks = c("pre", "post", "ryc", "ct", "ic" , "pi"),
labels = c(
"Predoctoral",
"Postdoctoral",
"Ramón y Cajal",
"Científico\nTitular",
"Investigador\nCientífico",
"Profesor de\nInvestigación"
)
) +
scale_y_continuous(labels = percent) +
theme(
text = element_text(size = 15),
legend.text = element_text(size = 15),
axis.text.x = element_text(face = "bold", size = 11, angle = 30),
axis.title = element_text(size = 14, face = "bold"),
plot.title = element_text(hjust = 0.5, face = "bold", size = 20),
plot.subtitle = element_text(hjust = 0.5, size = 19)
)
We usually call this the “scissors graph”, since the two curves soon cross each other changing the trend shown at the beginning. For the last stages this imbalance between males and females can be due to the age (mean age of Research Professor in CSIC is around 58 years old, and things have changed a lot in Spain since 30 years ago). However, the graph shows that for the earlier stages this imbalance is still being a problem: just from PhD candidate stage to first postdoctoral position, women lose around 15% positions in favor of men. And this is not only happening in Spain. Only active politics and special measures orientated to these first stages could change the trend for the highest positions in the future!
If you want to know a little bit more about women in science in Spain, here you have a poster made by some friends from the Ecology Department in Universidad de Alcalá.
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.