From 3e290d3ed761c7e2c606cbd3adc229cfd3e10658 Mon Sep 17 00:00:00 2001
From: jamesm131 <20141156+jamesm131@users.noreply.github.com>
Date: Mon, 23 Sep 2024 12:49:04 +1000
Subject: [PATCH] Update annotations.qmd to remove presidents with no economic
 data

I'm assuming that the presidents data was updated at one point and the economics data wasn't. I remember seeing this figure and it didn't include the empty rect at the end.
---
 annotations.qmd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/annotations.qmd b/annotations.qmd
index fd36a4f8..8820c034 100644
--- a/annotations.qmd
+++ b/annotations.qmd
@@ -268,7 +268,7 @@ To do this, we use `geom_rect()` to introduce shading, `geom_vline()` to introdu
 
 ```{r}
 #| label: unemp-pres
-presidential <- subset(presidential, start > economics$date[1])
+presidential <- subset(presidential, start > economics$date[1] & start < economics$date[length(economics$date)])
 
 ggplot(economics) + 
   geom_rect(