Regional inequality across countries 1992-2012:

An interactive and automated exploration in R

knitr::opts_chunk$set(
  echo = TRUE,
  message = FALSE,
  warning = FALSE
)
library(tidyverse)
library(rio)           # import stata files
library(ExPanDaR)      # explore panel data interactively  
library(DT)            # interactive tables
library(pmdplyr)       # managing panel and hierarchical data
library(panelr)        # managing panel  data
library(gganimate)     # animated figures
library(plotly)        # interactive figures
library(countrycode)   # add continent name
theme_set(theme_minimal())

# Change the presentation of decimal numbers to 4 and avoid scientific notation
options(prompt="R> ", digits=3, scipen=999)

Suggested citation:

Mendez, Carlos (2020). Regional inequality across countries 1992-2012: An interactive and automated exploration in R. R Studio/RPubs. Available at https://rpubs.com/quarcs-lab/data-regional-lights-gdp-inequality-1992-2012

This work is licensed under the Creative Commons Attribution-Share Alike 4.0 International License.

1 Original data source

• Lessmann, C., & Seidel, A. (2017). Regional inequality, convergence, and its determinants–A view from outer space. European Economic Review, 92, 110-132. Data available at http://dx.doi.org/10.7802/1339.

Sample data:

dat <- import("download_dataset.dta")
head(dat)

2 Data transformations

• Add continent variable

dat$continent <- countrycode(sourcevar = dat[, "Country_NAME"],
                            origin = "country.name",
                            destination = "continent")

• Add the log of predicted GDP per capita

dat <- dat %>% 
  mutate(
    ln_pred_GPDpc = log(pred_GDP_pc_Region)
  )

• Select and order the variables

dat <- dat %>% 
  select(
    Region_NAME,
    year,
    ln_pred_GPDpc,
    pred_GDP_pc_Region,
    GINIW_pred_GDP_pc,
    GE_m1W_pred_GDP_pc, 
    GE_0W_pred_GDP_pc,
    GE_1W_pred_GDP_pc, 
    COVW_pred_GDP_pc,
    Country_NAME,
    continent,
  )

• Rename variables

dat <- dat %>% 
  rename(
    region = Region_NAME,
    year = year,
    log_pred_GPDpc = ln_pred_GPDpc,
    pred_GDPpc = pred_GDP_pc_Region,
    gini = GINIW_pred_GDP_pc,
    ge_minus1 = GE_m1W_pred_GDP_pc, 
    mlogd = GE_0W_pred_GDP_pc,
    theil = GE_1W_pred_GDP_pc, 
    cv = COVW_pred_GDP_pc,
    country = Country_NAME,
    continent = continent
  )

• Sort the data by region and year

dat <- dat %>% 
arrange(
    region, year
  )

• Correct some errors in the names of regions

dat <- dat %>% 
  mutate(
    region = recode(region, "?li Bayramli" = "Ali-Bayramli" )
  )

Sample data:

head(dat)

3 Definitions of variables

df_definitions <- read_csv("df_def.csv") 
df_definitions

4 Interactive Table

# Define function for  interactive table
create_dt <- function(x){
  DT::datatable(x,
                extensions = 'Buttons',
                options = list(dom = 'Blfrtip',
                               buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                               lengthMenu = list(c(10,25,50,-1),
                                                 c(10,25,50,"All"))))
}

Example: The regions of Cambodia

dat %>% 
  filter(country == "Cambodia") %>% 
  create_dt() %>% 
  formatRound(columns =c(
"log_pred_GPDpc",
"pred_GDPpc",
"gini",
"ge_minus1",
"mlogd",
"theil",
"cv"    
  ),
  digits = 4)

NA

5 Interactive and Automated exploration

• Initial exploration

# Run it in the console
ExPanD(
  df = dat,
  df_def = df_definitions,
  export_nb_option = TRUE,
  title = "Regional inequality across countries 1992-2012",
  abstract = paste("Predicted GDP per-capita based on satellite nighttime data. Source: Lessmann, C., & Seidel, A. (2017). Regional inequality, convergence, and its determinants: A view from outer space. European Economic Review, 92, 110-132. Data available at http://dx.doi.org/10.7802/1339.")
    )

• Automated exploration: First you customize the exploration, export configuration file, and include it in the new set up of the exploration.

config_list_fromRDS <- readRDS("ExPanD.RDS")

# Run it in the console
ExPanD(
  df = dat,
  df_def = df_definitions,
  export_nb_option = TRUE,
  config_list = config_list_fromRDS,
  title = "Regional inequality across countries 1992-2012",
  abstract = paste("Suggested citation: Mendez C. (2020). Regional inequality across countries 1992-2012: An animated, automated, and interactive exploration in R. R Studio/RPubs. Available at  https://rpubs.com/quarcs-lab/data-regional-lights-gdp-inequality-1992-2012 . Original data source: Lessmann, C., and Seidel, A. (2017). Regional inequality, convergence, and its determinants–A view from outer space. European Economic Review, 92, 110-132. Data available at http://dx.doi.org/10.7802/1339 ")
    )

• Shiny Web App

https://carlosmendez777.shinyapps.io/data-regional-lights-gdp-inequality-1992-2012

6 References

• Lessmann, C., & Seidel, A. (2017). Regional inequality, convergence, and its determinants–A view from outer space. European Economic Review, 92, 110-132. Data available at http://dx.doi.org/10.7802/1339.

END