Google Trend Example

The Google Trend of Disney Resorts and Theme Parks

terms <- c("Disney")
out <- gtrends(c("disney"), geo = "US", time = "today 3-m")
x = out$interest_over_time %>%
    select(date, hits, keyword)
x$date =  as.Date(x$date)
q =  x %>% ggplot(aes(x=date, y=hits, color = 'red')) +
        geom_line() + scale_x_date(date_minor_breaks="1 day", date_labels = "%b %d", date_breaks = "week") + 
        xlab("") + ylab("Daily hits")
(gg <- ggplotly(q))

Interest by Region Table

datatable(out$interest_by_region)

Intereset by Metropolitan Areas

datatable(out$interest_by_dma)

Intereset by City

datatable(out$interest_by_city)