half-size image
Contacts | : \(\downarrow\) \(\downarrow\) \(\downarrow\) \(\downarrow\) \(\downarrow\) \(\downarrow\) |
wyclifeoluoch@gmail.com | |
https://twitter.com/WYCLIFEAGUMBA | |
RPubs | https://rpubs.com/Wyclife/ |
This is a short demonstration of a plot to appreciate one great mentor. It was later sublimated around a mug as a gift. Loved it.
library(ggplot2)
oindo <- data.frame(Mentor_score = c(sample(10:50, 5000, replace = T),
sample(76:100, 5000, replace = T)),
Key = c(rep('Control', 5000), rep('Prof. Oindo', 5000)))
ggplot(oindo, aes(x = Key, y = Mentor_score, fill = Key)) +
stat_boxplot(geom = 'errorbar', width = 0.1) +
geom_boxplot(width = 0.3, lwd = 1.1, col = 'black')+
theme_classic()+
theme(text = element_text(size = 28, face = 'bold')) +
theme(axis.text = element_text(color = 'black')) +
labs(title = "Mentors' Score Plot",
x = 'Mentor',
y = 'Mentor scale (%)') +
theme(axis.text = element_text(face = 'bold', size = 24)) +
scale_fill_discrete(name = 'Key') +
theme(axis.line = element_line(color = 'black', size = 2)) +
theme(axis.ticks = element_line(color = 'black', size = 2,linetype = 'twodash')) +
theme(axis.ticks.length = unit(0.4, 'cm')) +
theme(legend.position = 'none')