---
title: "ANLY 512_Lab 1"
author: "Luoxi Hao"
date: "March 11, 2019"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
    vertical_layout: fill
---

Stock Prices
=========================================

```{r setup, include=FALSE}
chooseCRANmirror(graphics=FALSE, ind=1)
install.packages("pdfetch")
install.packages("dygraphs")
install.packages("flexdashboard")
library(flexdashboard)
library(pdfetch)
library(dygraphs)
library(xts)
identifiers <- c("BABA", "JD", "AMZN", "EBAY")
```
Column {.tabset data-height=550}
------------------------------------------------------------------------------------------------

### Alibaba Group (BABA)

```{r}
OneYearBABA <- pdfetch_YAHOO("BABA", fields = c("open", "high", "low", "close"), from = as.Date("2018-01-01"),interval = "1d")
colnames(OneYearBABA)=c("Open","High","Low","Close")

m <- tail(OneYearBABA, n = 365)

#plot
dygraph(m,
        ylab = "Stock Price ($)",
        group = "stockprices") %>%
dyCandlestick() %>%
dyLegend(width = 400) %>%
dyRangeSelector(dateWindow = c("2018-01-01", "2018-12-31"))
```

### JD.com, Inc (JD)

```{r}
OneYearJD <- pdfetch_YAHOO("JD", fields = c("open", "high", "low", "close"), from = as.Date("2018-01-01"),interval = "1d")
colnames(OneYearJD)=c("Open","High","Low","Close")

m <- tail(OneYearJD, n = 365)

#plot
dygraph(m,
        ylab = "Stock Price ($)",
        group = "stockprices") %>%
dyCandlestick() %>%
dyLegend(width = 400) %>%
dyRangeSelector(dateWindow = c("2018-01-01", "2018-12-31"))
```

### Amazon.com, Inc (AMZN)

```{r}
OneYearAMZN <- pdfetch_YAHOO("AMZN", fields = c("open", "high", "low", "close"), from = as.Date("2018-01-01"),interval = "1d")
colnames(OneYearAMZN)=c("Open","High","Low","Close")

m <- tail(OneYearAMZN, n = 365)

#plot
dygraph(m,
        ylab = "Stock Price ($)",
        group = "stockprices") %>%
dyCandlestick() %>%
dyLegend(width = 400) %>%
dyRangeSelector(dateWindow = c("2018-01-01", "2018-12-31"))
```

### eBAY Inc (EBAY)

```{r}
OneYearEBAY <- pdfetch_YAHOO("EBAY", fields = c("open", "high", "low", "close"), from = as.Date("2018-01-01"),interval = "1d")
colnames(OneYearEBAY)=c("Open","High","Low","Close")

m <- tail(OneYearEBAY, n = 365)

#plot
dygraph(m,
        ylab = "Stock Price ($)",
        group = "stockprices") %>%
dyCandlestick() %>%
dyLegend(width = 400) %>%
dyRangeSelector(dateWindow = c("2018-01-01", "2018-12-31"))
```

More Trading Info
=====================================

Column
------------------------------------------------------------------------------------------------
### Price

```{r}
financialData <- pdfetch_YAHOO(identifiers, fields = c("open","adjclose"), from = as.Date("2018-01-01"), to = as.Date("2018-12-31"),interval = "1d")

OneYAdjClose <- cbind(financialData$BABA.adjclose,financialData$JD.adjclose, financialData$AMZN.adjclose,financialData$EBAY.adjclose)
colnames(OneYAdjClose) <-c("BABA","JD","AMZN","EBAY")

c <- tail(OneYAdjClose, n = 365)

#plot
dygraph(c,
        main = "Adjusted Closing Price (past 365 trading days)", 
        ylab = "Closing Price ($)",
        group = "trading") %>%
dyOptions(strokeWidth = 2,colors = RColorBrewer::brewer.pal(5, "Set2"))%>%
dyHighlight(highlightCircleSize = 3, 
              highlightSeriesBackgroundAlpha = 0.2,
              hideOnMouseOut = TRUE)%>%
dyLegend(width = 400) %>%
dyRangeSelector(dateWindow = c("2018-01-01", "2018-12-31"))
```


### Volume
```{r}
financialData1y <- pdfetch_YAHOO(identifiers, fields = c("open", "high", "low", "close","volume","adjclose"), from = as.Date("2018-01-01"),interval = "1d")

OneYRTradingVol <- cbind(financialData1y$BABA.volume,financialData1y$JD.volume, financialData1y$AMZN.volume,financialData1y$EBAY.volume)
colnames(OneYRTradingVol) <-c("BABA","JD","AMZN","EBAY")

t <- tail(OneYRTradingVol, n = 365)

#plot
dygraph(t,
        main = "Trading Volume (past 365 trading days)", 
        ylab = "Volume",
        group = "trading") %>%
dyOptions(strokeWidth = 2,colors = RColorBrewer::brewer.pal(5, "Set2"))%>%
dyHighlight(highlightCircleSize = 3, 
              highlightSeriesBackgroundAlpha = 0.2,
              hideOnMouseOut = TRUE)%>%
dyLegend(width = 400) %>%
dyRangeSelector(dateWindow = c("2018-01-01", "2018-12-31"))
```