Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("MSFT", "SONY"),
                 get = "stock.prices",
                 from = "2023-01-01",
                 to = "2024-01-01")
stocks

## # A tibble: 500 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 MSFT   2023-01-03  243.  246.  237.  240. 25740000     234.
##  2 MSFT   2023-01-04  232.  233.  226.  229. 50623400     224.
##  3 MSFT   2023-01-05  227.  228.  222.  222. 39585600     218.
##  4 MSFT   2023-01-06  223   226.  219.  225. 43613600     220.
##  5 MSFT   2023-01-09  226.  231.  226.  227. 27369800     222.
##  6 MSFT   2023-01-10  228.  231.  227.  229. 27033900     224.
##  7 MSFT   2023-01-11  231.  236.  231.  236. 28669300     231.
##  8 MSFT   2023-01-12  235.  240.  234.  239. 27269500     233.
##  9 MSFT   2023-01-13  237   239.  235.  239. 21333300     234.
## 10 MSFT   2023-01-17  238.  241.  237.  240. 29831300     235.
## # ℹ 490 more rows

Plot stock prices

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