---
title: "ANLY 512: Data Visualization - Dashboard Laboratory"
Author: "Rischav Verma & Sumeet Sharma" 
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    social: menu
    source_code: embed
    

---
```{r}
library(flexdashboard)
library(quantmod)
library(plyr)
library(flexdashboard)
library(dygraphs)
library(lubridate)
library(RColorBrewer)
library(DT)
```
Column {.tabset data-width=450}
-----------------------------------------------------------------------

### Stock Closing Prices
```{r}
ticker <- c("AAPL", "XOM", "BABA", "WMT", "NFLX")
invisible(getSymbols(ticker, from="2018-01-01", to="2019-3-12"))
closing_price <- do.call(merge, lapply(ticker, function(x) Cl(get(x))))

dateperiod<-c("2018-01-01", "2019-03-05")
dygraph(closing_price, main="CLOSING PRICE (USD)", group="Stock") %>%
    dyAxis("y", label="Closing Price (USD)") %>%
    dyOptions(axisLineWidth = 2.0,  colors = RColorBrewer::brewer.pal(5, "Set1")) %>%
    dyHighlight(highlightSeriesBackgroundAlpha = 1.0,
              highlightSeriesOpts = list(strokeWidth = 3)) %>%
    dyRangeSelector(height = 45)
```

Column {.tabset data-width=550}
-----------------------------------------------------------------------
### Apple

```{r message=FALSE, warning=FALSE} 
startdate <- ymd("2019-01-01")
invisible(getSymbols("AAPL", src = "yahoo", from=startdate))
APPLE <- AAPL[,-5]
colnames(APPLE) <- c("Open","High","Low","Close","Adjusted")
```

```{r message=FALSE, warning=FALSE}
dygraph(APPLE, main = "APPLE") %>%
  dyAxis("y", label="Price (USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyCandlestick()
```
```

### Exxon Mobil

```{r message=FALSE, warning=FALSE}
startdate <- ymd("2019-01-01")
invisible(getSymbols("XOM", src = "yahoo", from=startdate))
EXXON <- XOM[,-5]
colnames(EXXON) <- c("Open","High","Low","Close","Adjusted")
```

```{r message=FALSE, warning=FALSE}
dygraph(EXXON, main = "EXXON") %>%
  dyAxis("y", label="Price (USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyCandlestick()
```

### Alibaba

```{r message=FALSE, warning=FALSE}
startdate <- ymd("2019-01-01")
invisible(getSymbols("BABA", src = "yahoo", from=startdate))
ALIBABA <- BABA[,-5]
colnames(ALIBABA) <- c("Open","High","Low","Close","Adjusted")
```

```{r message=FALSE, warning=FALSE}
dygraph(ALIBABA, main = "ALIBABA") %>%
  dyAxis("y", label="Price (USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyCandlestick()
```

### Walmart

```{r message=FALSE, warning=FALSE}
startdate <- ymd("2019-01-01")
invisible(getSymbols("WMT", src = "yahoo", from=startdate))
WALMART <- WMT[,-5]
colnames(WALMART) <- c("Open","High","Low","Close","Adjusted")
```

```{r message=FALSE, warning=FALSE}
dygraph(WALMART, main = "WALMART") %>%
  dyAxis("y", label="Price (USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyCandlestick()
```

### Netflix

```{r message=FALSE, warning=FALSE}
startdate <- ymd("2019-01-01")
invisible(getSymbols("NFLX", src = "yahoo", from=startdate))
NETFLIX <- NFLX[,-5]
colnames(NETFLIX) <- c("Open","High","Low","Close","Adjusted")
```

```{r message=FALSE, warning=FALSE}
dygraph(NETFLIX, main = "NETFLIX") %>%
  dyAxis("y", label="Price (USD)") %>%
  dyOptions(axisLineWidth = 1.5,  colors = RColorBrewer::brewer.pal(5, "Set1")) %>%
  dyCandlestick()
```