Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("CELH", "QTUM", "NOK"),
                 get = "stock.prices",
                 from = "2020-01-01",
                 to = "2021-01-01")
stocks

## # A tibble: 759 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 CELH   2020-01-02  1.61  1.62  1.57  1.58  858300     1.58
##  2 CELH   2020-01-03  1.57  1.57  1.51  1.55  876000     1.55
##  3 CELH   2020-01-06  1.53  1.55  1.50  1.51  804600     1.51
##  4 CELH   2020-01-07  1.5   1.5   1.37  1.42 3549300     1.42
##  5 CELH   2020-01-08  1.42  1.48  1.42  1.46 1061100     1.46
##  6 CELH   2020-01-09  1.48  1.58  1.46  1.56 1276500     1.56
##  7 CELH   2020-01-10  1.57  1.63  1.52  1.54  717300     1.54
##  8 CELH   2020-01-13  1.54  1.62  1.52  1.60 1026600     1.60
##  9 CELH   2020-01-14  1.60  1.62  1.58  1.60  577800     1.60
## 10 CELH   2020-01-15  1.62  1.63  1.59  1.61  584100     1.61
## # ℹ 749 more rows

Plot stock prices

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