# Load packages
library(tidyverse)
library(tidyquant)

1 Import stock prices of your choice

# Choose stocks
symbols <- c("WMT", "F", "APPL")

prices <- tq_get(x = symbols, 
                 get = "stock.prices", 
                 from = "2012-01-01", 
                 to = "2017-01-01")

2 Convert prices to returns by quarterly

3 Make plot

4 Interpret the plot

Apple(APPL) has the highest return between the three of APPL,F,WMT. And it will continue to have the highest return for times to come.

5 Change the global chunck options

Hide the code, messages, and warnings