Query Google Trends and Google Ngrams using R

gtrends_ngramr.R

# install necessary packages
devtools::install_github("dvanclev/GTrendsR")
devtools::install_github("trinker/gtrend")

# load the packages
library(curl)
library(dplyr)
library(gtrend)
library(ggplot2)
library(ngramr)

# query Google Ngrams and create a plot
ngramData <- ngrami(c("Sigmund Freud", "Carl Jung"), year_start = 1900)
ggplot(ngramData, 
       aes(Year, Frequency, colour = Phrase)) + 
  geom_line(lwd = 1) +
  stat_smooth()

# query Google Trends
gtrendQueries <- c("Sigmund Freud", "Carl Jung")
# add your Google account details
outputGT <- gtrend_scraper("YOUR EMAIL", "YOUR PASSWORD", gtrendQueries)

# create a plot
outputGT %>%
  trend2long() %>%
  plot() +
  stat_smooth()