Home

introduction to child labour

[1] "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. \nWhen the work hinders their schooling or forces them to leave schooling early or they are forced to work for long hours along with schooling."

type

'data.frame':   21 obs. of  9 variables:
 $ Category.of.States                     : chr  "Non Special Category states" "Non Special Category states" "Non Special Category states" "Non Special Category states" ...
 $ States                                 : chr  "Andhra Pradesh" "Assam" "Bihar" "Chhattisgarh" ...
 $ Agriculture                            : num  69 69.3 71.8 87.9 0 76.7 65.6 65.3 82.6 19.2 ...
 $ Manufacturing                          : num  9.7 8.4 11.2 2.4 11.1 2.6 3.8 14.6 9.3 32.8 ...
 $ Construction                           : num  3.2 1.8 0 0.9 0 0.3 7 4.3 1.2 0 ...
 $ Trade.Hotels...Restaurants             : num  9 7.8 15.5 7.2 57.8 17.8 8.1 12.1 5.7 32 ...
 $ Community..Social.and.Personal.Services: num  7.1 11 1.1 1.7 31.1 1.5 15.5 2.8 0.3 16.1 ...
 $ Others                                 : num  2 1.8 0.5 0 0 1.2 0 0.9 0.9 0 ...
 $ Total                                  : int  100 100 100 100 100 100 100 100 100 100 ...

Summary

 Category.of.States    States           Agriculture    Manufacturing  
 Length:21          Length:21          Min.   : 0.00   Min.   : 0.00  
 Class :character   Class :character   1st Qu.:65.30   1st Qu.: 5.30  
 Mode  :character   Mode  :character   Median :69.30   Median : 9.90  
                                       Mean   :64.82   Mean   :14.09  
                                       3rd Qu.:80.70   3rd Qu.:16.60  
                                       Max.   :87.90   Max.   :44.60  
  Construction   Trade.Hotels...Restaurants
 Min.   :0.000   Min.   : 3.30             
 1st Qu.:0.400   1st Qu.: 6.70             
 Median :1.800   Median : 8.10             
 Mean   :2.205   Mean   :11.93             
 3rd Qu.:3.300   3rd Qu.: 9.70             
 Max.   :7.000   Max.   :57.80             
 Community..Social.and.Personal.Services     Others          Total    
 Min.   : 0.000                          Min.   :0.000   Min.   :100  
 1st Qu.: 1.300                          1st Qu.:0.000   1st Qu.:100  
 Median : 2.800                          Median :1.200   Median :100  
 Mean   : 5.857                          Mean   :1.124   Mean   :100  
 3rd Qu.: 7.100                          3rd Qu.:1.800   3rd Qu.:100  
 Max.   :31.100                          Max.   :4.000   Max.   :100

Graph page 1

Agriculture Histogram

Construction Histogram

Graph page 2

Manufacturing Histogram

Others

Conclusion

EDA

---
title: "CHILD LABOUR DATA SET"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    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."

```

### type
```{r}
str(data)
```
### Summary
```{r}
summary(data)
```


# Graph page 1{data-width=350}

### Agriculture Histogram

```{r}
histogram(~data$Agriculture, col='red')
```

### Construction Histogram

```{r}
histogram(~data$Construction, col='blue')
```

# Graph page 2 {data-width=350}


### Manufacturing Histogram

```{r}
histogram(~data$Manufacturing, col='orange')
```

### Others

```{r}
histogram(~data$Others, col='purple')
```

# Conclusion {data-width=350}

### EDA

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