Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("SOXX", "TKR", "VTV" ),
                 get = "stock.prices",
                 from = "2020-01-01",
                 to = "2026-01-01")
stocks

## # A tibble: 4,524 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 SOXX   2020-01-02  84.8  85.4  84.3  85.4 1275300     80.9
##  2 SOXX   2020-01-03  84.1  84.6  83.7  83.8 1235100     79.4
##  3 SOXX   2020-01-06  82.8  83.2  82.4  83.0 1615200     78.6
##  4 SOXX   2020-01-07  84.0  84.8  83.5  84.5 1146600     80.0
##  5 SOXX   2020-01-08  84.7  85.0  84.1  84.4 1297800     80.0
##  6 SOXX   2020-01-09  85.6  85.6  84.1  84.9  639600     80.5
##  7 SOXX   2020-01-10  85.5  85.5  84.2  84.5 1952100     80.0
##  8 SOXX   2020-01-13  85.0  85.6  84.8  85.4  950100     80.9
##  9 SOXX   2020-01-14  85.7  86.3  85.2  85.6  896400     81.1
## 10 SOXX   2020-01-15  85.7  85.8  84.4  84.7 1516500     80.3
## # ℹ 4,514 more rows

Plot stock prices

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