Column

Closing Stock Prices($)

tickers <- c("IBM", "MSFT", "ORCL")
getSymbols(tickers, from="2016-01-01", to="2017-01-01")
## [1] "IBM"  "MSFT" "ORCL"
ClosePrices <- do.call(merge, lapply(tickers, function(x) Cl(get(x))))

dygraph(ClosePrices, main="Closing Stock Prices ($) ", group="Stock") %>%
  dyAxis("y", label="Closing Price($)") %>%
  dyOptions(axisLineWidth = 2.0,  colors = RColorBrewer::brewer.pal(4, "Set2")) %>%
  dyRangeSelector(height = 120)

Column

IBM

getSymbols("IBM", src = "yahoo", from = '2017-01-01')
## [1] "IBM"
IBM_xts <- IBM
dygraph(IBM_xts[, -5], main = "IBM") %>%
  dyCandlestick() %>%
  dyAxis("y", label="Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(4, "Set2")) %>%
  dyRangeSelector(height = 120)

MICROSOFT

getSymbols("MSFT", src = "yahoo", from = '2017-01-01')
## [1] "MSFT"
MSFT_xts <- MSFT
dygraph(MSFT_xts[, -5], main = "MICROSOFT") %>%
  dyCandlestick() %>%
  dyAxis("y", label="Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(4, "Set2")) %>%
  dyRangeSelector(height = 120)

ORACLE

getSymbols("ORCL", src = "yahoo", from = '2017-01-01')
## [1] "ORCL"
ORCL_xts <- ORCL
dygraph(ORCL_xts[, -5], main = "ORACLE") %>%
  dyCandlestick() %>%
  dyAxis("y", label="Price") %>%
  dyOptions(colors= RColorBrewer::brewer.pal(4, "Set2")) %>%
  dyRangeSelector(height = 120)