Click the Original, Code and Reconstruction tabs to read about the issues and how they were fixed.
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:
Reference
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
The following plot fixes the main issues in the original.