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

Original


Source: U.S. Bureau of Labor Statistics(2020).


Objective The visualizations’s goal is to provide information about the highest-paying jobs in each state. People who are looking for a well-paying job are the target audience. The Visualisation  shows the highest-paying careers in each state and as well as the median yearly wage for each. This information can be useful for persons who are deciding what career path to choose.

The visualization chosen had the following three main issues:

  • It fails to answer a practical question.The visualization does no tell us anything about the factors that contribute to the higher salaries of certain occupations in different states.For example,is it the cost of living , the availability of jobs or the level of education required for the occupations.

  • It has ethical issues.The visualization could be perceived as biased, as it only shows the highest paying jobs in each state.This could lead to believe that these are the only jobs that a worth pursuing,which is not true.

  • It has color issues.The color used in the visualization are not very clear,and it can be difficult to tell which state has the highest paying occupation.

Reference

Code

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

library(ggplot2)
library(tidyverse)


# Read the data into a data frame
High_paid <- read.csv("Data Visualisation Dataset.csv")
#Dropping the extra column present in the csv file
High_paid <- High_paid[,-4]
#Reanmaing the column name , so as to making it easier for the operation ahead
colnames(High_paid)[3] ='Annual_mean_wage'
plot2 <- ggplot(High_paid, aes(x = State, y = Annual_mean_wage, fill = Job)) +
  geom_bar(stat = "identity", position = "dodge") + 
  
  labs(x = "State", y = "Annual mean wage ($)", title = "The Best Paying occupation in each State in The U.S (2020)") +
  theme(
    plot.title = element_text(size = 12),
        legend.position = "top",
        legend.title = element_text(size = 6),
        legend.text = element_text(size = 5),
        axis.title = element_text(face = "bold", size = 8),
        axis.text.y = element_text(size = 4,
                                   face = "bold",
                                   margin = margin(t = 2, r = 2, b = 2, l = 0)),
        axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1,size = 10,face = "bold")) +
  scale_fill_manual(values = rainbow(length(unique(High_paid$Job))))

Data Reference

Reconstruction