library$($shiny$)$

library$($shiny$)$

library$($tidyverse$)$

library$($gtrendsR$)$

library$($ggplot$2)$

library$($lubridate$)$

Data$<-$gtrends$($keyword$=$c$(\text{'}$APPLE$\text{'},$'META'$))$

Apple $<-$filter$($Data$interest$\_$over$\_$time, keyword $==$"APPLE"$)$

Meta $<-$filter$($Data$interest$\_$over$\_$time, keyword $==$ "META"$)$

Apple$date $=$ as$.$Date$($Apple$date$)$

Meta$date $=$ as$.$Date$($Meta$date$)$

ui $<-$ fluidPage$($

titlePanel$(\text{'}$Apple Hits Over Time'$),$

sidebarLayout$($

sidebarPanel$($

dateRangeInput$("$daterange$1",$ "Date range:",

start $=$ Sys$.$Date$()-60,$

end $=$ Sys$.$Date$()),$

plotOutput$("$Apple$\_$plot"$)$

$)$

dateRangeInput$("$daterange$2",$ "Date range:",

start $=$ Sys$.$Date$()-60,$

end $=$ Sys$.$Date$())$

plotOutput$("$Meta$\_$plot"$)$

server $<-$ function$($input$,$ output$)\{$

output$Apple$\_$plot $<-$ renderPlot$(\{$

output$Meta$\_$plot $<-$ renderPlot

data$\_$m$<-$filter$($Apple$,$date$>=$as$.$Date$($input$daterange$1[1])$ &

date$<=$as$.$Date$($input$daterange$1[2]))$

ggplot$($data$\_$m$,$

aes$($x$=$date,y$=$hits$))+$

geom$\_$point$()+$

xlab$("$Date$")+$

ylab$("$Hits$")$

$\})$

$\}$

shinyApp$($ui$,$ server$)$

Download data for names of any two companies of your interest from Google Trends. You can use the following example code: Data$<-$gtrends$($keyword$=$c$(\text{'}$APPLE$\text{'},$'META'$))$

Create a Shiny app with date$-$range input to select a start date and an end date.

The Shiny app should show a point plot for both companies over time. The points should have different colors based on the company $($use color parameter of ggplot$)$