---
title: "ANLY 512 Final Question"
author: "Ahien C. Djouka"
date: "12/3/2017"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
    source: embed
    orientation: columns
    vertical_layout: fill
---

###Sleep vs. Exercise
```{r setup, include=FALSE}
library(readxl)
library(flexdashboard)
library(knitr)
library(ggplot2)
library(ggthemes)
library(lubridate)
library(dygraphs)
library(plotly)
library(reshape2)
QS <- read_excel("~/Desktop/FALL 2017/ANLY 512/final project/QS.xlsx")
```

```{r}
sleep_cal <- ggplot(QS, aes(x=QS$`Active Minutes`, y=QS$`Time in Bed`)) + geom_point(colour= "cornflowerblue") + labs(title = "Minutes Asleep vs. Active Minutes", x = "Active Minutes", y = "Minutes Asleep") + geom_smooth(se = FALSE, method = "lm", colour="black")
sleep_cal

sleep_hical <- ggplot(QS, aes(x=QS$`Minutes Very Active`, y=QS$`Time in Bed`)) + geom_point(colour="blue") + labs(title = "Minutes Asleep vs. Intense Activity Minutes", x = "Intense Active Minutes", y = "Minutes Asleep") + geom_smooth(se = FALSE, method = "lm", colour="black")
sleep_hical
```