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

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

Интерактивная картограмма

Построена на данных по импорту сливочного масла в РФ за период с 2010 по 2015 гг. (в стоимостном выражении).

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

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

Карта на основе Google Maps

Путь урагана Эндрю с 16 по 28 августа 1992 года. В комментариях к маркерам указаны давление в миллибарах (Pressure) и скорость в км/ч (Speed).

# объект: таблица исходных данных
g.tbl <- gvisTable(Andrew, 
                   options = list(width = 720, height = 200))
# объект: интерактивная карта
g.map <- gvisMap(data = Andrew, 
                 locationvar = 'LatLong', 
                 tipvar = 'Tip', 
                 options = list(width = 720,
                                height = 400,
                                showTip = TRUE, 
                                showLine = TRUE, 
                                enableScrollWheel = TRUE, 
                                mapType = 'hybrid', 
                                useMapTypeControl = TRUE))

# размещаем карту и таблицу на одной панели, друг под другом
TG <- gvisMerge(g.map, g.tbl, 
                horizontal = FALSE, 
                tableOptions = 'bgcolor=\"#CCCCCC\" cellspacing=10')
# вставляем результат в html-документ
print(TG, 'chart')