---
title: "Benificiaries_under_saakshar_bharat_programme"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
theme: spacelab
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(MASS)
library(lattice)
library(dplyr)
library(ggplot2)
library(rmarkdown)
library(readr)
library(flexdashboard)
```
```{r}
benificiaries = read_csv("/cloud/project/crime/details_of_benificiaries_under_saakshar_bharat_programme.csv")
attach(benificiaries)
```
## Dataset Description {.tabset}
### Summary of Dataset
```{r}
O_benificiaries=na.omit(benificiaries)
summary(benificiaries)
```
### Dimentions and Column names
```{r}
"Column Names"
colnames(benificiaries)
```
## Analysis {.tabset}
### Beneficiaries in 2016 - 17
```{r}
ggplot(O_benificiaries, aes(x =`Beneficiaries in 2016 - 17`)) +
geom_histogram(bins = 20, fill = "pink", color = "black") +
theme_minimal() +
labs(title = "Beneficiaries in 2016 - 17")
```
### Beneficiaries in 2017 - 18
```{r}
ggplot(O_benificiaries, aes(x =`Beneficiaries in 2017 - 18`)) +
geom_histogram(bins = 20, fill = "pink", color = "black") +
theme_minimal() +
labs(title = "Beneficiaries in 2017 - 18")
```
## Analysis {.tabset}
### District wise Beneficiaries in 2016 - 17
```{r}
ggplot(O_benificiaries, aes(x=`Name of the District`, y=`Beneficiaries in 2016 - 17`)) +
geom_boxplot(fill="steelblue",notch = TRUE)
```
### Beneficiaries in 2016 - 17 and 2017 - 18
```{r}
ggplot(O_benificiaries, aes(x=`Beneficiaries in 2016 - 17`, y=`Beneficiaries in 2017 - 18`)) +
geom_boxplot(fill="steelblue")
```
## Analysis {.tabset}
### Beneficiaries from 2016-17 and 2017-18
```{r}
ggplot(O_benificiaries, aes(x=`Beneficiaries in 2016 - 17`, y=`Beneficiaries in 2017 - 18`)) +
geom_point()
```
### Beneficiaries from 2017-18 to Total
```{r}
ggplot(O_benificiaries, aes(x=`Beneficiaries in 2017 - 18`, y=`Grand Total`)) +
geom_point()
```
