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 Microsoft. You may find the ticker symbol for Microsoft from Yahoo Finance.
## Load package
library(tidyverse) # for cleaning, plotting, etc
library(tidyquant) # for financial analysis
## Import data
stocks <- tq_get("MSFT", get = "stock.prices", from = "2016-01-01")
stocks
## # A tibble: 922 x 7
## date open high low close volume adjusted
## <date> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2016-01-04 54.3 54.8 53.4 54.8 53778000 50.7
## 2 2016-01-05 54.9 55.4 54.5 55.0 34079700 50.9
## 3 2016-01-06 54.3 54.4 53.6 54.0 39518900 50.0
## 4 2016-01-07 52.7 53.5 52.1 52.2 56564900 48.3
## 5 2016-01-08 52.4 53.3 52.2 52.3 48754000 48.4
## 6 2016-01-11 52.5 52.8 51.5 52.3 36943800 48.4
## 7 2016-01-12 52.8 53.1 52.1 52.8 36095500 48.8
## 8 2016-01-13 53.8 54.1 51.3 51.6 66883600 47.8
## 9 2016-01-14 52 53.4 51.6 53.1 52381900 49.1
## 10 2016-01-15 51.3 52.0 50.3 51.0 71820700 47.2
## # … with 912 more rows
7
## Examine data
glimpse(stocks)
## Observations: 922
## Variables: 7
## $ date <date> 2016-01-04, 2016-01-05, 2016-01-06, 2016-01-07, 2016-0…
## $ open <dbl> 54.32, 54.93, 54.32, 52.70, 52.37, 52.51, 52.76, 53.80,…
## $ high <dbl> 54.80, 55.39, 54.40, 53.49, 53.28, 52.85, 53.10, 54.07,…
## $ low <dbl> 53.39, 54.54, 53.64, 52.07, 52.15, 51.46, 52.06, 51.30,…
## $ close <dbl> 54.80, 55.05, 54.05, 52.17, 52.33, 52.30, 52.78, 51.64,…
## $ volume <dbl> 53778000, 34079700, 39518900, 56564900, 48754000, 36943…
## $ adjusted <dbl> 50.70846, 50.93979, 50.01446, 48.27483, 48.42288, 48.39…
Date,Open,High,Low,Close,volume,adjusted
Numeric data.
922
Daily information about the stock and stock prices
Hint: Insert a new code chunk below and type in the code, using the ggplot() function above. For more information on the ggplot() function, refer to Ch2 Introduction to ggplot2 in one of our e-textbooks, Data Visualization with R.
## Visualize
stocks %>%
ggplot(aes(x = date, y = close)) +
geom_line()
Hint: Change message
, warning
, collapse
, echo
and results
in the chunk options. Refer to the RMarkdown Reference Guide.