In msperlin/afedR: Data and Functions for Book "Analyzing Financial and Economical Data with R"

library(BatchGetSymbols)
library(ggplot2)

tickers <- c('AAPL', 
             'MSFT',
             'AMZN',
             'GOOG') 

df_stocks <- BatchGetSymbols(tickers = tickers, 
                             first.date = Sys.Date() - 500,
                             last.date = Sys.Date())[[2]]

p <- ggplot(df_stocks, aes(x = ref.date, 
                           y = price.adjusted,
                           color = ticker)) + 
  geom_line() + 
  labs(title = paste0('Prices for ', tickers) ,
       subtitle = paste0('Data from ', min(df_stocks$ref.date), ' to ', 
                         max(df_stocks$ref.date)),
       caption = "Solution for exercise 02, chapter 10 - afedR")

print(p)

# none
my_answers <- rep(0, 5)

Question

Download stock data for:

• APPLE INC. (AAPL)
• MICROSOFT CORPORATION (MSFT)
• AMAZON.COM, INC. (AMZN)
• ALPHABET INC. (GOOG)

using the BatchGetSymbols package for the last 1500 days. Display stock prices with different line colors on the same graph. Adapt all other aspects of the graph from previous exercises such as title and axis labels.

Solution

Meta-information

extype: string exsolution: r mchoice2string(c(TRUE, FALSE, FALSE, FALSE, FALSE), single = TRUE) exname: "function 01" exshuffle: TRUE

msperlin/afedR documentation built on Sept. 11, 2022, 9:49 a.m.