如何在地图上的特定国家/地区着色

Question

我需要在刚刚裁剪过的仅中美洲的世界地图上的哥斯达黎加进行着色。

下面已经包含了我已经编写的代码...我希望能够使用ggplot2和sf库来实现它。

library("ggplot2")
theme_set(theme_bw())
library("sf")
library("rnaturalearth")
library("rnaturalearthdata")
library("maps")
world <- ne_countries(scale='medium',returnclass = 'sf')
class(world)


(CentralAmerica <- ggplot(data = world) +
  geom_sf()  +
  coord_sf(xlim = c(-60, -120), ylim = c(5, 35), expand = FALSE) +
  scale_fill_viridis_d(option = "plasma") +
  theme(panel.background = element_rect(fill = "azure"),
     panel.border = element_rect(fill = NA)))

Answer 1

这是一种方式。我为哥斯达黎加创建了一个新的数据表，以便更轻松地获取经度和纬度，然后将其称为geom_polygon：

library("ggplot2")
theme_set(theme_bw())
library("sf")
library("rnaturalearth")
library("rnaturalearthdata")
library("maps")
library("data.table")
world <- ne_countries(scale='medium',returnclass = 'sf')
class(world)

CR_DT <- world[world$name == "Costa Rica",]
CR_DT2 <- as.data.table(CR_DT)[, unlist(geometry)]
CR_DT3 <- setNames(data.table(matrix(nrow = 133, ncol=2)), c("lng", "lat"))
CR_DT3$lng <- CR_DT2[1:133]
CR_DT3$lat <- CR_DT2[134:266]

(CentralAmerica <- ggplot(data = world) +
geom_sf()  +
coord_sf(xlim = c(-60, -120), ylim = c(5, 35), expand = FALSE) +
scale_fill_viridis_d(option = "plasma") +
theme(panel.background = element_rect(fill = "azure"),
      panel.border = element_rect(fill = NA)) +    
geom_polygon(data=CR_DT3, aes(x=lng, y=lat, fill="blue"), colour="red"))

Answer 2

更有效的方法是在以下内容中包含 if() 或 ifelse() 语句：

geom_sf(fill = ifelse(world$geounit == "Costa Rica", 'red', 'blue'))