Query Google Trends and Google Ngrams using 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() |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment