"Globe" -shaped mapa Rosji

Question

rysuję mapę regionów Rosji wykorzystaniem GADM dane:

setwd("~/Desktop/Master thesis/") 
library(sp) 
library(RColorBrewer) 
library(raster) 

data <- getData('GADM', country='RUS', level=1) 
#exclude columns I don't need 
data <- data[,-c(2,3,4,5,7,8,9,10,11,12,13)] 
data$region <- as.factor(iconv(as.character(data$NAME_1))) 
png(file = "~/Desktop/myplot2.png", width = 1300, height = 700, units = "px") 
spplot(data, "region", xlim=c(15,190), ylim=c(40,83), col.regions = colorRampPalette(brewer.pal(12, "Set3"))(85), col = "white") 
    dev.off() 

Mapa uzyskałem:

Mapa mam zbyt "płaskie" i nie wygląda jak mapa z Wikipedii. Prawa i lewa część mapy powinna być nieco odwrócona (ponieważ wynikają one z okrągłego kształtu kuli ziemskiej).

Mapa z encyklopedii:

Czy istnieje jakiś sposób, aby uczynić go bardziej „w kształcie kuli”?

Answer 1

Jeśli nie masz nic przeciwko używaniu ggplot2, możesz użyć coord_map("azequalarea").

Utwórz ramkę danych:

library(ggplot2) 
library(maptools) 
data.f <- fortify(data, region = "region") 

Then działki:

ggplot(data.f) + 
    geom_polygon(aes(x = long, y = lat, fill = id, group = group), colour = "white") + 
    xlim(15,190) + 
    ylim(40,83) + 
    coord_map("azequalarea") + 
    scale_fill_manual(values = colorRampPalette(brewer.pal(12, "Set3"))(85)) + 
    theme(axis.line = element_blank(), 
     axis.text.x = element_blank(), 
     axis.text.y = element_blank(), 
     axis.ticks = element_blank(), 
     axis.title.x = element_blank(), 
     axis.title.y = element_blank(), 
     panel.background = element_blank(), 
     panel.border = element_blank(), 
     panel.grid.major = element_blank(), 
     panel.grid.minor = element_blank(), 
     plot.background = element_blank())