This dashboard explores the evolution of the Gini coefficient over the previous 50 years (1960-2010). The Gini coefficient is the most commonly used value to determine wealth distribution and equality within nation states. The measure is on a scale of 0-100 or (0-1) where a coefficient of 100 would effectively mean one individual holds the entire wealth of a nation.

The dashboard initially explores the coefficient within regions and is facetted out by continents, we see that regions around North America have the highest ratings and Asian countries appear to have the lowest. Interestingly post the dissolution of the Soviet Union throughout Eastern European countries the coefficient appears to steadily be on the rise and is now situated very similarly to Western European counterparts.

Further exploration of Eastern European nations shows us a sharp increase in the decade post the disbanding of the USSR , before a plateau in the data. Finally the OECD nations show a general downward trend since the 1970’s - with the notable exception of the USA which is on a seemingly opposing pathway.

The Americas and Asia

AMAS <- ggplot(AMAS,aes(year, Giniall)) +
    geom_line(aes(colour = Region), size = 0.6) + 
    scale_colour_manual(values = palette) +
    labs(list(x = 'Year', y = 'Gini Coefficent')) +
    theme_minimal() +
    facet_wrap(~Continent, ncol = 1) +
    guides(colour = guide_legend(title = "Region"))

plot(AMAS)

Europe, Middle East & Africa

EUAF <- ggplot(EUAF,aes(year, Giniall)) +
geom_line(aes(colour = Region), size = 0.6) + 
  scale_colour_manual(values = palette2) +
  labs(list(x = 'Year', y = 'Gini Coefficent')) +
  theme_minimal() +
  facet_wrap(~Continent, ncol = 1)



plot(EUAF)

Ex-Soviet & Current Communist Nations

UUSR <- ggplot (USSR, aes(year, Giniall)) + 
      geom_line(aes(colour = country), alpha = 0.8) + 
      scale_colour_manual(values = palette4) +
      labs(list(x = 'Year', y = 'Gini Coefficent', title = "Ex-Soviet & Current Communist Nations")) +
      guides(colour = guide_legend(title = "Countries")) +
      scale_x_continuous(breaks = c(1960, 1970, 1980, 1990, 2000, 2010)) +
      scale_y_continuous(breaks = c(20, 30, 40, 50, 60)) +
      theme_minimal()

plot(USSR)

Organisation of Economic Co-operation and Development

OECD <- ggplot (OECD, aes(year, Giniall)) + 
              geom_line(aes(colour = country), alpha = 0.8) + 
              scale_colour_manual(values = palette3) +
              labs(list(x = 'Year', y = 'Gini Coefficent', title = "Organisation of Economic Co-operation and Development")) +
              guides(colour = guide_legend(title = "Countries")) +
              scale_x_continuous(breaks = c(1960, 1970, 1980, 1990, 2000, 2010)) +
              scale_y_continuous(breaks = c(20, 30, 40, 50, 60)) +
              theme_minimal()

plot(OECD)