my_theme <- function() {
theme_bw() +
theme(panel.background = element_blank()) +
theme(plot.background = element_rect(fill = "seashell")) +
theme(panel.border = element_blank()) + # facet border
theme(strip.background = element_blank()) + # facet title background
theme(plot.margin = unit(c(.5, .5, .5, .5), "cm")) +
theme(panel.spacing = unit(3, "lines")) +
theme(panel.grid.major = element_blank()) +
theme(panel.grid.minor = element_blank()) +
theme(legend.background = element_blank()) +
theme(legend.key = element_blank()) +
theme(legend.title = element_blank())
}
res <- gtrends(c("LA Angels", "LA Dodgers"), geo = c("US"),gprop = "web",time = ("2010-09-01 2020-09-01"))
plot(res)
res <- gtrends(c("LA Angels", "LA Dodgers"), geo = c("US"),gprop = "web",time = ("2019-09-01 2020-09-01"))
plot(res)
angels <- gtrends(("LA Angels"), geo = c("US"),gprop = "web",time = ("2019-09-01 2020-09-01"))
str(res)
## List of 7
## $ interest_over_time :'data.frame': 106 obs. of 7 variables:
## ..$ date : POSIXct[1:106], format: "2019-09-01" "2019-09-08" ...
## ..$ hits : int [1:106] 7 6 5 6 5 4 4 4 3 4 ...
## ..$ keyword : chr [1:106] "LA Angels" "LA Angels" "LA Angels" "LA Angels" ...
## ..$ geo : chr [1:106] "US" "US" "US" "US" ...
## ..$ time : chr [1:106] "2019-09-01 2020-09-01" "2019-09-01 2020-09-01" "2019-09-01 2020-09-01" "2019-09-01 2020-09-01" ...
## ..$ gprop : chr [1:106] "web" "web" "web" "web" ...
## ..$ category: int [1:106] 0 0 0 0 0 0 0 0 0 0 ...
## $ interest_by_country: NULL
## $ interest_by_region :'data.frame': 102 obs. of 5 variables:
## ..$ location: chr [1:102] "California" "Nevada" "Hawaii" "Louisiana" ...
## ..$ hits : int [1:102] 100 52 50 47 37 32 23 21 21 19 ...
## ..$ keyword : chr [1:102] "LA Angels" "LA Angels" "LA Angels" "LA Angels" ...
## ..$ geo : chr [1:102] "US" "US" "US" "US" ...
## ..$ gprop : chr [1:102] "web" "web" "web" "web" ...
## $ interest_by_dma :'data.frame': 420 obs. of 5 variables:
## ..$ location: chr [1:420] "Los Angeles CA" "Palm Springs CA" "Santa Barbara-Santa Maria-San Luis Obispo CA" "Bakersfield CA" ...
## ..$ hits : int [1:420] 100 100 74 50 37 35 33 32 30 21 ...
## ..$ keyword : chr [1:420] "LA Angels" "LA Angels" "LA Angels" "LA Angels" ...
## ..$ geo : chr [1:420] "US" "US" "US" "US" ...
## ..$ gprop : chr [1:420] "web" "web" "web" "web" ...
## $ interest_by_city :'data.frame': 17 obs. of 5 variables:
## ..$ location: chr [1:17] "Los Angeles" "San Diego" "New York" "Santa Clarita" ...
## ..$ hits : int [1:17] 100 70 11 100 62 53 52 47 44 26 ...
## ..$ keyword : chr [1:17] "LA Angels" "LA Angels" "LA Angels" "LA Dodgers" ...
## ..$ geo : chr [1:17] "US" "US" "US" "US" ...
## ..$ gprop : chr [1:17] "web" "web" "web" "web" ...
## $ related_topics : NULL
## $ related_queries :'data.frame': 86 obs. of 6 variables:
## ..$ subject : chr [1:86] "100" "91" "85" "73" ...
## ..$ related_queries: chr [1:86] "top" "top" "top" "top" ...
## ..$ value : chr [1:86] "la dodgers" "la angels news" "dodgers" "los angeles angels" ...
## ..$ geo : chr [1:86] "US" "US" "US" "US" ...
## ..$ keyword : chr [1:86] "LA Angels" "LA Angels" "LA Angels" "LA Angels" ...
## ..$ category : int [1:86] 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "reshapeLong")=List of 4
## .. ..$ varying:List of 1
## .. .. ..$ value: chr "top"
## .. .. ..- attr(*, "v.names")= chr "value"
## .. .. ..- attr(*, "times")= chr "top"
## .. ..$ v.names: chr "value"
## .. ..$ idvar : chr "id"
## .. ..$ timevar: chr "related_queries"
## - attr(*, "class")= chr [1:2] "gtrends" "list"
region <- as_tibble(angels$interest_by_region)
region <- region %>%
mutate(region = stringr::str_to_lower(location))
statesMap = ggplot2::map_data("state")
plot(angels)
angels <- gtrends(("LA Dodgers"), geo = c("US"),gprop = "web",time = ("2019-09-01 2020-09-01"))
str(res)
## List of 7
## $ interest_over_time :'data.frame': 106 obs. of 7 variables:
## ..$ date : POSIXct[1:106], format: "2019-09-01" "2019-09-08" ...
## ..$ hits : int [1:106] 7 6 5 6 5 4 4 4 3 4 ...
## ..$ keyword : chr [1:106] "LA Angels" "LA Angels" "LA Angels" "LA Angels" ...
## ..$ geo : chr [1:106] "US" "US" "US" "US" ...
## ..$ time : chr [1:106] "2019-09-01 2020-09-01" "2019-09-01 2020-09-01" "2019-09-01 2020-09-01" "2019-09-01 2020-09-01" ...
## ..$ gprop : chr [1:106] "web" "web" "web" "web" ...
## ..$ category: int [1:106] 0 0 0 0 0 0 0 0 0 0 ...
## $ interest_by_country: NULL
## $ interest_by_region :'data.frame': 102 obs. of 5 variables:
## ..$ location: chr [1:102] "California" "Nevada" "Hawaii" "Louisiana" ...
## ..$ hits : int [1:102] 100 52 50 47 37 32 23 21 21 19 ...
## ..$ keyword : chr [1:102] "LA Angels" "LA Angels" "LA Angels" "LA Angels" ...
## ..$ geo : chr [1:102] "US" "US" "US" "US" ...
## ..$ gprop : chr [1:102] "web" "web" "web" "web" ...
## $ interest_by_dma :'data.frame': 420 obs. of 5 variables:
## ..$ location: chr [1:420] "Los Angeles CA" "Palm Springs CA" "Santa Barbara-Santa Maria-San Luis Obispo CA" "Bakersfield CA" ...
## ..$ hits : int [1:420] 100 100 74 50 37 35 33 32 30 21 ...
## ..$ keyword : chr [1:420] "LA Angels" "LA Angels" "LA Angels" "LA Angels" ...
## ..$ geo : chr [1:420] "US" "US" "US" "US" ...
## ..$ gprop : chr [1:420] "web" "web" "web" "web" ...
## $ interest_by_city :'data.frame': 17 obs. of 5 variables:
## ..$ location: chr [1:17] "Los Angeles" "San Diego" "New York" "Santa Clarita" ...
## ..$ hits : int [1:17] 100 70 11 100 62 53 52 47 44 26 ...
## ..$ keyword : chr [1:17] "LA Angels" "LA Angels" "LA Angels" "LA Dodgers" ...
## ..$ geo : chr [1:17] "US" "US" "US" "US" ...
## ..$ gprop : chr [1:17] "web" "web" "web" "web" ...
## $ related_topics : NULL
## $ related_queries :'data.frame': 86 obs. of 6 variables:
## ..$ subject : chr [1:86] "100" "91" "85" "73" ...
## ..$ related_queries: chr [1:86] "top" "top" "top" "top" ...
## ..$ value : chr [1:86] "la dodgers" "la angels news" "dodgers" "los angeles angels" ...
## ..$ geo : chr [1:86] "US" "US" "US" "US" ...
## ..$ keyword : chr [1:86] "LA Angels" "LA Angels" "LA Angels" "LA Angels" ...
## ..$ category : int [1:86] 0 0 0 0 0 0 0 0 0 0 ...
## ..- attr(*, "reshapeLong")=List of 4
## .. ..$ varying:List of 1
## .. .. ..$ value: chr "top"
## .. .. ..- attr(*, "v.names")= chr "value"
## .. .. ..- attr(*, "times")= chr "top"
## .. ..$ v.names: chr "value"
## .. ..$ idvar : chr "id"
## .. ..$ timevar: chr "related_queries"
## - attr(*, "class")= chr [1:2] "gtrends" "list"
region <- as_tibble(angels$interest_by_region)
region <- region %>%
mutate(region = stringr::str_to_lower(location))
statesMap = ggplot2::map_data("state")
plot(angels)
ggplot(data=angels$interest_over_time, 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")
head(angels$interest_by_dma)
## location hits keyword geo gprop
## 1 Santa Barbara-Santa Maria-San Luis Obispo CA 100 LA Dodgers US web
## 2 Los Angeles CA 95 LA Dodgers US web
## 3 Palm Springs CA 85 LA Dodgers US web
## 4 Bakersfield CA 83 LA Dodgers US web
## 5 Yuma AZ-El Centro CA 76 LA Dodgers US web
## 6 Fresno-Visalia CA 70 LA Dodgers US web
res <- gtrends(c("SF Giants","LA Dodgers","LA Angels","SD Padres"),
geo = "US",
time = ("2010-09-01 2020-09-01"))
plot(res)
