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 walmart from Yahoo Finance.
## Load package
library(tidyverse) # for cleaning, plotting, etc
library(tidyquant) # for financial analysis
## Import data
stocks <- tq_get("WMT", get = "stock.prices", from = "2016-01-01")
stocks
## # A tibble: 1,025 x 7
## date open high low close volume adjusted
## <date> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2016-01-04 60.5 61.5 60.4 61.5 11989200 55.7
## 2 2016-01-05 62.0 63.0 61.8 62.9 13326000 57.1
## 3 2016-01-06 62.5 64.0 62.5 63.5 16564600 57.6
## 4 2016-01-07 63.0 65.2 62.9 65.0 26430000 59.0
## 5 2016-01-08 65.1 65.4 63.4 63.5 17767900 57.6
## 6 2016-01-11 63.8 64.5 63.6 64.2 12653800 58.2
## 7 2016-01-12 64.4 64.7 63.4 63.6 12195900 57.7
## 8 2016-01-13 63.7 63.7 61.8 61.9 13725700 56.2
## 9 2016-01-14 62 63.6 61.8 63.1 12934900 57.2
## 10 2016-01-15 61.5 62.5 61.3 61.9 15174400 56.2
## # … with 1,015 more rows
## Visualize
stocks %>%
ggplot(aes(x = date, y = adjusted)) +
geom_line()
## Q6 From the chart you created in Q5, briefly describe how the Amazon stock has performed since the beginning of 2019. ## Since 2018 Walmart went up 2.0 in 2019 ## Q7 Hide the messages and the code, but display results of the code from the webpage. 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.