This is a plot of my resting heart rate (as measured by Apple Watch). The x-axis is the number of days before and after each shot.
Code in R
covid_shots <- readr::read_csv("data/COVID Shots.csv", col_types = cols( Day = col_double(), Date = col_date(), RHR = col_double(), Shot = col_character() )) covid_shots %>% select(Day, RHR, Shot) %>% ggplot(aes(x=Day-3,y=RHR, color = Shot)) + geom_line() + geom_point() + ggthemes::theme_fivethirtyeight() + geom_vline(xintercept = 0, size = 2, color = "black") + labs(title = "Does the Pfizer Vaccine Affect My Resting Heart Rate?", x = "Days Before/After", y = "Resting Heart Rate" )