Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("CRM", "PYPL", "ABNB"),
                 get = "stock.prices",
                 from = "2016-01-01")
stocks

## # A tibble: 4,096 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 CRM    2016-01-04  77.1  77.2  75.6  76.7 4919200     76.7
##  2 CRM    2016-01-05  77.1  78.0  76.7  77.1 2656800     77.1
##  3 CRM    2016-01-06  75.7  77.3  75.6  76.3 3484400     76.3
##  4 CRM    2016-01-07  75.1  75.6  73.5  74.3 6972200     74.3
##  5 CRM    2016-01-08  74.8  75.3  72.9  73.2 3673800     73.2
##  6 CRM    2016-01-11  73.7  73.8  71.9  73.2 3685100     73.2
##  7 CRM    2016-01-12  74.0  75.3  73.1  74.5 4108100     74.5
##  8 CRM    2016-01-13  75.0  75.7  71.8  72.3 4727500     72.3
##  9 CRM    2016-01-14  72.4  73.6  70.9  73.1 4738200     73.1
## 10 CRM    2016-01-15  69.9  71.1  68.2  70.9 9572100     70.9
## # … with 4,086 more rows

Plot stock prices

stocks %>%
    
    ggplot(aes(x = date, y = adjusted, color = symbol)) +
    geom_line()