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

Original


Source: Business Insider (2013).


Objective

The goal of the visualization is to share and compare the 10 top higest salary in Google. The target audience is the general public.

The visualisation chosen had the following three main issues:

  • It’s hard to compare one salary to another using pie chart, it’s better using length instead.
  • Some of the job salary is barely visible since it’s stacked.
  • The color green and red used is not suitable for the color-blind.
  • One of the salary does not match the pie chart salary, should be 241 K instead of 239 K.

Reference

Code

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

library(ggplot2)

job <- c(
  "Group Product Manager",
  "Senior Managers", 
  "Marketing Director",
  "Staff User Experience Designer",
  "Senior Partner Technology Manager",
  "Human Resource Director",
  "Engineering Director",
  "Directors",
  "Product Management Director",
  "Lead Software Engineer Contractor"
)
job_fac <- factor(job, levels = job)
min_salary <- c(
  157,
  143,
  165,
  167,
  180,
  183,
  184,
  172,
  203,
  221
)

max_salary <- c(
  172,
  192,
  179,
  197,
  195,
  199,
  198,
  231,
  218,
  241
)
median <- (min_salary + max_salary)/2

df <- data.frame(job_fac,min_salary,max_salary,median, stringsAsFactors = FALSE)
names(df) <- c("Job", "min", "max","med")

Data Reference

Reconstruction

The following plot fixes the main issues in the original.