Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("SPOT", "ISRG", "KHC", "FIS", "GOOG"),
                 get = "stock.prices",
                 from = "2020-01-01",)
stocks

## # A tibble: 5,930 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 SPOT   2020-01-02  151   153.  150.  152.  662600     152.
##  2 SPOT   2020-01-03  150.  154.  150.  152. 1018400     152.
##  3 SPOT   2020-01-06  151.  157   150.  157. 1311900     157.
##  4 SPOT   2020-01-07  157.  158.  155.  156.  876700     156.
##  5 SPOT   2020-01-08  156.  159.  155.  159.  974500     159.
##  6 SPOT   2020-01-09  158.  160.  157.  158. 1630600     158.
##  7 SPOT   2020-01-10  158.  159.  155.  156. 1046400     156.
##  8 SPOT   2020-01-13  152.  154.  150.  151. 1880900     151.
##  9 SPOT   2020-01-14  152.  152.  148.  149. 1048000     149.
## 10 SPOT   2020-01-15  149.  153.  149.  152. 1037400     152.
## # ℹ 5,920 more rows

Plot stock prices

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