---
title: "CHILD LABOUR DATA SET"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: scroll
    social: menu
    theme: cerulean
    storyboard: True
    source_code: embed
  
---

```{r setup, include=FALSE}
library(flexdashboard)
library(MASS)
library(lattice)
library(DT)
data=read.csv(file.choose(" "))
attach(data)

```

# HOME {data-width=650}

### introduction to child labour 
```{r}
"Any person below the age of 14 years is defined as a child, and child labor is a way of exploitation of these children by giving them work that deprives them of their childhood, dignity and potential and harms their physically and mentally. When the work hinders their schooling or forces them to leave schooling early or they are forced to work for long hours along with schooling."

str(data)
```
### Summary
```{r}
summary(data)
```
### unique rows in category of states
```{r}
unique(data$Category.of.States)
```


# HISTOGRAMS{.tabset}

### Agriculture Histogram

```{r}
histogram(~data$Agriculture, col='yellow', ylab = "frequency", xlab = "child labour in agriculture")
```

### Construction Histogram

```{r}
histogram(~data$Construction, col='blue', ylab = "frequency", xlab = "child labour in construction")
```

### Manufacturing Histogram
```{r}
histogram(~data$Manufacturing, col='red', ylab = "frequency", xlab = "child labour in Manufacturing")
```

### Trade Hotels & Restaurants Histogram

```{r}
histogram(~data$Trade.Hotels...Restaurants, col='brown', ylab = "frequency", xlab = "child labour in Trade Hotels & Restaurants")
```

### Others

```{r}
histogram(~data$Others, col='pink', ylab = "frequency", xlab = "child labour in other sectors")
```

### state_wise distribution of child labour in agricluture sector

```{r}
library(lattice)
histogram(~Agriculture|States, data=data, breaks= 20, col=c(1,2))

```

# BOXPLOT{.tabset}

### BOXPLOT FOR CHILD LABOUR IN AGRICULTURAL SECTOR

```{r}
boxplot(Agriculture~Total, data= data, col='green', xlim=c(0,2), main= "BOXPLOT FOR CHILD LABOUR IN AGRICULTURAL SECTOR")
```


# ASSOCIATION{.tabset}

### SCATTERPLOT FOR CHILD LABOUR IN AGRICULTURAL SECTOR AND TOTAL IN EACH STATES

```{r}

library(ggplot2)
ggplot(data)+geom_point(mapping= aes(x=Agriculture, y=Total, color= States)) +ggtitle(label= "ASSOCIATION OF CHILD LABOUR IN AGRICULTURAL SECTOR AND TOTAL")
```

# CONCLUSION {data-width=350}

### Agriculture

```{r}
value=sum(data$Agriculture)
valueBox("percentage total from all states(Child labour in Agriculture )",value,icon="fa fa-user")

```

### Manufacturing

```{r}
value=sum(data$Manufacturing)
valueBox("percentage total from all states(Child labour in manufacturing )",value,icon="fa fa-user")

```

###  Trade Hotels & Restaurants

```{r}
value=sum(data$Trade.Hotels...Restaurants)
valueBox("percentage total from all states(Child labour in construction )",value,icon="fa fa-user")


```

### inference
```{r}
"From all of these studies, it is seen that the number of child labour is highest in agricultural sector. The next highest is from manufacturing sector, followed by trade, hotels and restaurants"
```

# DATASET{data-width=350}

### download dataset

```{r}
datatable(data,extensions="Buttons", options=list(dom="Bfrtip",buttons= c('copy','print','pdf','csv')))
```