Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("TSLA", "F", "TM", "HMC"),
                 get = "stock.prices",
                 from = "2018-01-01",
                 to = "2019-01-01")
stocks

## # A tibble: 1,004 × 8
##    symbol date        open  high   low close    volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>     <dbl>    <dbl>
##  1 TSLA   2018-01-02  20.8  21.5  20.7  21.4  65283000     21.4
##  2 TSLA   2018-01-03  21.4  21.7  21.0  21.2  67822500     21.2
##  3 TSLA   2018-01-04  20.9  21.2  20.4  21.0 149194500     21.0
##  4 TSLA   2018-01-05  21.1  21.1  20.8  21.1  68868000     21.1
##  5 TSLA   2018-01-08  21.1  22.5  21.0  22.4 147891000     22.4
##  6 TSLA   2018-01-09  22.3  22.6  21.8  22.2 107199000     22.2
##  7 TSLA   2018-01-10  22.1  22.5  22    22.3  64648500     22.3
##  8 TSLA   2018-01-11  22.3  23.0  22.2  22.5  99682500     22.5
##  9 TSLA   2018-01-12  22.6  22.7  22.2  22.4  72376500     22.4
## 10 TSLA   2018-01-16  22.5  23    22.3  22.7  97114500     22.7
## # … with 994 more rows

Plot stock prices

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