Процент женщин в национальных парламентах

# Индикатор показателя
indicator.code <- 'SG.GEN.PARL.ZS'

data <- read.csv('./data/Gender_WDI.csv', header = T, sep = ',')
data <- data.table(data)

# Коды стран iso2
fileURL <- 'https://pkgstore.datahub.io/core/country-list/data_csv/data/d7c9d7cfb42cb69f4422dec222dbbaa8/data_csv.csv'
all.iso2.country.codes <- read.csv(fileURL, 
                                   stringsAsFactors = FALSE, na.strings = '.')

# Убираем макрорегионы
data <- na.omit(data[iso2c %in% all.iso2.country.codes$Code, ])

# Объект таблица исходных данных
g.tbl <- gvisTable(data = data[, -'year'], 
                   options = list(width = 300, height = 400))

# Объект интерактивная карта
g.chart <- gvisGeoChart(data = data, locationvar = 'iso2c',
                        hovervar = 'country', colorvar = indicator.code,
                        options = list(width = 500, 
                                       height = 400, dataMode = 'regions'))

# Разместить таблицу и карту на одной панели
gvisMerge(g.tbl, g.chart, horizontal = TRUE,
          tableOptions = 'bgcolor=\"#CCCCCC\" cellspacing=10')
<!DOCTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Strict//EN” “https://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd”> MergedID36801bc5661d
Data: various • Chart ID: MergedID36801bc5661d • googleVis-0.6.10
R version 4.0.4 (2021-02-15) • Google Terms of Use • Data Policy: See individual charts