Ok, vejamos a pesquisa por “seguro desemprego” (a pesquisa com “seguro-desemprego” mostrou-me que as pessoas não ligam muito para o hífen).

library(gtrendsR)
gconnect("XXXXXX@gmail.com", "senha")
res<-gtrends(c("seguro desemprego"))
plot(res)
show(res)

Vejamos o gráfico.

Repare que a última observação é zero porque ainda não foi computado o valor do último período (aquele compreendido entre 29/11 e 05/12). Outro detalhe legal é conferir o resultado de show. Lá você percebe que a busca é praticamente toda feita no Brasil, com um ou outro gato pingado em menos de meia dúzia de países. Há mais informações interessantes, claro.

O potencial do Google Trends para previsões já foi adiantado aqui, lembra?