tmap：在光栅 map 的图例中围绕键添加矩形框

Question

我需要在白色背景上的栅格 map 上放置分类栅格数据的填充图例，其中白色用于表示冰。 我想使用 tmap。 这是一个与我当前项目在精神上相似的最小工作示例。

library(tmap)
library(dplyr)
library(forcats)
library(stars)
data(land)
land_copy <-
  land %>%
  mutate(cover_simplified =
           fct_other(cover_cls, keep = c("Snow/ice", "Water")))
tm_shape(land_copy) +
  tm_raster(col = "cover_simplified",
            palette = c("white", "lightblue", "brown")) +
  tm_layout(legend.outside = TRUE)

map 使用 tmap 生成，图例键周围没有矩形框

问题是图例中的“Snow/ice”指的是一个类别不清楚，因为关键颜色在白色背景上是看不见的。 出于这个原因，“Snow/ice”看起来更像是一个图例标题而不是图例键。 我知道我可以使用tm_layout(legend.bg.color = "gray")更改图例背景，但我更喜欢将背景保持为白色。 相反，我想在每个图例键周围绘制一个细长的黑色矩形框。 这是用 ggplot2 实现的这个想法。

library(ggplot2)
ggplot() +
  geom_stars(aes(x, y, fill = cover_simplified), data = land_copy) +
  scale_fill_discrete(type = c("white", "lightblue", "brown")) +
  coord_sf() +
  theme_void() +
  theme(legend.key = element_rect(color = "black"))

map 使用 ggplot2 生成，每个图例键周围有矩形框

我更愿意使用 tmap 而不是 ggplot2，因为我想要生成的实际 map 比上面的示例更复杂，因此 tmap 是完成我的任务的更好工具。 我发布这个问题是因为我找不到似乎与我的问题相关的tm_layout()的 function 参数。 谷歌搜索也没有给我带来有用的信息。

有没有办法用 tmap 生成 ggplot2 的theme(legend.key = element_rect(color = "black") ？

Answer 1

似乎没有直接在tmap中执行此操作的选项。 然而， tmap是用网格图形绘制的，因此可以捕获图例，更改它，然后将其绘制回来。 如果您在代码后添加以下行：

g <- grid::grid.grab()
leg <- grid::getGrob(g, "legend")
leg$children[[2]]$children[[2]]$children[[1]]$gp$col <- "black"
leg$children[[2]]$children[[2]]$children[[1]]$gp$lwd <- 1
grid::seekViewport("outside_legend")
grid::grid.draw(leg)

你得到：

如果您想将其保存为 pdf，则不能使用tmap_save ，因为这不再是tmap object。相反，按照您的意愿获取 plot，然后执行以下操作：

g <- grid::grid.grab()

pdf("my_pdf.pdf")
grid::grid.newpage()
grid::grid.draw(g)
dev.off()