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

Original


Source: salaryexplorer-Telecommunications Manager VS Other Jobs (2020).


Objective The targeted audience is Telecommunication managers and people who are interested in learning about or choosing careers in telecommunication: The description conveys that salaries for Telecommunication managers range from 73,500 LKR to 254,000 LKR and that managers who are under paid have plenty of room to improvement. The objective of the above data visualisation is to provide a comparison between Telecommunications Manager salaries and other job both related and not related to Telecommunication.

The above visualisation has following three main issues:

  • The percentage salary difference between two different careers are not correctly displayed
  • Shadow effects serves no purpose while 3D effect causes depth distortion
  • Labelling the cylindrical shapes with the data values does not the surve the purpose of x and y axes

    • Reference

    Code

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

    # Load ggplot2
library(ggplot2)
library(forcats)

# Create data
data <- data.frame(
  name=c("Telecommunication","Other Jobs","Telecommunication Manager") ,  
  value=c(80200,89800,160000)
)

# Barplot

p1<-ggplot(data, aes(x=reorder(name,value),y=value)) + 
  geom_bar(stat = "identity",alpha=0.7,width=0.5)+ coord_flip()+
  labs(title = "Telecommunications Manager VS Other Jobs",
       x = "Career",
       y = "Average Monthly Salary")

    Data Reference

    Reconstruction

    The following plot fixes the main issues in the original.