Using the given code, answer the questions below.
## # A tibble: 1,562 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,552 more rows
There are 7 variables (columns).
The variables are date, open, low, high, close, volume, and adjusted.
## # A tibble: 1,562 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,552 more rows
There are 8 variables now, the new variable is symbol.
Hint: Use dplyr::mutate. Market cap is given by the formula, MC = N × P, where MC is the market capitalization, N is the number of shares outstanding, and P is the closing price per share.
Hint: Use dplyr::select.
Hint: Use ggplot2::ggplot.