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.
library(tidyverse) # for cleaning, plotting, etc
library(tidyquant) # for financial analysis
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
There are seven columns.
The second observation states that on 1/5/2016, it opened at 62.0 and closed at 62.9.
The type of data is numerical. The other basic data types are character and logical.
## Visualize
stocks %>%
ggplot(aes(x = date, y = adjusted)) +
geom_line()
Walmart stock has been increasing since the beginning of 2019.
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.