Week 2: Apply 1

Import stock prices

stocks <- tq_get(c("GOOG", "MSFT", "SONY"),
                 get = "stock.prices",
                 from = "2016-01-01")
stocks

## # A tibble: 8,139 × 8
##    symbol date        open  high   low close   volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 GOOG   2016-01-04  37.2  37.2  36.6  37.1 65456000     36.7
##  2 GOOG   2016-01-05  37.3  37.6  36.9  37.1 39014000     36.8
##  3 GOOG   2016-01-06  36.5  37.4  36.4  37.2 38940000     36.8
##  4 GOOG   2016-01-07  36.5  36.9  36.0  36.3 59274000     36.0
##  5 GOOG   2016-01-08  36.6  36.7  35.7  35.7 49018000     35.4
##  6 GOOG   2016-01-11  35.8  35.9  35.2  35.8 41812000     35.5
##  7 GOOG   2016-01-12  36.1  36.4  35.9  36.3 40490000     36.0
##  8 GOOG   2016-01-13  36.5  36.7  34.9  35.0 50034000     34.7
##  9 GOOG   2016-01-14  35.3  36.1  34.5  35.7 44516000     35.4
## 10 GOOG   2016-01-15  34.6  35.3  34.3  34.7 72162000     34.4
## # ℹ 8,129 more rows

Plot stock prices

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