Use the given code below to answer the questions.
Hint: Insert a new code chunk below and type in the code, using the tq_get() function above. Replace the ticker symbol for Walmart. You may find the ticker symbol for Microsoft from Yahoo Finance.
Hint: Insert a new code chunk below and type in the code, using the ggplot() function above. Revise the code so that it maps adjusted to the y-axis, instead of close.
## Load package
library(tidyverse) # for cleaning, plotting, etc
library(tidyquant) # for financial analysis
## Import data
stocks <- tq_get("AAPL", get = "stock.prices", from = "2016-01-01")
stocks
## # A tibble: 1,028 x 7
## date open high low close volume adjusted
## <date> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2016-01-04 103. 105. 102 105. 67649400 98.4
## 2 2016-01-05 106. 106. 102. 103. 55791000 96.0
## 3 2016-01-06 101. 102. 99.9 101. 68457400 94.1
## 4 2016-01-07 98.7 100. 96.4 96.4 81094400 90.1
## 5 2016-01-08 98.6 99.1 96.8 97.0 70798000 90.6
## 6 2016-01-11 99.0 99.1 97.3 98.5 49739400 92.1
## 7 2016-01-12 101. 101. 98.8 100. 49154200 93.4
## 8 2016-01-13 100. 101. 97.3 97.4 62439600 91.0
## 9 2016-01-14 98.0 100. 95.7 99.5 63170100 93.0
## 10 2016-01-15 96.2 97.7 95.4 97.1 79833900 90.8
## # … with 1,018 more rows
For more information on the ggplot() function, refer to Ch2 Introduction to ggplot2 in one of our e-textbooks, Data Visualization with R.
Hint: Use message, echo and results in the chunk options. Refer to the RMarkdown Reference Guide.
Hint: Use eval in the chunk option. Refer to the RMarkdown Reference Guide.