Plotting a regression line on a scatter plot of smoking and drinking data with ggplot2 (CC355)

Pat uses R to recreate a scatter plot from Philip Bump showing the correlation between smoking and drinking across US counties using functions from the tidyverse. To pull this off he uses the dplyr, ggplot2, and showtext packages. The functions he uses from these packages include aes, annotate, coord_cartesian, drop_na, element_blank, element_line, element_text, filter, font_add_google, geom_abline, geom_hline, geom_label, geom_point, geom_smooth, geom_vline, ggplot, ggsave, inner_join, labs, library, lm, median, mutate, read_csv, round, select, showtext_auto, showtext_opts, starts_with, summarize, theme, tribble, and unit. The newsletter describing this visualization at a 30,000 ft view can be found at https://shop.riffomonas.org/posts/how-do-you-even-pronounce-bivariate-choropleth-here-s-an-alternative. You can find the code he developed in this episode at https://www.riffomonas.org/code_club/2025-04-17-biplot. You can find the original article at https://s2.washingtonpost.com/camp-rw/?trackId=undefined&s=67dec26d37beb82d8ae1cdb7. The UWPHI data can be found at https://www.countyhealthrankings.org/health-data/methodology-and-sources/data-documentation. 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 [email protected]! 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 7:12 Creating initial version of scatter plot 16:01 Adding and formatting axes and titles 26:06 Adjusting appearance of points 27:34 Adding lines to indicate the medians 30:31 Adding regression line 34:19 Adding FIPS Codes of interest 44:56 Adding text annotations