Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("NVDA", "SHOP" , "TTD"),
                 get = "stock.prices",
                 from = "2025-01-01")
            
stocks

## # A tibble: 264 × 8
##    symbol date        open  high   low close    volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>     <dbl>    <dbl>
##  1 NVDA   2025-01-02  136   139.  135.  138. 198247200     138.
##  2 NVDA   2025-01-03  140.  145.  140.  144. 229322500     144.
##  3 NVDA   2025-01-06  149.  152.  148.  149. 265377400     149.
##  4 NVDA   2025-01-07  153.  153.  140.  140. 351782200     140.
##  5 NVDA   2025-01-08  143.  144.  138.  140. 227349900     140.
##  6 NVDA   2025-01-10  137.  140.  134.  136. 207602500     136.
##  7 NVDA   2025-01-13  130.  133.  130.  133. 204808900     133.
##  8 NVDA   2025-01-14  136.  136.  130.  132. 195590500     132.
##  9 NVDA   2025-01-15  134.  136.  131.  136. 185217300     136.
## 10 NVDA   2025-01-16  139.  139.  133.  134. 209235600     134.
## # ℹ 254 more rows

Plot stock prices

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

Import stock prices

stocks <- tq_get(c("GOOG", "UPST" , "AAPL"),
                 get = "stock.prices",
                 from = "2025-01-01")
stocks

## # A tibble: 264 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 GOOG   2025-01-02  191.  193.  189.  191. 17545200     190.
##  2 GOOG   2025-01-03  193.  194.  191.  193. 12875000     193.
##  3 GOOG   2025-01-06  195.  200.  195.  198. 19483300     198.
##  4 GOOG   2025-01-07  198.  202.  196.  197. 16966800     196.
##  5 GOOG   2025-01-08  194.  198.  194.  195. 14335300     195.
##  6 GOOG   2025-01-10  195.  198.  192.  193. 20753800     193.
##  7 GOOG   2025-01-13  191.  192.  189.  192. 13169100     192.
##  8 GOOG   2025-01-14  192.  193.  190.  191. 13651200     191.
##  9 GOOG   2025-01-15  194.  198.  193.  197. 12894900     197.
## 10 GOOG   2025-01-16  196.  197.  194.  194. 13449600     194.
## # ℹ 254 more rows

Plot stock prices

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