Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("JPM", "GS", "SOFI"),
                 get = "stock.prices",
                 from = "2020-01-01")
stocks

## # A tibble: 4,781 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 JPM    2020-01-02  140.  141.  139.  141. 10803700     118.
##  2 JPM    2020-01-03  138.  139.  137.  138. 10386800     116.
##  3 JPM    2020-01-06  137.  138.  136.  138. 10259000     116.
##  4 JPM    2020-01-07  137.  138.  136.  136. 10531300     114.
##  5 JPM    2020-01-08  136.  138.  136.  137.  9695300     115.
##  6 JPM    2020-01-09  138.  138.  137.  137.  9469000     116.
##  7 JPM    2020-01-10  137.  137.  136.  136. 10190900     114.
##  8 JPM    2020-01-13  136.  137.  136.  137. 12355200     115.
##  9 JPM    2020-01-14  138.  141.  138.  139. 24906000     117.
## 10 JPM    2020-01-15  138.  139.  136.  137. 16293400     115.
## # ℹ 4,771 more rows

Plot stock prices

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