---

title: “Sleep Pattern Analysis” author: “Sumanth Jinagouda” date: “June 14, 2018” output: flexdashboard::flex_dashboard: source_code: embed vertical_layout: fill

Variation of Total Rest by Season

library("ggplot2")
sleep_data = read.csv("C:\\Users\\shrin\\OneDrive\\Harrisburg\\Data Visualization\\sleep_data.csv")
ggplot(sleep_data, aes(Season,LengthOfRestInMinutes)) + geom_boxplot() + xlab("Season")+ ylab("Total Rest")

### Minutes of Sleep by Season

library(ggplot2)
library(ggthemes)
ggplot(sleep_data, aes(x = MinutesOfSleep, y = Season)) +  geom_point(aes()) + ylab("Season")  + xlab("Minutes of Sleep") + theme_economist()