2

我正在尝试使用 tmap 或 ggplot2 包生成地图，并且需要遵循一些内部设计指南，这些指南规定图例键应该间隔开并且形状为矩形。

我尝试过 tmap 但图例键是方形的，并且彼此堆叠在一起，没有任何间距。我不知道如何将形状更改为矩形以及如何隔开键。

在 ggplot2 中，我得到了矩形，但间距似乎是固定的。有没有办法在ggplot2（或tmap）中将键隔开？

theme_opts <- list(theme(panel.grid.minor = element_blank(),
                     panel.grid.major = element_blank(),
                     panel.background = element_blank(),
                     plot.background = element_blank(),
                     panel.border = element_blank(),
                     axis.line = element_blank(),
                     axis.text.x = element_blank(),
                     axis.text.y = element_blank(),
                     axis.ticks = element_blank(),
                     axis.title.x = element_blank(),
                     axis.title.y = element_blank(),
                     legend.position=c(0.015, 0.7),
                     legend.background = element_rect(fill=alpha("white", 0)),
                     legend.key.width = unit(1, "cm"),
                     legend.key.height = unit(0.2, "cm"),
                     legend.spacing.y = unit(1, "cm"),
                     legend.title = element_text(size=14,  family="Tahoma"),
                     legend.text = element_text(size=12,  family="Tahoma")))

p <- ggplot() +
  geom_sf(data = map_data_full, aes(fill = TransmissionClassification), size = 0.5, color = "gray10") +
  scale_fill_manual(values = colours, breaks = transmission_levels) +
  geom_sf(data = map_data_borders, fill = NA, size = 1, color = "black") +
  coord_sf(xlim = c(1405044, 7120890), ylim = c(1291822, 5218781)) +
  theme_opts

这就是传说的样子：

这就是传说的样子

这就是我想要的：

这就是我想要的

4

0 回答 0