Search trends in Google

Keywords

  
google.trends = gtrends(c("merkel"), gprop = "web", time = "all")[[1]]
google.trends = dcast(google.trends, date ~ keyword + geo, value.var = "hits")
rownames(google.trends) = google.trends$date
google.trends$date = NULL

View(google.trends)

Set timezone

Sys.setenv(TZ = "UTC")

Geographical region and time-frame for “viagra”

google.trends <- gtrends(c("viagra"), geo = c("NL", "DE", "ES", "FR"), gprop = "web", time = "2010-06-30 2017-06-30")[[1]]

Plot trend of “Viagra” from Google in four different countries. If hit is high, it means high google-search-popularity! (Filthy Germans!).

ggplot(google.trends, aes(date, hits, colour = geo)) + 
  geom_point()

Geographical region and time-frame for “animal sex”

google.trends <- gtrends(c("animal sex"), geo = c("PK", "SA", "DE", "NL"), gprop = "web", time = "2010-06-30 2017-06-30")[[1]]

Search popularity in Germany(GE), Netherlands (NL), Pakistan (PK) and Saudi (SA) on “animal sex”.

ggplot(google.trends, aes(date, hits, colour = geo)) + 
  geom_point()

…oh no.

LS0tCnRpdGxlOiAiR29vZ2xlIFNlYXJjaCB0cmVuZHMiCm91dHB1dDoKICBodG1sX25vdGVib29rOiBkZWZhdWx0CiAgcGRmX2RvY3VtZW50OiBkZWZhdWx0Ci0tLQoKU2VhcmNoIHRyZW5kcyBpbiBHb29nbGUgCgpgYGB7ciwgZWNobz1GQUxTRX0KbGlicmFyeShndHJlbmRzUikKbGlicmFyeShyZXNoYXBlMikKbGlicmFyeShnZ3Bsb3QyKQpgYGAKS2V5d29yZHMKYGBge3J9CiAgCmdvb2dsZS50cmVuZHMgPSBndHJlbmRzKGMoInZpYWdyYSIpLCBncHJvcCA9ICJ3ZWIiLCB0aW1lID0gImFsbCIpW1sxXV0KZ29vZ2xlLnRyZW5kcyA9IGRjYXN0KGdvb2dsZS50cmVuZHMsIGRhdGUgfiBrZXl3b3JkICsgZ2VvLCB2YWx1ZS52YXIgPSAiaGl0cyIpCnJvd25hbWVzKGdvb2dsZS50cmVuZHMpID0gZ29vZ2xlLnRyZW5kcyRkYXRlCmdvb2dsZS50cmVuZHMkZGF0ZSA9IE5VTEwKClZpZXcoZ29vZ2xlLnRyZW5kcykKCmBgYApTZXQgdGltZXpvbmUKYGBge3J9ClN5cy5zZXRlbnYoVFogPSAiVVRDIikKYGBgCgpHZW9ncmFwaGljYWwgcmVnaW9uIGFuZCB0aW1lLWZyYW1lIGZvciAidmlhZ3JhIgpgYGB7cn0KZ29vZ2xlLnRyZW5kcyA8LSBndHJlbmRzKGMoInZpYWdyYSIpLCBnZW8gPSBjKCJOTCIsICJERSIsICJFUyIsICJGUiIpLCBncHJvcCA9ICJ3ZWIiLCB0aW1lID0gIjIwMTAtMDYtMzAgMjAxNy0wNi0zMCIpW1sxXV0KCmBgYApQbG90IHRyZW5kIG9mICJWaWFncmEiIGZyb20gR29vZ2xlIGluIGZvdXIgZGlmZmVyZW50IGNvdW50cmllcy4gSWYgaGl0IGlzIGhpZ2gsIGl0IG1lYW5zIGhpZ2ggZ29vZ2xlLXNlYXJjaC1wb3B1bGFyaXR5ISAoRmlsdGh5IEdlcm1hbnMhKS4KCmBgYHtyfQpnZ3Bsb3QoZ29vZ2xlLnRyZW5kcywgYWVzKGRhdGUsIGhpdHMsIGNvbG91ciA9IGdlbykpICsgCiAgZ2VvbV9wb2ludCgpCmBgYAoKR2VvZ3JhcGhpY2FsIHJlZ2lvbiBhbmQgdGltZS1mcmFtZSBmb3IgImFuaW1hbCBzZXgiCmBgYHtyfQpnb29nbGUudHJlbmRzIDwtIGd0cmVuZHMoYygiYW5pbWFsIHNleCIpLCBnZW8gPSBjKCJQSyIsICJTQSIsICJERSIsICJOTCIpLCBncHJvcCA9ICJ3ZWIiLCB0aW1lID0gIjIwMTAtMDYtMzAgMjAxNy0wNi0zMCIpW1sxXV0KCmBgYApTZWFyY2ggcG9wdWxhcml0eSBpbiBHZXJtYW55KEdFKSwgTmV0aGVybGFuZHMgKE5MKSwgUGFraXN0YW4gKFBLKSBhbmQgU2F1ZGkgKFNBKSBvbiAiYW5pbWFsIHNleCIuCgpgYGB7cn0KZ2dwbG90KGdvb2dsZS50cmVuZHMsIGFlcyhkYXRlLCBoaXRzLCBjb2xvdXIgPSBnZW8pKSArIAogIGdlb21fcG9pbnQoKQpgYGAKCi4uLm9oIG5vLgo=