Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("COIN", "CMG", "U", "RIOT"),
                 get = "stock.prices",
                 from = "2016-01-01")
stocks

## # A tibble: 6,146 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 COIN   2021-04-14  381   430.  310   328. 81065700     328.
##  2 COIN   2021-04-15  349.  349.  317.  323. 39777900     323.
##  3 COIN   2021-04-16  328.  346.  321.  342  22654500     342 
##  4 COIN   2021-04-19  337.  341.  327.  333  11405600     333 
##  5 COIN   2021-04-20  333.  335.  312.  321. 18082300     321.
##  6 COIN   2021-04-21  313.  327.  302.  312. 10103900     312.
##  7 COIN   2021-04-22  306.  314.  287.  293. 14991900     293.
##  8 COIN   2021-04-23  283.  303   282.  292.  9853800     292.
##  9 COIN   2021-04-26  304.  306.  297.  305.  6330200     305.
## 10 COIN   2021-04-27  307.  307.  300.  302   3902000     302 
## # ℹ 6,136 more rows

Plot stock prices

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