На картинке выводятся Московская, Владимирская и Ярославская области. Подскажите как выделить цветом границу между областями?
Код: Выделить всё
library(broom); library(maps); library(maptools); library(rgeos); library(mapproj); library(scales)
library(ggplot2)
gadm <- readRDS("Geo/gadm36_RUS_2_sp.rds") # Карта России
r1 <- gadm[gadm@data$NAME_1 == "Moskva",]
r2 <- gadm[gadm@data$NAME_1 == "Vladimir",]
r3 <- gadm[gadm@data$NAME_1 == "Yaroslavl'",]
rg <- rbind(r1, r2, r3)
counties <- tidy(rg, region = "NAME_2")
set.seed(1234)
df <- rg@data
df$Value <- rnorm(nrow(df))
ggplot() + geom_map(data = df, aes(map_id = NAME_2, fill = Value, color = I("white")),
map = counties) +
expand_limits(x = counties$long, y = counties$lat) +
scale_fill_gradient(low = "green", high = "darkgreen") +
coord_map("polyconic")