Andrew’s Monthly Returns

library(quantmod)

## Warning: package 'quantmod' was built under R version 4.1.3

## Loading required package: xts

## Warning: package 'xts' was built under R version 4.1.3

## Loading required package: zoo

## Warning: package 'zoo' was built under R version 4.1.3

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## Loading required package: TTR

## Warning: package 'TTR' was built under R version 4.1.3

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

library(PerformanceAnalytics)

## Warning: package 'PerformanceAnalytics' was built under R version 4.1.3

## 
## Attaching package: 'PerformanceAnalytics'

## The following object is masked from 'package:graphics':
## 
##     legend

library(dygraphs)

## Warning: package 'dygraphs' was built under R version 4.1.3

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 4.1.3

## -- Attaching packages --------------------------------------- tidyverse 1.3.2 --

## v ggplot2 3.3.6     v purrr   0.3.4
## v tibble  3.1.8     v dplyr   1.0.9
## v tidyr   1.2.0     v stringr 1.4.1
## v readr   2.1.2     v forcats 0.5.2

## Warning: package 'ggplot2' was built under R version 4.1.3

## Warning: package 'tibble' was built under R version 4.1.3

## Warning: package 'tidyr' was built under R version 4.1.3

## Warning: package 'readr' was built under R version 4.1.3

## Warning: package 'purrr' was built under R version 4.1.3

## Warning: package 'dplyr' was built under R version 4.1.3

## Warning: package 'stringr' was built under R version 4.1.3

## Warning: package 'forcats' was built under R version 4.1.3

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::first()  masks xts::first()
## x dplyr::lag()    masks stats::lag()
## x dplyr::last()   masks xts::last()

library(dplyr)
library(ggplot2)

monthly_returns = function(ticker, base_year)
  
{

 stock = getSymbols(ticker, src = "yahoo", auto.assign = FALSE)  
 stock = na.omit(stock)
 stock = stock[, 6]

 horizon = paste0(as.character(base_year), "/", as.character(Sys.Date()))

 stock = stock[horizon]

 data = periodReturn(stock, period = "monthly", type = "arithmetic")

 assign(ticker, data, envir = .GlobalEnv)

}

monthly_returns("KO", 2014)
monthly_returns("DXCM", 2014)
monthly_returns("INTC", 2014)
monthly_returns("AFG", 2014)
monthly_returns("DIS", 2014)
monthly_returns("BA", 2014)
monthly_returns("TSLA", 2014)
monthly_returns("AMD", 2014)
monthly_returns("SONY", 2014)
monthly_returns("AAPL", 2014)
monthly_returns("SPY", 2014)
monthly_returns("Fxaix", 2014)
monthly_returns("O", 2014)
monthly_returns("FAZE", 2022)
monthly_returns("LIT", 2014)
monthly_returns("DAL", 2014)

andrews_returns <- merge.xts(KO, DXCM, INTC, AFG, DIS, BA, TSLA, AMD, SONY, AAPL, SPY,
                             Fxaix, O, FAZE, LIT, DAL)
colnames(andrews_returns) = c("KO", "DXCM", "INTC", "AFG", "DIS", "BA", "TSLA", "AMD",
                              "SONY", "AAPL", "SPY", "Fxaix", "O", "FAZE", "LIT", "DAL")

andrews_returns %>%
  dygraph(andrews_returns, main = "Andrew's Portfolio") %>%
  dyAxis("y", label = "Return", valueRange = c(-1,1)) %>%
  dyRangeSelector(dateWindow = c("2014-01-01", "2022-07-01")) %>%
  dyOptions(colors = RColorBrewer::brewer.pal(16, "Set3"))

## Warning in RColorBrewer::brewer.pal(16, "Set3"): n too large, allowed maximum for palette Set3 is 12
## Returning the palette you asked for with that many colors