Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("GRMN", "MTN", "NVDA", "AAPL"),
                 get = "stock.prices",
                 from = "2016-01-01")
stocks

## # A tibble: 8,724 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 GRMN   2016-01-04  36.6  36.9  36.3  36.8 2050100     28.6
##  2 GRMN   2016-01-05  37    37.3  36.8  36.9 1305500     28.7
##  3 GRMN   2016-01-06  36.4  36.6  35.8  35.9 2521400     27.9
##  4 GRMN   2016-01-07  35.4  35.6  34.8  34.9 1688900     27.1
##  5 GRMN   2016-01-08  35.1  35.3  33.5  33.5 2429400     26.0
##  6 GRMN   2016-01-11  33.9  34.0  32.8  33.2 2416400     25.8
##  7 GRMN   2016-01-12  33.7  33.7  32.7  33.2 1729800     25.7
##  8 GRMN   2016-01-13  33.3  33.5  32.4  32.5 1552500     25.2
##  9 GRMN   2016-01-14  32.7  33.4  32.1  33.2 1973300     25.8
## 10 GRMN   2016-01-15  32.1  32.8  32.0  32.5 2168800     25.2
## # ℹ 8,714 more rows

Plot stock prices

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