Use the given code below to answer the questions.

## 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,033 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.2
##  2 2016-01-05 106.  106.  102.  103.  55791000     95.8
##  3 2016-01-06 101.  102.   99.9 101.  68457400     93.9
##  4 2016-01-07  98.7 100.   96.4  96.4 81094400     89.9
##  5 2016-01-08  98.6  99.1  96.8  97.0 70798000     90.4
##  6 2016-01-11  99.0  99.1  97.3  98.5 49739400     91.9
##  7 2016-01-12 101.  101.   98.8 100.  49154200     93.2
##  8 2016-01-13 100.  101.   97.3  97.4 62439600     90.8
##  9 2016-01-14  98.0 100.   95.7  99.5 63170100     92.8
## 10 2016-01-15  96.2  97.7  95.4  97.1 79833900     90.6
## # … with 1,023 more rows
## Visualize
stocks %>%
  ggplot(aes(x = date, y = adjusted)) +
  geom_line()

Q1 Import Netflix stock prices, instead of Apple.

Hint: Insert a new code chunk below and type in the code, using the tq_get() function above. Replace the ticker symbol. Find ticker symbols from Yahoo Finance.

## Import data
stocks <- tq_get("NFLX", get = "stock.prices", from = "2017-01-01")
stocks
## # A tibble: 781 x 7
##    date        open  high   low close   volume adjusted
##    <date>     <dbl> <dbl> <dbl> <dbl>    <dbl>    <dbl>
##  1 2017-01-03  125.  128.  124.  127.  9437900     127.
##  2 2017-01-04  127.  130.  127.  129.  7843600     129.
##  3 2017-01-05  129.  133.  129.  132. 10185500     132.
##  4 2017-01-06  132.  134.  130.  131. 10657900     131.
##  5 2017-01-09  131.  132.  130.  131.  5771800     131.
##  6 2017-01-10  131.  132.  129.  130.  5985800     130.
##  7 2017-01-11  131.  132.  129.  130.  5615100     130.
##  8 2017-01-12  131.  131.  128.  129.  5388900     129.
##  9 2017-01-13  131.  134.  131.  134. 10515000     134.
## 10 2017-01-17  135.  135.  132.  133. 12220200     133.
## # … with 771 more rows
## Visualize
stocks %>%
  ggplot(aes(x = date, y = adjusted)) +
  geom_line()

Q2 How many shares of the stock were traded on January 13, 2017?

26111900

Q3 Stock prices in this data would be a good example of numeric data. Character and logical are two other basic data types in R. List one example of character data and one example of logical data.

Hint: Watch the video, “Basic Data Types”, in DataCamp: Introduction to R for Finance: Ch1 The Basics.

Examples of character data would be any characters such as survey taker names, address, favorite sports and so on. Logical data takes either TRUE or FALSE.

Q4 Plot the closing price in a line chart.

Hint: Insert a new code chunk below and type in the code, using the ggplot() function above. Revise the code so that it maps close to the y-axis, instead of adjusted.

## Visualize
stocks %>%
  ggplot(aes(x = date, y = close)) +
  geom_line()

For more information on the ggplot() function, refer to Ch2 Introduction to ggplot2 in one of our e-textbooks, Data Visualization with R.

Q5 From the chart you created in Q4, briefly describe how the Netflix stock has performed since the beginning of 2019.

Netflix has Skyrocketed in price of stock. It has done nothing but rise since the beginning of 2019.

Q6 Import two stocks: Netflix and Amazon for the same time period.

Hint: Insert a new code chunk below and type in the code, using the tq_get() function above. You may refer to the manual of the tidyquant r package. Or, simply Google the tq_get function and see examples of the function’s usage.

knitr::opts_chunk$set(echo = TRUE, message = FALSE, Results = TRUE) 
 tq_get(c("AMZN","NFLX"),  get = "stock.prices", from = "2017-01-01")
## # A tibble: 1,562 x 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 AMZN   2017-01-03  758.  759.  748.  754. 3521100     754.
##  2 AMZN   2017-01-04  758.  760.  754.  757. 2510500     757.
##  3 AMZN   2017-01-05  762.  782.  760.  780. 5830100     780.
##  4 AMZN   2017-01-06  782.  799.  778.  796. 5986200     796.
##  5 AMZN   2017-01-09  798   802.  792.  797. 3446100     797.
##  6 AMZN   2017-01-10  797.  798   790.  796. 2558400     796.
##  7 AMZN   2017-01-11  794.  800.  790.  799. 2992800     799.
##  8 AMZN   2017-01-12  800.  814.  800.  814. 4873900     814.
##  9 AMZN   2017-01-13  814.  822.  811.  817. 3791900     817.
## 10 AMZN   2017-01-17  816.  816   803.  810. 3670500     810.
## # … with 1,552 more rows

Q7 Hide the messages and the results of the code, but display the code on the webpage.

Hint: Use message, echo and results in the chunk options. Refer to the RMarkdown Reference Guide.

Q8 Make an exception to the code chunk in Q6 by displaying both the code and its results.

Hint: Use echo and results in the chunk option. Note that this question only applies to the individual code chunk of Q6.

Q9 Display the title and your name correctly at the top of the webpage.

Q10 Use the correct slug.