Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("TGT", "WMT", "COST"),
                 get = "stock.prices",
                 from = "2020-01-01",
                 to = "2023-01-01")
stocks

## # A tibble: 2,268 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 TGT    2020-01-02  129.  129.  125.  126.  5149800     114.
##  2 TGT    2020-01-03  125.  126.  124.  125.  5018500     113.
##  3 TGT    2020-01-06  124.  125.  123.  124.  4226900     112.
##  4 TGT    2020-01-07  123   124.  123   124.  3641600     112.
##  5 TGT    2020-01-08  124.  125.  123.  123.  5731600     112.
##  6 TGT    2020-01-09  124.  125.  123.  124.  5369700     112.
##  7 TGT    2020-01-10  125.  126.  124.  125.  4678000     113.
##  8 TGT    2020-01-13  125.  125.  123.  124.  3632800     112.
##  9 TGT    2020-01-14  124.  126.  123.  125.  3291900     113.
## 10 TGT    2020-01-15  117.  119.  116.  117  26743400     106.
## # ℹ 2,258 more rows

Plot stock prices

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