half-size image

Contacts : \(\downarrow\) \(\downarrow\) \(\downarrow\) \(\downarrow\) \(\downarrow\) \(\downarrow\)
Email
Twitter https://twitter.com/WYCLIFEAGUMBA
RPubs https://rpubs.com/Wyclife/

Introduction

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')

References

Allaire, JJ, Yihui Xie, Jonathan McPherson, Javier Luraschi, Kevin Ushey, Aron Atkins, Hadley Wickham, Joe Cheng, Winston Chang, and Richard Iannone. 2022. Rmarkdown: Dynamic Documents for r. https://CRAN.R-project.org/package=rmarkdown.
R Core Team. 2022. R: A Language and Environment for Statistical Computing. Vienna, Austria: R Foundation for Statistical Computing. https://www.R-project.org/.
Wickham, Hadley. 2016. Ggplot2: Elegant Graphics for Data Analysis. Springer-Verlag New York. https://ggplot2.tidyverse.org.
Wickham, Hadley, Winston Chang, Lionel Henry, Thomas Lin Pedersen, Kohske Takahashi, Claus Wilke, Kara Woo, Hiroaki Yutani, and Dewey Dunnington. 2022. Ggplot2: Create Elegant Data Visualisations Using the Grammar of Graphics. https://CRAN.R-project.org/package=ggplot2.
Xie, Yihui. 2014. “Knitr: A Comprehensive Tool for Reproducible Research in R.” In Implementing Reproducible Computational Research, edited by Victoria Stodden, Friedrich Leisch, and Roger D. Peng. Chapman; Hall/CRC. http://www.crcpress.com/product/isbn/9781466561595.
———. 2015. Dynamic Documents with R and Knitr. 2nd ed. Boca Raton, Florida: Chapman; Hall/CRC. https://yihui.org/knitr/.
———. 2022. Knitr: A General-Purpose Package for Dynamic Report Generation in r. https://yihui.org/knitr/.
Xie, Yihui, J. J. Allaire, and Garrett Grolemund. 2018. R Markdown: The Definitive Guide. Boca Raton, Florida: Chapman; Hall/CRC. https://bookdown.org/yihui/rmarkdown.
Xie, Yihui, Christophe Dervieux, and Emily Riederer. 2020. R Markdown Cookbook. Boca Raton, Florida: Chapman; Hall/CRC. https://bookdown.org/yihui/rmarkdown-cookbook.
LS0tDQp0aXRsZTogIjxjZW50ZXI+KipNZW50b3JzIHNjb3JlKio8L2NlbnRlcj4iDQphdXRob3I6ICc8Y2VudGVyPl8qKld5Y2xpZmUgQWd1bWJhIE9sdW9jaCoqXzwvY2VudGVyPicNCmRhdGU6ICI8Y2VudGVyPmByIFN5cy50aW1lKClgPC9jZW50ZXI+Ig0KYmlibGlvZ3JhcGh5OiANCiAgLSBiaWIvcGFja2FnZXMuYmliDQpub2NpdGU6ICdAKicNCm91dHB1dDogDQogIGh0bWxfbm90ZWJvb2s6DQogICAgdG9jOiB0cnVlDQogICAgdG9jX2RlcHRoOiAyDQogICAgdG9jX2Zsb2F0OiB0cnVlDQotLS0NCg0KYGBge3IgbGlicywgZWNobz1GQUxTRSwgd2FybmluZz1GQUxTRSwgbWVzc2FnZT1GQUxTRSwgaW5jbHVkZT1GQUxTRX0NCnBhY2thZ2VzIDwtIGMoImJhc2UiLA0KICAgICAgICAgICAgICAna25pdHInLA0KICAgICAgICAgICAgICAncm1hcmtkb3duJywNCiAgICAgICAgICAgICAgJ2dncGxvdDInKQ0KaW5zdGFsbGVkX3BhY2thZ2VzIDwtIHBhY2thZ2VzICVpbiUgcm93bmFtZXMoaW5zdGFsbGVkLnBhY2thZ2VzKCkpDQppZihhbnkoaW5zdGFsbGVkX3BhY2thZ2VzID09IEZBTFNFKSl7DQogIGluc3RhbGwucGFja2FnZXMocGFja2FnZXNbIWluc3RhbGxlZF9wYWNrYWdlc10pDQp9DQpsYXBwbHkocGFja2FnZXMsIGxpYnJhcnksIGNoYXJhY3Rlci5vbmx5ID0gVFJVRSkgfD4gaW52aXNpYmxlKCkNCmBgYA0KDQo8Y2VudGVyPg0KDQohW2hhbGYtc2l6ZSBpbWFnZV0oZGVzaWduLnBuZyl7I2lkIC5jbGFzcyB3aWR0aD0iMjAlIiBoZWlnaHQ9IjIwJSJ9DQoNCjwvY2VudGVyPg0KDQp8ICAgICAgICAgICAgICB8ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHwNCnw6LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS18Oi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tfA0KfCAqKkNvbnRhY3RzKiogfCAqKjoqKiAkXGRvd25hcnJvdyQgJFxkb3duYXJyb3ckICRcZG93bmFycm93JCAkXGRvd25hcnJvdyQgJFxkb3duYXJyb3ckICRcZG93bmFycm93JCB8DQp8IEVtYWlsICAgICAgICB8IFt3eWNsaWZlb2x1b2NoXEBnbWFpbC5jb21dKG1haWx0bzp3eWNsaWZlb2x1b2NoQGdtYWlsLmNvbSl7LmVtYWlsfSAgICAgICAgICAgICAgICAgIHwNCnwgVHdpdHRlciAgICAgIHwgPGh0dHBzOi8vdHdpdHRlci5jb20vV1lDTElGRUFHVU1CQT4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgfA0KfCBSUHVicyAgICAgICAgfCA8aHR0cHM6Ly9ycHVicy5jb20vV3ljbGlmZS8+ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB8DQoNCmBgYHtyIHdyaXRlX2JpYiwgZWNobz1GQUxTRSwgd2FybmluZz1GQUxTRSwgbWVzc2FnZT1GQUxTRSwgaW5jbHVkZT1GQUxTRX0NCmtuaXRyOjp3cml0ZV9iaWIoYygNCiAgLnBhY2thZ2VzKCksIHBhY2thZ2VzDQopLCAnYmliL3BhY2thZ2VzLmJpYicpDQpgYGANCg0KIyAqKkludHJvZHVjdGlvbioqDQoNClRoaXMgaXMgYSBzaG9ydCBkZW1vbnN0cmF0aW9uIG9mIGEgcGxvdCB0byBhcHByZWNpYXRlIG9uZSBncmVhdCBtZW50b3IuIEl0IHdhcyBsYXRlciBzdWJsaW1hdGVkIGFyb3VuZCBhIG11ZyBhcyBhIGdpZnQuIExvdmVkIGl0Lg0KDQpgYGB7ciBlY2hvPVRSVUV9DQpsaWJyYXJ5KGdncGxvdDIpDQpvaW5kbyA8LSBkYXRhLmZyYW1lKE1lbnRvcl9zY29yZSA9IGMoc2FtcGxlKDEwOjUwLCA1MDAwLCByZXBsYWNlID0gVCksIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNhbXBsZSg3NjoxMDAsIDUwMDAsIHJlcGxhY2UgPSBUKSksIA0KICAgICAgICAgICAgICAgICAgICBLZXkgPSBjKHJlcCgnQ29udHJvbCcsIDUwMDApLCByZXAoJ1Byb2YuIE9pbmRvJywgNTAwMCkpKQ0KZ2dwbG90KG9pbmRvLCBhZXMoeCA9IEtleSwgeSA9IE1lbnRvcl9zY29yZSwgZmlsbCA9IEtleSkpICsgDQogIHN0YXRfYm94cGxvdChnZW9tID0gJ2Vycm9yYmFyJywgd2lkdGggPSAwLjEpICsNCiAgZ2VvbV9ib3hwbG90KHdpZHRoID0gMC4zLCBsd2QgPSAxLjEsIGNvbCA9ICdibGFjaycpKw0KICB0aGVtZV9jbGFzc2ljKCkrDQogIHRoZW1lKHRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDI4LCBmYWNlID0gJ2JvbGQnKSkgKw0KICB0aGVtZShheGlzLnRleHQgPSBlbGVtZW50X3RleHQoY29sb3IgPSAnYmxhY2snKSkgKw0KICBsYWJzKHRpdGxlID0gIk1lbnRvcnMnIFNjb3JlIFBsb3QiLA0KICAgICAgIHggPSAnTWVudG9yJywNCiAgICAgICB5ID0gJ01lbnRvciBzY2FsZSAoJSknKSArDQogIHRoZW1lKGF4aXMudGV4dCA9IGVsZW1lbnRfdGV4dChmYWNlID0gJ2JvbGQnLCBzaXplID0gMjQpKSArDQogIHNjYWxlX2ZpbGxfZGlzY3JldGUobmFtZSA9ICdLZXknKSArDQogIHRoZW1lKGF4aXMubGluZSA9IGVsZW1lbnRfbGluZShjb2xvciA9ICdibGFjaycsIHNpemUgPSAyKSkgKw0KICB0aGVtZShheGlzLnRpY2tzID0gZWxlbWVudF9saW5lKGNvbG9yID0gJ2JsYWNrJywgc2l6ZSA9IDIsbGluZXR5cGUgPSAndHdvZGFzaCcpKSArDQogIHRoZW1lKGF4aXMudGlja3MubGVuZ3RoID0gdW5pdCgwLjQsICdjbScpKSArDQogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICdub25lJykNCmBgYA0KDQojICoqUmVmZXJlbmNlcyoqDQo=