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

Original


Source: https://howmuch.net/articles/fastest-growing-occupations-in-the-US.


Objective

The original visualisation was posted on “howmuch.net” by Irena on 17th may 2021 and the data was collected from “US Bureau of labor statistics” with the intention to show 20 fastest growing job markets by 2029 and their current median pay in 2019.

The target audience for this visualisation is working individuals who wants to switch their careers to a high paying and fast growing job market and also for young students who are trying to figure out which career choice would be benifical for them in long run as per the growth rate.

The visualisation chosen had the following three main issues:

  • The first issue with the visualisation is the data is not sorted. As the data is not sorted, it is very hard to read which job market is growing faster and has more median pay. It would have been easier if the visualisation was in ascending or descending order.

  • The second issue with the visualisation are the texts, they are too small to read and congested towards the center even when there was space left. At certain places the texts are vertical and on the other hand at some places it is horizontal so there is no uniformity. The scale which is “$50K” “$100K” “$150K” are not in straight line.

  • The third issue with the visualisation is Color and logos. The color for the growth rate is determined with the shades of blue but its projected median pay is written in black. The size of logos are not uniform and it is overlapping at certain places which makes the visualistion look untidy.

Reference

Code

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

library(ggplot2)
library(readxl)
library(readr)
library(dplyr)
library(knitr)
library(readxl)
Top_Growing_Careers <- read_excel("Top Growing Careers.xlsx")
View(Top_Growing_Careers)

p1 <- ggplot(Top_Growing_Careers, aes(y=occupation, x = MedianPay)) + geom_col(fill = "blue")+
labs(x = "Annual Median Pay in USD" , Y = "Occupation" , title = "2019 Median Annual Pay")

p2 <- ggplot(Top_Growing_Careers, aes(y=occupation, x = GrowthPay)) + geom_col(fill = "Red")+
labs(x = "Annual Median Pay in USD" , Y = "Occupation" , title = "Median pay as per the Growth Rate")

Data Reference

Reconstruction