Assignment 2

Deconstruct, Reconstruct Web Report

Original

Objective

• The original data visualization aims to provide insights about the top 10 states in India with respect to Children rescued or withdrawn from work, rehabilitated and mainstreamed under NLCP scheme during 2017-18.

• We can see that the numbers have gone up with the following years which indicates to be a good initiative.

• This visualisation aims to target the citizens of Indian also specifically the government of each state to be in check of the numbers and aim to bring up the numbers every following year and abolish child labour.

The visualisation chosen had the following three main issues:

• The graph chosen seems to be incorrect as it adds to some unclarity in the numbers shown by each state i.e stacked bar chart adds up to some unclarity instead clustered barchart would be great alternative.

• The Bright colors used seems to be an issue to the visualisation as it misleads instead a good selection of subtle color saturation adds more value as the years follow.

• The convention has been changed here by using x axis for the quantitative variable instead we can bring back the convention to make graph more appropriate.

Reference

• Open Government Data(OGD) Community. 2020. Top 10 States With Respect To Children Rescued/Withdrawn From Work, Rehabilitated And Mainstreamed Under NCLP Scheme During 2017-18. [online] Available at: https://community.data.gov.in/top-10-states-with-respect-to-children-rescued-withdrawn-from-work-rehabilitated-and-mainstreamed-under-nclp-scheme-during-2017-18/ [Accessed 20 September 2020].

Code

The following code was used to fix the issues identified in the original.

library(ggplot2)
library(readxl)
library(tidyr)
library(dplyr)

top10<-read_excel("C:/Users/Pooja/Downloads/assignment2template1950/datafile.xlsx")

 
 top10<-top10[order(top10$`2017-18`, decreasing = TRUE),] 
 top10<-top_n(top10, 10)
 top10<-top10[order(top10$`State`),] 

 top10<-subset(top10, select = -c(1) )
 top <- gather(top10, Year, value, -State)
 colors<-c("#CCDE57","#B3C732","#94A813","#718200")
 
p1<-ggplot(top, aes(x = State,y = value))+geom_bar(aes(fill= Year),stat = "identity",position = "dodge")+scale_fill_manual(values=colors)+
  labs(
    title = "Top 10 Indian states WRT Children rescued from work under NLCP during 2017-18",
    y = "In number")

Data Reference

• Open Government Data(OGD) Community. 2020. Top 10 States With Respect To Children Rescued/Withdrawn From Work, Rehabilitated And Mainstreamed Under NCLP Scheme During 2017-18. [online] Available at: https://community.data.gov.in/top-10-states-with-respect-to-children-rescued-withdrawn-from-work-rehabilitated-and-mainstreamed-under-nclp-scheme-during-2017-18/ [Accessed 20 September 2020].

Reconstruction

The following plot fixes the main issues in the original.