@Z3tt Thank you this is what I was looking for, I have a followup question, if I wanted to show the most recent value, for the most recent date in the time series beside the text, is this possible? and what would the correct syntax be. This is the block of code I am using for the ggpplot.
I'd like it beside the labels of "calculated CFR" and "Estimated CFR"
CFR_Final %>%
ggplot(aes(x = Date, y = CFR_canada)) +
geom_text(x=as.Date("2020-05-21"), y=0.60, label="Calculated CFR: ") +
geom_text(x=as.Date("2020-05-21"), y=0.50, label="Estimated CFR: ") +
geom_text(x=as.Date("2020-05-21"), y=0.40, label="Control CFR: 1.4%") +
scale_y_continuous(labels = function(x) paste0(x*100, "%")) +
geom_hline(aes(yintercept=0.014), colour="#990000", linetype="dashed") + #This is our control line of current CFR
geom_line(color = "Black") +
geom_line(y = CFR_estimate_temp, color = "Red") +
scale_x_date(breaks = seq.Date(from = as.Date("2020-03-07"),
to = as.Date("2020-06-25"), by = 25)) +
theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
panel.background = element_blank(), axis.line = element_line(colour = "Black")) +
labs(title = "Case Fatality Rate (CFR) in Canada", subtitle = "Case Fatality Rate (Over-Estimate in Black & Calculated In Red)",
x = "Date", y = "CFR In Percent", caption = "Data Collected From Johns Hopkins Center for Systems Science & Engineering")
ggsave("CFR_Over_And_Calculated.png", plot = last_plot())