Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("X", "CMC", "ZEUS"),
                 get = "stock.prices",
                 from = "2019-01-01")
stocks

## # A tibble: 4,281 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 X      2019-01-02  17.8  18.8  17.6  18.5  7803700     17.8
##  2 X      2019-01-03  18.4  18.9  18.3  18.5  8359100     17.7
##  3 X      2019-01-04  18.8  20.5  18.8  20.3 10737800     19.5
##  4 X      2019-01-07  20.9  21    20.2  20.5 12320700     19.6
##  5 X      2019-01-08  20.6  21.2  20.4  20.7  8463400     19.9
##  6 X      2019-01-09  20.9  21    20.1  20.8  9685600     20.0
##  7 X      2019-01-10  20.6  21.1  20.4  21.0  7419400     20.1
##  8 X      2019-01-11  20.8  21.1  20.5  21.0  8024300     20.2
##  9 X      2019-01-14  20.8  21.2  20.5  20.8  6607600     20.0
## 10 X      2019-01-15  20.9  21.1  19.9  20.2  9304300     19.4
## # ℹ 4,271 more rows

Plot stock prices

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