Finance Club current Portfolio

10 Year Historical Prices (Excluding “UVXY”)

stocks <- tq_get(c("HLIT", "ABR", "RYLD", "GM", "COPX", "AMLP", "XYLD", "FDRR", "DBP", "PRFT", "IUSV", "BSV", "FRC", "META", "JPM", "JNJ", "NXST", "SPY"),
                 get = "stock.prices",
                 from = "2013-02-01")
stocks
## # A tibble: 42,714 × 8
##    symbol date        open  high   low close volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>  <dbl>    <dbl>
##  1 HLIT   2013-02-01  5.24  5.38  5.17  5.34 620900     5.34
##  2 HLIT   2013-02-04  5.27  5.36  5.24  5.29 524100     5.29
##  3 HLIT   2013-02-05  5.35  5.39  5.29  5.36 352000     5.36
##  4 HLIT   2013-02-06  5.31  5.35  5.25  5.35 359800     5.35
##  5 HLIT   2013-02-07  5.33  5.39  5.33  5.35 328700     5.35
##  6 HLIT   2013-02-08  5.38  5.38  5.32  5.35 314900     5.35
##  7 HLIT   2013-02-11  5.37  5.45  5.33  5.44 305900     5.44
##  8 HLIT   2013-02-12  5.46  5.5   5.4   5.46 408100     5.46
##  9 HLIT   2013-02-13  5.5   5.54  5.42  5.48 668400     5.48
## 10 HLIT   2013-02-14  5.45  5.73  5.45  5.7  832100     5.7 
## # … with 42,704 more rows

Plot stock prices

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