Интерактивные карты с GVis и leaflet

Перевод примера с RPubs на русский язык с изменениями и дополнениями.

# загрузка пакетов
library('data.table')
library('googleVis')
# library('dplyr')
library('leaflet')

# загружаем файл с данными по импорту масла в РФ (2010 - 2015)
fileURL <- './data/040510-Imp-RF-comtrade.csv'
if (!file.exists('./data')) dir.create('./data')
if (!file.exists('./data/040510-Imp-RF-comtrade.csv')) {
    download.file(fileURL, 'https://github.com/aksyuk/R-data/blob/master/COMTRADE/040510-Imp-RF-comtrade.csv')
}

# импортируем в объект формата data.frame
DT <- data.table(read.csv('./data/040510-Imp-RF-comtrade.csv', 
                 as.is = T))

# оставляем только название страны и стоимость поставок...
DT <- DT[, Reporter, Trade.Value.USD]
# ...и суммируем по странам
DT <- DT[, lapply(.SD, sum), by = Reporter]

# объект: таблица исходных данных
g.tbl <- gvisTable(data = DT, 
                   options = list(width = 220, height = 400))
# объект: интерактивная карта
g.chart <- gvisGeoChart(data = DT, 
                        locationvar = 'Reporter', 
                        colorvar = 'Trade.Value.USD', 
                        options = list(width = 500, 
                                       height = 400, 
                                       dataMode = 'regions'))
# размещаем таблицу и карту на одной панели (слева направо)
TG <- gvisMerge(g.tbl, g.chart, 
                horizontal = TRUE, 
                tableOptions = 'bgcolor=\"#CCCCCC\" cellspacing=10')

# вставляем результат в html-документ
print(TG, 'chart')

# картинка-логотип для маркеров объекта
fileURL <- './data/ranepa_logo.png'
ranepa.icon <- makeIcon(iconUrl = fileURL, 
                        iconWidth = 31*74/98,
                        iconHeight = 31,
                        iconAnchorX = 31*74/98 / 2,
                        iconAnchorY = 16)

# загружаем данные с характеристиками объектов
fileURL <- './data/RANEPA_loc.csv'
df <- read.table(fileURL, header = T, as.is = T, 
                 sep = ';', dec = ',')

# таблица с координатами
RANEPA.loc <- df[, c('lat', 'lng')]

# подписи к объектам с гиперссылками
ranepa.sites <- paste0("<a href='", df[, 'hyperlink'], "'>", 
                       df[, 'address_eng'], "</a></br><em>", 
                       df[, 'address_ru'], "</em>")

# создаём виджет с картой
myMap <- RANEPA.loc %>% leaflet(width = 800, height = 800) %>% 
addTiles() %>% addMarkers(icon = ranepa.icon, popup = ranepa.sites)

# рисуем карту
myMap