r - 在 tmap 中堆叠边框和填充颜色的图例

Question

我有一个tmap两层的情节， atm_polygon和 a tm_borders。一个最小的例子是

library(tmap)
library(sf)
library(tidyverse)

data("World")

continents <- World %>% 
  group_by(continent) %>% 
  summarise()

tm_shape(World) +
  tm_polygons(col = "economy") +
tm_shape(continents) +
  tm_borders(col = "red")

对于自动创建的图例（解释第一层的填充颜色），我想添加一个字段，指示第二层的红色边框代表什么（例如，使用带有红色边框和适当标签的白色方块） .

有什么办法可以做到这一点？在我的情况下，手动指定填充/边框颜色就足够了，因为图例项的数量很少。

标签： rtmap