---
title: "EDA for Rainfall Dataset"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
theme: flatly
social: menu
source_code: embed
navbar:
- { title: "Dataset Description", href: "#dataset-description" }
- { title: "Univariate Analysis", href: "#univariate-analysis" }
- { title: "Bivariate Analysis", href: "#bivariate-analysis" }
- { title: "Multivariate Analysis", href: "#multivariate-analysis" }
---
```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(dplyr)
library(DT)
rainfall <- read.csv("/cloud/project/rainfall.csv")
```
## Dataset Description {.tabset .active} {#dataset-description}
### View of dataset
```{r}
datatable(rainfall, extensions = 'Buttons', options = list(dom='Bfrtip', buttons=c('copy','csv','print','pdf')))
```
### About the Dataset
```{r}
str(rainfall)
```
### Summary of the dataset
```{r}
summary(rainfall)
```
### Head of Dataset
```{r}
head(rainfall)
```
## Univariate Analysis {.tabset} {#univariate-analysis}
### Histogram for Annual Rainfall
```{r}
ggplot(rainfall, aes(x = ANNUAL)) +
geom_histogram(fill = "lightblue", color = "black", bins = 30) +
geom_vline(aes(xintercept = mean(ANNUAL, na.rm = TRUE)), color = "red", lwd = 1) +
labs(title = "Histogram of Annual Rainfall", x = "Annual Rainfall (mm)")
```
### Histogram for June Rainfall
```{r}
ggplot(rainfall, aes(x = JUN)) +
geom_histogram(fill = "lightgreen", color = "black", bins = 30) +
geom_vline(aes(xintercept = mean(JUN, na.rm = TRUE)), color = "red", lwd = 1) +
labs(title = "Histogram of June Rainfall", x = "June Rainfall (mm)")
```
### Histogram for September Rainfall
```{r}
ggplot(rainfall, aes(x = SEP)) +
geom_histogram(fill = "lightcoral", color = "black", bins = 30) +
geom_vline(aes(xintercept = mean(SEP, na.rm = TRUE)), color = "red", lwd = 1) +
labs(title = "Histogram of September Rainfall", x = "September Rainfall (mm)")
```
## Bivariate Analysis {.tabset} {#bivariate-analysis}
### Box Plot for Annual Rainfall by Subdivision
```{r}
ggplot(rainfall, aes(x = SUBDIVISION, y = ANNUAL)) +
geom_boxplot(fill = 'lightblue', color = 'black') +
labs(title = "Box Plot of Annual Rainfall by Subdivision", x = "Subdivision", y = "Annual Rainfall (mm)") +
theme(axis.text.x = element_text(angle = 90, hjust = 1))
```
### Box Plot for June Rainfall by Subdivision
```{r}
ggplot(rainfall, aes(x = SUBDIVISION, y = JUN)) +
geom_boxplot(fill = 'lightgreen', color = 'black') +
labs(title = "Box Plot of June Rainfall by Subdivision", x = "Subdivision", y = "June Rainfall (mm)") +
theme(axis.text.x = element_text(angle = 90, hjust = 1))
```
### Scatter Plot of Annual Rainfall vs Year
```{r}
ggplot(rainfall, aes(x = YEAR, y = ANNUAL)) +
geom_point(color = "blue") +
labs(title = "Scatter Plot of Annual Rainfall vs Year", x = "Year", y = "Annual Rainfall (mm)")
```
## Multivariate Analysis {.tabset} {#multivariate-analysis}
### Scatter Plot for June Rainfall vs September Rainfall
```{r}
ggplot(rainfall, aes(x = JUN, y = SEP)) +
geom_point(color = "purple") +
labs(title = "Scatter Plot of June vs September Rainfall", x = "June Rainfall (mm)", y = "September Rainfall (mm)")
```
### Scatter Plot for Annual Rainfall vs June Rainfall
```{r}
ggplot(rainfall, aes(x = JUN, y = ANNUAL)) +
geom_point(color = "orange") +
labs(title = "Scatter Plot of Annual Rainfall vs June Rainfall", x = "June Rainfall (mm)", y = "Annual Rainfall (mm)")
```
