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

Original


Source: https://www.reddit.com/r/dataisbeautiful/comments/b076tf/top_10_richest_companies_in_the_world_by_revenue/.


Objective

Explain the objective of the original data visualisation

Based on their financial 2017 revenue, the top ten most wealthy corporations in the world were the focus of the original data visualisation. The goal of this visualisation was to examine the top richest corporations from a perspective other than market size, brand value, and earnings. Additionally, the intended audience wanted to view the richest corporations in terms of fiscal revenue rather than brand recognition or market capitalization.

However, there were a few problems with the initial visualisation that gave it some ambiguity. The visualization has a few points that make it cryptic.

The visualisation chosen had the following three main issues:

  • Briefly explain issue 1 The fact that the data is not ordered is the visualization’s biggest flaw. It is challenging to determine which company is the wealthiest in a single step because the data is not ordered. As a result, it lacks both the data’s primary goal and its means of display.

  • Briefly explain issue 2 Different colours are used to represent the bars. It wasn’t required to use various colors for the bars in this instance. In the end, it served only to make the visualization more difficult.

  • Briefly explain issue 3 Inconsistent in terms of size, shape, and context are logos. The shapes and sizes of the logos used to represent each company (and, in certain cases, the owners) differ. Additionally, since the names of the companies are already mentioned on the x-axis, there is no need for logos. In this depiction, the logos are overt in order to facilitate understanding.

Reference

Reference

Code

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

library(readr)
library(ggplot2)
library(dplyr)


df <- read_csv("C:/Users/namra/OneDrive/Pictures/assignment2template/companiesmarketcap.com - Companies ranked by Market Cap - CompaniesMarketCap.com.csv")


plot <- ggplot(df$x, aes(x = reorder(Country,marketcap), y = marketcap))
plot <- plot + 
  geom_bar(stat = "identity", position = "dodge", width= 0.5, color="skyblue", fill="steelblue") + 
  geom_text(aes(label = marketcap), size = 4 , vjust=-0.5)+
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 48, hjust = 3),
        plot.title = element_text(size = 13,hjust = 0.7)) +
  
  labs(
    title = "Top 10 Richest Companies in the world",
    y = "Revenue in Billion Dollars",
    x = "Companies")

Data Reference

Reconstruction

The following plot fixes the main issues in the original.