ANLY 512 -Professor Alan Hitch

Sidebar

STOCK INVESTMENT

The objective is to leverage visualization of stock prices to make investment decistion. The stocks in consideration are “WALMART”, “BEST BUY”, “TARGET”, and “AMAZON”. By looking into past data, we will be able to make decision by visual dashboard.

Column

WALMART

timeWindow<-c("2019-03-01", "2020-03-01")
invisible(getSymbols("WMT", src = "yahoo", from='2019-03-01'))

## 'getSymbols' currently uses auto.assign=TRUE by default, but will
## use auto.assign=FALSE in 0.5-0. You will still be able to use
## 'loadSymbols' to automatically load data. getOption("getSymbols.env")
## and getOption("getSymbols.auto.assign") will still be checked for
## alternate defaults.
## 
## This message is shown once per session and may be disabled by setting 
## options("getSymbols.warning4.0"=FALSE). See ?getSymbols for details.

WMT_x <- WMT
dygraph(WMT_x[, -5], main = "WALMART") %>%
  dyCandlestick() %>%
  dyAxis("y", label="SHARE PRICE in USD") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyHighlight(highlightSeriesOpts = list(strokeWidth = 3)) %>%
  dyRangeSelector(dateWindow = timeWindow, height = 15, strokeColor = "")

BESTBUY

timeWindow<-c("2019-03-01", "2020-03-01")
invisible(getSymbols("BBY", src = "yahoo", from='2019-03-01'))
BBY_x <- BBY
dygraph(BBY_x[, -5], main = "BESTBUY") %>%
  dyCandlestick() %>%
  dyAxis("y", label="SHARE PRICE in USD") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyHighlight(highlightSeriesOpts = list(strokeWidth = 3)) %>%
  dyRangeSelector(dateWindow = timeWindow, height = 15, strokeColor = "")

TARGET

timeWindow<-c("2019-03-01", "2020-03-01")
invisible(getSymbols("TGT", src = "yahoo", from='2019-03-01'))
TGT_x <- TGT
dygraph(TGT_x[, -5], main = "TARGET") %>%
  dyCandlestick() %>%
  dyAxis("y", label="SHARE PRICE in USD") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyHighlight(highlightSeriesOpts = list(strokeWidth = 3)) %>%
  dyRangeSelector(dateWindow = timeWindow, height = 15, strokeColor = "")

AMAZON

timeWindow<-c("2019-03-01", "2020-03-01")
invisible(getSymbols("AMZN", src = "yahoo", from='2019-03-01'))
AMZN_x <- AMZN
dygraph(AMZN_x[, -5], main = "AMAZON") %>%
  dyCandlestick() %>%
  dyAxis("y", label="SHARE PRICE in USD") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyHighlight(highlightSeriesOpts = list(strokeWidth = 3)) %>%
  dyRangeSelector(dateWindow = timeWindow, height = 15, strokeColor = "")

column

FINANCIAL METRICS

what_metrics <- yahooQF(c("Price/Sales", 
                          "P/E Ratio",
                          "Price/EPS Estimate Next Year",
                          "PEG Ratio",
                          "Dividend Yield", 
                          "Market Capitalization"))

tickers <- c("WMT", "BBY", "TGT", "AMZN")
metrics <- getQuote(paste(tickers, sep="", collapse=";"), what=what_metrics)
metrics <- data.frame(Symbol=tickers, metrics[,2:length(metrics)]) 

#Rename the metrics columns
colnames(metrics) <- c("COMPANY", "EARNINGS MULTIPLE","EARNINGS MULTIPLE (Forward)", "DIVIDEND", "MARKET CAP")

DT::datatable(metrics)

## This version of Shiny is designed to work with 'htmlwidgets' >= 1.5.
##     Please upgrade via install.packages('htmlwidgets').

Stock Closing Prices

## [1] "WMT"  "BBY"  "TGT"  "AMZN"

Conclusion: Recently the stock market had been through a roller coaster and there’s no signal saying that it will stop. Also considering about the covid-19 and what had happend in saudi arabia’s oil production, i will consider to sit back and wait util the market backs on track. Cash is king.