Pat recreates a visualization from CNN showing the change in dental problems over time in countries that vary in whether they fluoridate their water. To pull off this visualization, Pat uses patchwork and the ggplot2 and ggtext packages. He relies heavily on geom_line, geom_point, geom_text, and plot_annotation. In addition to these functions, he also uses the labs, scale_y_continuous, scale_x_continuous, scale_color_manual, coord_cartesian, theme_classic, theme functions. You can find the data and code he developed in this episode at https://www.riffomonas.org/code_club/2025-01-09-fluoride-patchwork. Code for the episode that used facet_grid to generate the same figure can be found at https://riffomonas.org/code_club/2025-01-06-fluoride-facet_grid. The original CNN article can be found at https://www.cnn.com/2024/11/23/health/fluoride-drinking-water-dg/index.html and the CAPP database can be found at https://mau.se/en/about-us/faculties-and-departments/faculty-of-odontology/oral-health-countryarea-profile-project--capp/. Pat's newsletter describing how he would go about generating the figure can be found at https://shop.riffomonas.org/posts/visualizing-the-effects-of-fluoride-in-drinking-water.
If you have a figure that you would like to see me discuss in a future newsletter and episode of Code Club, email me at pat@riffomonas.org!
Want more practice on the concepts covered in Code Club? You can sign up for my weekly newsletter at https://shop.riffomonas.org/youtube to get practice problems, tips, and insights. If you're interested in purchasing a video workshop be sure to check out https://riffomonas.org/workshops/
Support Riffomonas by becoming a Patreon member!
https://www.patreon.com/riffomonas
You can also find complete tutorials for learning R with the tidyverse using...
Microbial ecology data: https://www.riffomonas.org/minimalR/
General data: https://www.riffomonas.org/generalR/
If you want to cite this video, please consider citing https://journals.asm.org/doi/10.1128/mra.01310-22
0:00 Introduction
4:29 Building basic single panel
15:06 Create function to generate both panels
18:17 Combining panels to a single figure with titles
23:15 Matching the theming of the original figure
31:36 Adjusting slope plot aesthetics
36:49 Comparison of facet_grid and patchwork approaches