+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/docs/reference-keys.txt b/docs/reference-keys.txt
index ad13c4a..f7a1b19 100644
--- a/docs/reference-keys.txt
+++ b/docs/reference-keys.txt
@@ -1,3 +1,3 @@
-down-the-rabbit-hole
-the-pool-of-tears
-a-caucus-race-and-a-long-tale
+biden-approval-tracking
+polling-methods
+pollsters
diff --git a/docs/search_index.json b/docs/search_index.json
index 1dd5fe1..21f1ec3 100644
--- a/docs/search_index.json
+++ b/docs/search_index.json
@@ -1 +1 @@
-[["index.html", "charts Chapter 1 Down the rabbit-hole", " charts by james 2024-01-15 Chapter 1 Down the rabbit-hole "],["the-pool-of-tears.html", "Chapter 2 The pool of tears", " Chapter 2 The pool of tears "],["a-caucus-race-and-a-long-tale.html", "Chapter 3 A caucus-race and a long tale", " Chapter 3 A caucus-race and a long tale "],["404.html", "Page not found", " Page not found The page you requested cannot be found (perhaps it was moved or renamed). You may want to try searching to find the page's new location, or use the table of contents to find the page you are looking for. "]]
+[["index.html", "charts Chapter 1 Biden Approval Tracking", " charts by james 2024-01-15 Chapter 1 Biden Approval Tracking "],["polling-methods.html", "Chapter 2 Polling Methods", " Chapter 2 Polling Methods "],["pollsters.html", "Chapter 3 Pollsters", " Chapter 3 Pollsters "],["404.html", "Page not found", " Page not found The page you requested cannot be found (perhaps it was moved or renamed). You may want to try searching to find the page's new location, or use the table of contents to find the page you are looking for. "]]
diff --git a/index.Rmd b/index.Rmd
index b2a3851..df11607 100644
--- a/index.Rmd
+++ b/index.Rmd
@@ -5,5 +5,23 @@ date: "`r Sys.Date()`"
site: bookdown::bookdown_site
---
-# Down the rabbit-hole
+# Biden Approval Tracking
+```{r,echo = FALSE, results = 'hide', warning = FALSE,message=FALSE, fig.height=5}
+library(ggplot2)
+library(lubridate)
+library(tidyverse)
+library(readxl)
+buden_ <- read_excel("~/buden_.xltx", sheet = "clean")
+buden_$end_date<-mdy(buden_$end_date)
+
+ggplot(buden_, mapping = aes(x=end_date, y=share,color=approval))+
+ geom_point(alpha=1/10,size=5) +
+ geom_smooth(method = 'loess', formula = 'y~x',span=1, se=FALSE, lwd=2)+
+ scale_colour_manual(values = c('red','grey','green'))+
+ labs(title = 'President Biden Approval Tracking',x='Date',
+ y='%Percentage%', colour='Key')+
+ theme_bw()+
+ theme(legend.position = 'bottom')
+
+```
\ No newline at end of file