---
title: "Nutrients Daily Intake Analysis"
author: "Kowshik Kumar B"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: [ "menu" ]
    source: embed
    vertical_layout: scroll
---

```{r setup, include=FALSE}
library(flexdashboard)
library(dygraphs)
library(pdfetch)
library(ggplot2)
library(timeSeries)
library(gridExtra)
library(scales)
library(Quandl)
library(quantmod)
library(sqldf)
library(fBasics)
library(evir)
library(TH.data)
library(shiny)
library(tidyverse)
library(tidyquant)
library(timetk)
library(readr)
all_nutrients <- read_csv("nutrients_daily_data.csv", 
    col_types = cols(Calories = col_number(), 
        Carbs = col_number(), Date = col_date(format = "%m/%d/%Y"), 
        Fiber = col_number(), Grams = col_number(), 
        Protein = col_number()))
mrugank_nutrients<-sqldf("select * from all_nutrients where Name='Mrugank'")
kaushik_nutrients<-sqldf("select * from all_nutrients where Name='Kaushik'")
deepika_nutrients<-sqldf("select * from all_nutrients where Name='Deepika'")
```


# Conclusion {.sidebar}

* The appropriate average calorie intake of human-beings must be in between 1800 to 2400 calories a day.

# Calories Intake

Column {.tabset}
-----------------------------------------------------------------------

### Mrugank's 

```{r}
ggplot(mrugank_nutrients) + 
  aes(mrugank_nutrients$Date, mrugank_nutrients$Calories,fill=Category) +
  geom_bar(stat = "identity", color = 'Yellow') +
  ggtitle("Frequncy for Mrugank's daily intake of calories")+
  xlab("Date")+
  ylab("Number of Calories")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```


### Kaushik's 

```{r}
ggplot(kaushik_nutrients) + 
  aes(kaushik_nutrients$Date, kaushik_nutrients$Calories,fill=Category) +
  geom_bar(stat = "identity", color = 'blue') +
  ggtitle("Frequncy for Kaushik's daily intake of calories")+
  xlab("Date")+
  ylab("Number of Calories")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Deepika's 

```{r}
ggplot(deepika_nutrients) + 
  aes(deepika_nutrients$Date, deepika_nutrients$Calories,fill=Category) +
  geom_bar(stat = "identity", color = 'green') +
  ggtitle("Frequncy for Deepika's daily intake of calories")+
  xlab("Date")+
  ylab("Number of Calories")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

# Protiens Intake

Column {.tabset}
-----------------------------------------------------------------------

### Mrugank's

```{r}
ggplot(mrugank_nutrients) + 
  aes(mrugank_nutrients$Date, mrugank_nutrients$Protein,fill=Category) +
  geom_bar(stat = "identity", color = 'Yellow') +
  ggtitle("Frequncy for Mrugank's daily intake of Protiens")+
  xlab("Date")+
  ylab("Number of Protiens")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Kaushik's

```{r}
ggplot(kaushik_nutrients) + 
  aes(kaushik_nutrients$Date, kaushik_nutrients$Protein,fill=Category) +
  geom_bar(stat = "identity", color = 'blue') +
  ggtitle("Frequncy for Kaushik's daily intake of Protiens")+
  xlab("Date")+
  ylab("Number of Protiens")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Deepika's

```{r}
ggplot(deepika_nutrients) + 
  aes(deepika_nutrients$Date, deepika_nutrients$Protein,fill=Category) +
  geom_bar(stat = "identity", color = 'green') +
  ggtitle("Frequncy for Deepika's daily intake of Protiens")+
  xlab("Date")+
  ylab("Number of Protiens")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

# Fats Intake

Column {.tabset}
-----------------------------------------------------------------------

### Mrugank's

```{r}
ggplot(mrugank_nutrients) + 
  aes(mrugank_nutrients$Date, mrugank_nutrients$Fat,fill=Category) +
  geom_bar(stat = "identity", color = 'Yellow') +
  ggtitle("Frequncy for Mrugank's daily intake of Fats")+
  xlab("Date")+
  ylab("Number of Fats")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Kaushik's

```{r}
ggplot(kaushik_nutrients) + 
  aes(kaushik_nutrients$Date, kaushik_nutrients$Fat,fill=Category) +
  geom_bar(stat = "identity", color = 'blue') +
  ggtitle("Frequncy for Kaushik's daily intake of Fats")+
  xlab("Date")+
  ylab("Number of Fats")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Deepika's

```{r}
ggplot(deepika_nutrients) + 
  aes(deepika_nutrients$Date, deepika_nutrients$Fat,fill=Category) +
  geom_bar(stat = "identity", color = 'green') +
  ggtitle("Frequncy for Deepika's daily intake of Fats")+
  xlab("Date")+
  ylab("Number of Fats")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

# Saturated Fats Intake

Column {.tabset}
-----------------------------------------------------------------------

### Mrugank's

```{r}
ggplot(mrugank_nutrients) + 
  aes(mrugank_nutrients$Date, mrugank_nutrients$Sat.Fat,fill=Category) +
  geom_bar(stat = "identity", color = 'Yellow') +
  ggtitle("Frequncy for Mrugank's daily intake of Saturated Fats")+
  xlab("Date")+
  ylab("Number of Saturated Fats")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Kaushik's

```{r}
ggplot(kaushik_nutrients) + 
  aes(kaushik_nutrients$Date, kaushik_nutrients$Sat.Fat,fill=Category) +
  geom_bar(stat = "identity", color = 'blue') +
 ggtitle("Frequncy for Kaushik's daily intake of Saturated Fats")+
  xlab("Date")+
  ylab("Number of Saturated Fats")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Deepika's

```{r}
ggplot(deepika_nutrients) + 
  aes(deepika_nutrients$Date, deepika_nutrients$Sat.Fat,fill=Category) +
  geom_bar(stat = "identity", color = 'green') +
  ggtitle("Frequncy for Deepika's daily intake of Saturated Fats")+
  xlab("Date")+
  ylab("Number of Saturated Fats")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

# Fiber Intake

Column {.tabset}
-----------------------------------------------------------------------

### Mrugank's 

```{r}
ggplot(mrugank_nutrients) + 
  aes(mrugank_nutrients$Date, mrugank_nutrients$Fiber,fill=Category) +
  geom_bar(stat = "identity", color = 'Yellow') +
  ggtitle("Frequncy for Mrugank's daily intake of Fibers")+
  xlab("Date")+
  ylab("Number of Fibers")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Kaushik's

```{r}
ggplot(kaushik_nutrients) + 
  aes(kaushik_nutrients$Date, kaushik_nutrients$Fiber,fill=Category) +
  geom_bar(stat = "identity", color = 'blue') +
  ggtitle("Frequncy for Kaushik's daily intake of Fibers")+
  xlab("Date")+
  ylab("Number of Fibers")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Deepika's

```{r}
ggplot(deepika_nutrients) + 
  aes(deepika_nutrients$Date, deepika_nutrients$Fiber,fill=Category) +
  geom_bar(stat = "identity", color = 'green') +
  ggtitle("Frequncy for Deepika's daily intake of Fibers")+
  xlab("Date")+
  ylab("Number of Fibers")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

# Carbohydrates Intake

Column {.tabset}
-----------------------------------------------------------------------

### Mrugank's

```{r}
ggplot(mrugank_nutrients) + 
  aes(mrugank_nutrients$Date, mrugank_nutrients$Carbs,fill=Category) +
  geom_bar(stat = "identity", color = 'Yellow') +
  ggtitle("Frequncy for Mrugank's daily intake of Carbohydrates")+
  xlab("Date")+
  ylab("Number of Carbs")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Kaushik's

```{r}
ggplot(kaushik_nutrients) + 
  aes(kaushik_nutrients$Date, kaushik_nutrients$Carbs,fill=Category) +
  geom_bar(stat = "identity", color = 'blue') +
   ggtitle("Frequncy for Kaushik's daily intake of Carbohydrates")+
  xlab("Date")+
  ylab("Number of Carbs")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```

### Deepika's

```{r}
ggplot(deepika_nutrients) + 
  aes(deepika_nutrients$Date, deepika_nutrients$Carbs,fill=Category) +
  geom_bar(stat = "identity", color = 'green') +
   ggtitle("Frequncy for Deepika's daily intake of Carbohydrates")+
  xlab("Date")+
  ylab("Number of Carbs")+
  theme(axis.text.x=element_text(angle=60, hjust=1))
```