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
