AirQuality Parameters

---
title: "Airquality Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    source_code: embed
---


```{r}
library(flexdashboard)
library(dplyr)
library(ggplot2)
library(vioplot)
library(ggthemes)
library(RColorBrewer)
```

```{r dataframe_buildup}
# Download and pre-process the data for visualization

  
OtherAnly <- select(airquality, Month, Day, Ozone, Solar.R, Wind, Temp)

OtherAnly$Month[OtherAnly$Month == 5] <- "May"
OtherAnly$Month[OtherAnly$Month == 6] <- "June"
OtherAnly$Month[OtherAnly$Month == 7] <- "July"
OtherAnly$Month[OtherAnly$Month == 8] <- "August"
OtherAnly$Month[OtherAnly$Month == 9] <- "September"
```


AirQuality Parameters
=====================================  

Row {.tabset .tabset-fade data-height=650}
-------------------------------------

### Ozone

```{r}

## Month-wise Ozone Variability

par(mfrow=c(2,2))
o1 <- ggplot(OtherAnly, aes(x=Month, y=Ozone, fill=Month))
o1 +  geom_boxplot(notch = TRUE, notchwidth = 0.5) + scale_x_discrete(limits=c("May", "June","July", "August","September")) + ggtitle("Box-plot") + theme_minimal() + theme(legend.position="none")
o1 +  geom_violin() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-plot") + theme(legend.position="none")
o1 +  geom_violin() + geom_boxplot() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-Boxplot") + theme(legend.position="none")

```

### Solar Radiation 

```{r}
## Month-wise Solar Radiation Variability

par(mfrow=c(2,2))
s1 <- ggplot(OtherAnly, aes(x=Month, y=Solar.R, fill=Month))
s1 +  geom_boxplot(notch = TRUE, notchwidth = 0.5) + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Box-plot") + theme_minimal() + theme(legend.position="none")
s1 +  geom_violin() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-plot") + theme(legend.position="none")
s1 +  geom_violin() + geom_boxplot() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-Boxplot") + theme(legend.position="none")

```

### Wind

```{r}
## Month-wise Wind Variability

par(mfrow=c(2,2))
w1 <- ggplot(OtherAnly, aes(x=Month, y=Wind, fill=Month))
w1 +  geom_boxplot(notch = TRUE, notchwidth = 0.5) + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Box-plot") + theme_minimal() + theme(legend.position="none")
w1 +  geom_violin() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-plot") + theme(legend.position="none")
w1 +  geom_violin() + geom_boxplot() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-Boxplot") + theme(legend.position="none")

```

### Temperature

```{r}
## Month-wise Temperature Variability

par(mfrow=c(2,2))
t1 <- ggplot(OtherAnly, aes(x=Month, y=Temp, fill=Month))
t1 +  geom_boxplot(notch = TRUE, notchwidth = 0.5) + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Box-plot") + theme_minimal() + theme(legend.position="none")
t1 +  geom_violin() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-plot") + theme(legend.position="none")
t1 +  geom_violin() + geom_boxplot() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-Boxplot") + theme(legend.position="none")

```




```{r}

## Month-wise Ozone Variability

#par(mfrow=c(2,2))
#o1 <- ggplot(OtherAnly, aes(x=Month, y=Ozone, fill=Month))

#o1 +  geom_violin() + geom_boxplot() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-Boxplot") + theme(legend.position="none")

```



```{r}
## Month-wise Solar Radiation Variability

#par(mfrow=c(2,2))
#s1 <- ggplot(OtherAnly, aes(x=Month, y=Solar.R, fill=Month))

#s1 +  geom_violin() + geom_boxplot() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-Boxplot") + theme(legend.position="none")

```



```{r}
## Month-wise Wind Variability

#par(mfrow=c(2,2))
#w1 <- ggplot(OtherAnly, aes(x=Month, y=Wind, fill=Month))

#w1 +  geom_violin() + geom_boxplot() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-Boxplot") + theme(legend.position="none")

```


```{r}
## Month-wise Temperature Variability

#par(mfrow=c(2,2))
#t1 <- ggplot(OtherAnly, aes(x=Month, y=Temp, fill=Month))

#t1 +  geom_violin() + geom_boxplot() + theme_minimal() + scale_x_discrete(limits=c("May", "June", "July", "August","September")) + ggtitle("Violin-Boxplot") + theme(legend.position="none")