Question 1 1ibrary (tidyquant) library (dpiyr) mydata ="19900101", mydata. %>% group by (symbol) %>% tq_transmute (aelect = adjusted, mutate_. fun = to. monthly, indexft = "lastof") >>% tq_mutate (adjusted, periodReturn, col_tenato = "return") 11brary (ggplot2) A\# HERE CODE TO MAKE THE PLOTS H\# DISCUSSION .... blablabla