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 Trend.


# Je determine mon environnement de travail
setwd("C:/Users/pierre.bruat/Desktop/SEO 2019/Scripts_R")

# 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 necessaires & non installees
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 requete 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 selectionne la categorie qui m'interesse
categories[grepl("^Toys", categories$name), ]
#ou
trends <- gtrends(geo = "FR", category = "1361")

#Je selectionne 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
1361 = univers des « TOYS »