Using the given code, answer the questions below.
library(tidyquant)
library(tidyverse)
stocks <- tq_get(c("AAPL","FB"),get = "stock.prices", from = "2016-01-01")
stocks
## # A tibble: 1,572 x 8
## symbol date open high low close volume adjusted
## <chr> <date> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 AAPL 2016-01-04 103. 105. 102 105. 67649400 99.5
## 2 AAPL 2016-01-05 106. 106. 102. 103. 55791000 97.0
## 3 AAPL 2016-01-06 101. 102. 99.9 101. 68457400 95.1
## 4 AAPL 2016-01-07 98.7 100. 96.4 96.4 81094400 91.1
## 5 AAPL 2016-01-08 98.6 99.1 96.8 97.0 70798000 91.6
## 6 AAPL 2016-01-11 99.0 99.1 97.3 98.5 49739400 93.1
## 7 AAPL 2016-01-12 101. 101. 98.8 100.0 49154200 94.4
## 8 AAPL 2016-01-13 100. 101. 97.3 97.4 62439600 92.0
## 9 AAPL 2016-01-14 98.0 100. 95.7 99.5 63170100 94.0
## 10 AAPL 2016-01-15 96.2 97.7 95.4 97.1 79010000 91.7
## # ... with 1,562 more rows786
stock price
date
Hint: Insert a new code chunk below.
Hint: Take stocks, pipe it to the filter function (dplyr::filter) to filter for Facebook, and pipe it again to the arrange function (dplyr::arrange) to sort the data by the close variable in descending order. Insert a new code chunk below.
Hint: Insert a new code chunk below. tq_exchange_options(JPY)