Import stock prices

Stocks from Home Depot, Lowe’s & COSTCO

stocks <- tq_get(c("HD", "LOW", "COST"),
                 get = "stock.prices",
                 from = "2018-01-01")
stocks
## # A tibble: 6,534 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 HD     2018-01-02  190.  191.  188.  188. 4684700     153.
##  2 HD     2018-01-03  188   189.  188.  189. 4530500     153.
##  3 HD     2018-01-04  190.  191.  188.  191. 4047400     155.
##  4 HD     2018-01-05  191.  193.  191.  192. 4224800     156.
##  5 HD     2018-01-08  192.  194.  192.  192. 3508500     156.
##  6 HD     2018-01-09  193.  193.  192.  193. 3012300     157.
##  7 HD     2018-01-10  193.  193.  192.  192. 3119500     156.
##  8 HD     2018-01-11  192.  195.  191.  195. 3899200     158.
##  9 HD     2018-01-12  196.  199.  195.  196. 6748400     159.
## 10 HD     2018-01-16  198.  199.  196.  196. 5692700     159.
## # ℹ 6,524 more rows

Plot stock prices

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