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

Original


Source: Reddit.


Objective

The original data visualisation was intened to shed knowledge on the top ten richest companies across the globe on the basis of their financial 2017 revenue. The focus of this visualization was to consider a different prespective of analysing the top richest companies other than market cap, brand value and profits. It was also the targetted audience who wished to look at the richest companies in terms of fiscal revenue and not brand value or market cap.

However, the original visualization had few issues in it which made the visualization a little ambiguous. Few points in the visualization make it abstruse.

Below are three major issues outlined in this visualisation:

  • The first and foremost issue with this visualization is that the data is not sorted. As the data is not sorted, it becomes hard to capture in a go as which company is the richest. Thus, it lacks the main purpose of the data and its visualization.

  • The bars are depicted with different colors. Using different colors for the bars here was not necessary. It ended up by adding complexity to the visualization for no essential reason.

  • Logos are inconsistent is shape, size and off context. The logos to depict each of the companies (as well as the owners in some case), are not synced in the shape and size. Also, there is no need of the logos as the names of the companies are already mentined on the x-axis. The logos are intrusive in this visualization for a smoother understanding.

Reference

Code

Below is the code that I used to fix the issues that were identified earlier in the originalvisualization.

library(readr)
library(ggplot2)
library(dplyr)
Richest <- read_csv("C:/Users/SIDDHARTH/Desktop/TopRichestCompanies.csv")


plot <- ggplot(Richest, aes(x = reorder(Company,-Revenue), y = Revenue))
plot <- plot + 
  geom_bar(stat = "identity", position = "dodge", width= 0.5, color="skyblue", fill="steelblue") + 
  geom_text(aes(label = Revenue), size = 3, vjust=-0.3)+
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        plot.title = element_text(size = 11,hjust = 0.5)) +
  labs(title = "Top 10 Richest Companies in World",
       y = "Revenue in Billion Dollars",
       x = "Companies")

Data Reference

Reconstruction

The following plot fixes the main issues in the original.