library$($shiny$)$

library$($gtrendsR$)$

library$($ggplot$2)$

ui $<-$ fluidPage$($

titlePanel$("$Google Trends Data Visualization"$),$

sidebarLayout$($

sidebarPanel$($

dateRangeInput$("$dateRange$",$ "Select Date Range",

start $="2022-01-01",$

end $=$ format$($Sys$.$Date$(),"\%$Y$-\%$m$-\%$d$")),$

actionButton$("$submit$",$ "Generate Plot"$)$

$),$

mainPanel$($

plotOutput$("$trendPlot$")$

$)$

$)$

$)$

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

observeEvent$($input$submit, $\{$

req$($input$dateRange$)$

start$\_$date $<-$ format$($input$dateRange$[1],"\%$Y$-\%$m$-\%$d$")$

end$\_$date $<-$ format$($input$dateRange$[2],"\%$Y$-\%$m$-\%$d$")$

Data $<-$ gtrends$($keyword $=$ c$(\text{'}$APPLE$\text{'},$ 'META'$),$ geo $="$US$",$ time $=$ paste$($start$\_$date, end$\_$date$))$

ggplot$($Data$,$ aes$($x $=$ date, y $=$ hits, color $=$ keyword$))+$

geom$\_$point$()+$

labs$($title $=$ "Google Trends Data",

x $=$ "Date",

y $=$ "Search Volume"$)$

$\})$

$\}$

shinyApp$($ui $=$ ui$,$ server $=$ 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$)$