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

Original


Source: All the World’s Billionaires in a Single Map.


Objective

The objective of this visualization is to demonstrate total number of billionaires and total wealth of billionaires around the world.The aim of this visualization is to compare each countries with total number of billionaires and total wealth accumulated by billionaires of that country. The targeted audiences are the people living in all countries and wants to aware of how many billionaires are their in their country and how much wealth accumulated by them. The figure consists of country name with number showing total number of billionaire and total wealth in $.

The visualization chosen had the following three main issues:

  • Issue 1: Perceptual issue: The map looks very messy.There are no proper axis to define numbers and total wealth of billionaire.All countries are gathered together in such a way that suddenly it would be difficult for an audience without prior knowledge of graph to get immediate desired count and value .Also at some point percentage value is given for certain regions. Nothing mentioned specifically about what does percentage signify.

  • Issue 2: Deceptive issue: The graph does not provide clear visual representation of all values.For example suddenly looking at value 67 marked in pink color ,it would be hard to find which country it is talking about- South Korea or Hong Kong as both names are showing very close and adjacent to this number.This often leads to misleading information to target audiences.

  • Issue 3: Colors and visual issue: Colors chosen for some countries so similar like green color(both light and deep green) along with bubbles looks almost look similar. At some places ,these green dots/bubbles looks very congested for adjacent countries.It will take long time for audiences to interpret dots and understand the visualizations.

Reference

All the World’s Billionaires in a Single Map ,website:

https://howmuch.net/articles/world-map-of-billionaires-2018

Code

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

# Plotting the graph

library(ggplot2)
library(readr)
library(magrittr)
library(dplyr)
library(tidyr)

billionare<-read_csv("billionare.csv")
billionare
## # A tibble: 43 x 7
##    Country   Region    `Biggest Region` `Total number of bi~ `Self made billion~
##    <chr>     <chr>     <chr>                           <dbl>               <dbl>
##  1 Brazil    C&S Amer~ Americas                           42                  45
##  2 Mexico    C&S Amer~ Americas                           16                  50
##  3 Chile     C&S Amer~ Americas                           11                  45
##  4 Argentina C&S Amer~ Americas                            9                  67
##  5 Peru      C&S Amer~ Americas                            6                  67
##  6 United S~ North Am~ Americas                          585                  68
##  7 Canada    North Am~ Americas                           46                  80
##  8 China     Greater ~ Asia-Pacific(AP~                  373                  98
##  9 Hong Kong Greater ~ Asia-Pacific(AP~                   67                  63
## 10 Taiwan    Greater ~ Asia-Pacific(AP~                   35                  69
## # ... with 33 more rows, and 2 more variables: Growth (%) <dbl>,
## #   Total wealth ($ b) <dbl>
dataframe1 <- data.frame(billionare)


# Plotting the first graph

p<-ggplot(data=dataframe1, aes(x= reorder(Country,Total.wealth....b.) , y=Total.wealth....b. ,label =Total.wealth....b.) ) +
  geom_bar(stat="identity",position="dodge",width =1 , color = "black",fill = "dodgerblue") +
  labs(title = "Total wealth accumulated by billionaires per country (2018)",
       x = "Country ",
       y = "Total Wealth of all billionare in Billion $") + 
  theme_minimal() + 
  geom_text(hjust = -0.1, size = 2.6)
theme(axis.text.x = element_text(face="bold", size=10),
      axis.text.y = element_text(face="bold", size=7.8))
## List of 2
##  $ axis.text.x:List of 11
##   ..$ family       : NULL
##   ..$ face         : chr "bold"
##   ..$ colour       : NULL
##   ..$ size         : num 10
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi FALSE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.y:List of 11
##   ..$ family       : NULL
##   ..$ face         : chr "bold"
##   ..$ colour       : NULL
##   ..$ size         : num 7.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi FALSE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  - attr(*, "class")= chr [1:2] "theme" "gg"
##  - attr(*, "complete")= logi FALSE
##  - attr(*, "validate")= logi TRUE
# Plotting the second  graph

p1<-ggplot(data=dataframe1, aes(x= reorder(Country,Total.number.of.billionaires) , y= Total.number.of.billionaires ,label =Total.number.of.billionaires) ) +
  geom_bar(stat="identity",position="dodge",width =1 , color = "black",fill = "steelblue") +
  labs(title = "World’s total number of Billionaires in each country (2018) ",
       x = "Country ",
       y = "Total number of billionaires") + 
  theme_minimal() + 
  geom_text(hjust = -0.1, size = 2.6)
theme(axis.text.x = element_text(face="bold", size=10),
      axis.text.y = element_text(face="bold", size=7.8))
## List of 2
##  $ axis.text.x:List of 11
##   ..$ family       : NULL
##   ..$ face         : chr "bold"
##   ..$ colour       : NULL
##   ..$ size         : num 10
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi FALSE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  $ axis.text.y:List of 11
##   ..$ family       : NULL
##   ..$ face         : chr "bold"
##   ..$ colour       : NULL
##   ..$ size         : num 7.8
##   ..$ hjust        : NULL
##   ..$ vjust        : NULL
##   ..$ angle        : NULL
##   ..$ lineheight   : NULL
##   ..$ margin       : NULL
##   ..$ debug        : NULL
##   ..$ inherit.blank: logi FALSE
##   ..- attr(*, "class")= chr [1:2] "element_text" "element"
##  - attr(*, "class")= chr [1:2] "theme" "gg"
##  - attr(*, "complete")= logi FALSE
##  - attr(*, "validate")= logi TRUE

Data Reference

Sources: All the World’s Billionaires in a Single Map ,website

https://howmuch.net/sources/world-map-of-billionaires-2018

Reconstruction

The following plot fixes the main issues in the original.Here we have reconstructed original congested map showing billionaire’s total number and total wealth into two simple horizontal barcharts.The y-axis of barcharts shows all country names and x-axis shows corresponding total numbers and total wealth of billionaires.After reconstruction,both barchart shows in descending order of their values.

Conclusion :

We can both barcharts clearly shows different countries and total number of billionaire in one of the graph and Total wealth amount of billionarire in other.This is simple and readable and any audiences and visualize and understand what these barchart shows and quickly they can get desired value for country, they might be looking.