Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("MSFT", "AAPL","NKE"),
                 get = "stock.prices",
                 from = "2022-01-01",)
            
stocks

## # A tibble: 2,757 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 MSFT   2022-01-03  335.  338   330.  335. 28865100     325.
##  2 MSFT   2022-01-04  335.  335.  326.  329. 32674300     319.
##  3 MSFT   2022-01-05  326.  326.  316.  316. 40054300     307.
##  4 MSFT   2022-01-06  313.  319.  311.  314. 39646100     304.
##  5 MSFT   2022-01-07  314.  316.  310.  314. 32720000     304.
##  6 MSFT   2022-01-10  309.  315.  305.  314. 44289500     305.
##  7 MSFT   2022-01-11  313.  317.  310.  315. 29386800     305.
##  8 MSFT   2022-01-12  320.  323.  317.  318. 34372200     309.
##  9 MSFT   2022-01-13  320.  321.  304   305. 45366000     295.
## 10 MSFT   2022-01-14  304.  311.  304.  310. 39846400     301.
## # ℹ 2,747 more rows

Plot stock prices

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