Pokemon Go…breaking it!

Ok, mais R. Agora, mudando o final do período de 06/2016 para 01/2017.

library(gtrendsR)
res <- gtrends(c("Pokemon", "Evangelion", "Dragon Ball"), geo = c("BR"), time = "2004-01-01 2016-06-01")
plot(res)

res <- gtrends(c("Pokemon", "Evangelion", "Dragon Ball"), geo = c("BR"), time = "2004-01-01 2017-01-01")
plot(res)