如何在ggplot2中为不同线条图例设置差异化背景（不影响其他元素）

要实现lines1图例（彩色线条）配白色背景、lines2图例（白色线条）配黑色背景的效果，核心是利用guide_legend()的key.theme参数，为每个图例单独设置图例键的背景样式，而非依赖全局theme()设置。

修改后的可复现代码 #

library(sf)
library(geosphere)
library(ggplot2)

nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)

a <- st_coordinates(st_centroid(nc[1:10,]))
b <- st_coordinates(st_centroid(nc[91:100,]))

c <- st_coordinates(st_centroid(nc[21:30,]))
d <- st_coordinates(st_centroid(nc[81:90,]))

lines1 <- gcIntermediate(a,b,sp = TRUE)
lines1 <- st_as_sf(lines1)
lines1$col <- rep(c("A","B"),5)
lines2 <- gcIntermediate(c,d,sp = TRUE)
lines2 <- st_as_sf(lines2)

ggplot()+
  geom_sf(data = nc,fill = 'black',color = 'white')+
  geom_sf(data = lines1,aes(color = col))+
  geom_sf(data = lines2, color = 'white',aes(linetype = "help"))+
  # 全局图例键设为透明，避免覆盖单独图例的自定义设置
  theme(legend.key = element_rect(fill = NA))+
  scale_color_manual(
    values = c("darkred","yellow"),
    guide = guide_legend(
      override.aes = list(linewidth = 4),
      # 为lines1的图例设置白色背景
      key.theme = element_rect(fill = "white")
    )
  )+
  scale_linetype_manual(
    name = "lines2", # 自定义图例名称
    values = 1,
    guide = guide_legend(
      # 为lines2的图例设置黑色背景
      key.theme = element_rect(fill = "black")
    )
  )

关键说明 #

1. 全局图例键设为透明：将theme(legend.key = element_rect(fill = NA))设置为透明，确保单独图例的自定义背景样式能正常生效。
2. 单独配置每个图例的背景：
   • 针对lines1的color图例，在guide_legend()中通过key.theme = element_rect(fill = "white")指定白色背景。
   • 针对lines2的linetype图例，添加scale_linetype_manual()，在其guide_legend()中设置key.theme = element_rect(fill = "black")指定黑色背景，同时自定义图例名称并设置线型为实线。

内容的提问来源于stack exchange，提问作者thebenjaminp