Click the Original, Code and Reconstruction tabs to read about the issues and how they were fixed.

Original


Source: COVID-19 India Factsheet as on 08-May (2020).


Objective

  • The purpose of this visualization is to illustrate the growth in COVID-19 cases during period from 30thApril,2020 to 8thMay,2020 in top 16 States by COVID-19 Cases.

  • This visualzation is published for COVID-19 frontline workers, Media and general public of the country and remaining world.

The visualisation chosen had the following three main issues:

  • Difficult to read: In the visualizaion we can see some data showed very less growth due to which the two points representing are placed so near making it difficult to understand.
  • Scale: Although the graph seems to be fairly in scale, it is quite difficult to see the data at same level.
  • Summarization: It is difficult to summarize growth in the states from the given illustration.

Reference

Code

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

library(ggplot2)
# Assigning states their official abbrebeviation.
states = c('MH', 'TN', 'GJ', 'DL', 'PN', 'RJ', 'UP', 'WB', 'MP', 'AP', 'HR', 'JK', 'KA', 'BR', 'TL', 'OR')

# Manually creating list of data observed from the graph.
april_data = c(9915, 2162, 4081, 3439, 357, 2483, 2134, 758, 2561, 1332, 310, 581, 535, 392, 1012, 125)
may_data =  c(17974, 5408, 7012, 5980, 1644, 3427, 3017, 1548, 3252, 1847,625, 793, 705, 550, 1123, 219 )
#Calculating Difference in cases.
diff = may_data - april_data 

#Creating Data frame.
df <- data.frame(States = states, New_Cases = diff)

# Creating Plot and adding labes, axis and theme.
my_plot <- ggplot(data=df, aes(x=States, y=New_Cases)) +
  geom_bar(stat="identity", fill="steelblue")+
  geom_text(aes(label=diff), vjust=-0.3, size=3.5)+
  theme_minimal()
my_plot <- my_plot + ggtitle("Increase in COVID-19 cases from 30-April to 8-May 2020")+theme(plot.title = element_text(hjust = 0.5))

Data Reference

Reconstruction

The following plot fixes the main issues in the original.