Récupérer les tendances pour des mots clés.

Le but de la manoeuvre est ici de comprendre comment fonctionne le package “gtrendsR” en reproduisant, dans un premier temps, des données que nous pourrions avoir dans l’interface Google Trends.

## Je determine mon environnement de travail
setwd("")

## Je charge dans une variable la liste des librairies que je vais utiliser
packages = c("gtrendsR","reshape2","tidyr","dplyr","fuzzyjoin","ggplot2")

## J'installe automatiquement les librairies nécessaires et non installées
if (length(setdiff(packages, rownames(installed.packages()))) > 0) {
  install.packages(setdiff(packages, rownames(installed.packages()))) 
}

library(gtrendsR)
library(reshape2)
library(tidyr)
library(fuzzyjoin)
library(ggplot2)

## define the keywords
keywords=c("PS4","XBOX")
country=c('FR')
time=("2019-01-01 2019-12-20")
channel='web'

## Je requête Google trend
trends = gtrends(keywords,gprop =channel,geo=country, time = time)
time_trend = trends$interest_over_time
head(time_trend)
plot = ggplot(data=time_trend, aes(x=date, y=hits,group=keyword,col=keyword))+
  geom_line()+xlab('Time')+ylab('Relative Interest')+ theme_bw()+
  theme(legend.title = element_blank(),legend.position="bottom",legend.text=element_text(size=12))+ggtitle("Google Search Volume")
plot

## En mode Smooth 
plot = ggplot(data=time_trend, aes(x=date, y=hits,group=keyword,col=keyword))+
  geom_smooth(span=0.5,se=FALSE)+xlab('Time')+ylab('Relative Interest')+
  theme_bw()+theme(legend.title = element_blank(),legend.position="bottom",
                   legend.text=element_text(size=12))+ggtitle("Google Search Volume")
plot

Récupérer les mots clés qui cartonnent (à partir d’un mot clé)

trends = gtrends(geo = "FR", keyword="Assurance",time="today 1-m")
related_queries = trends$related_queries
related_queries_rising = related_queries[grepl("^rising", related_queries$related_queries),]
print(related_queries)

Récupérer les mots clés qui cartonnent (à partir d’un univers)

data(categories)
trends = gtrends(geo = "FR",time="today 1-m",category = "1361" )
related_queries = trends$related_queries
related_queries_rising = related_queries[grepl("^rising", related_queries$related_queries), ]

Comment mesurer les intérêts de recherche pour un univers ?

## Je recupere les categories disponibles
data(categories)

## Je sélectionne la catégorie qui m'intéresse
## Ici 1361 correspondant à la catégorie TOYS
trends <- gtrends(geo = "FR", category = "1361")

## Je sélectionne la periode
time_trend=trends$interest_over_time

## Je construis mon graph
plot = ggplot(data=time_trend, aes(x=date, y=hits,group=category,col=category))+
  geom_line()+xlab('Time')+ylab('Relative Interest')+ theme_bw()+
  theme(legend.title = element_blank(),legend.position="bottom",legend.text=element_text(size=12))+ggtitle("Google Search Volume")
plot

#En mode Smooth
plot = ggplot(data=time_trend, aes(x=date, y=hits,group=category,col=category))+
  geom_smooth(span=0.5,se=FALSE)+xlab('Time')+ylab('Relative Interest')+
  theme_bw()+theme(legend.title = element_blank(),legend.position="bottom",
                   legend.text=element_text(size=12))+ggtitle("Google Search Volume")
plot