У меня есть карта регионов России, которая отлично работает, за одним огромным исключением
library(dplyr)
library(ggplot2)
library(raster)
library(rgeos)
russian_map <- getData("GADM", country = "RUS", level = 1)
russia_1 <- spTransform(russian_map, CRS(my.CRS))
russia_1.simp <- gSimplify(russian_map, tol=1, topologyPreserve=TRUE) %>%
SpatialPolygonsDataFrame(data=russian_map@data)
map = fortify(russia_1.simp)
ggplot() +
geom_polygon(
data = russia_1.simp,
aes(x = long, y = lat, group = group),
fill = "lightblue",
color = "grey20",
) + coord_map()+theme_minimal()
В результате получается карта России, смещенная вправо и разделенная на две половины (см. Рисунок). Что я делаю не так?
