code for exploring candidate google trends

dem-debate-trends.R

library(trendyy)
library(tidyverse)

candidates <- c("joe biden", "kamala harris", "elizabeth warren", "pete buttigieg", "cory booker")

candidate_trends <- trendy(candidates, from = "2019-06-15", to = Sys.Date())

get_interest(candidate_trends) %>% 
  filter(date >= "2019-06-25") %>% 
  ggplot(aes(date, hits, color = keyword)) +
  geom_line() +
  geom_point() +
  theme_minimal() +
  theme(legend.position = "bottom") +
  labs(title = "Candidate Trends",
       subtitle = "Before and after first debate night", 
       y = "Relative Interest",
       x = "")