如何在ggplot2中为图例色板添加边框且不修改绘图内容

原绘图代码生成的图形中，图例的白色色板与theme_minimal()的浅色背景颜色一致，辨识度较低。需求是不修改绘图内容的前提下，为图例色板添加边框，提升辨识度。

原绘图代码：

library(ggplot2)

df = expand.grid(
  x=seq(-1,1,length.out=100),
  y=seq(-1,1,length.out=100)
  )

df$in_circle = with(df, x^2 + y^2 < .5)

ggplot(df, aes(x=x,y=y,z=in_circle)) +
  geom_contour_filled(breaks  = c(-.5,.5,1.5)) +
  scale_fill_manual(
    values = c('white','orange')
  ) +
  theme_minimal()

通过修改theme()中的legend.key参数，为图例色块添加边框即可，无需改动绘图核心逻辑。修改后的完整代码如下：

library(ggplot2)

df = expand.grid(
  x=seq(-1,1,length.out=100),
  y=seq(-1,1,length.out=100)
  )

df$in_circle = with(df, x^2 + y^2 < .5)

ggplot(df, aes(x=x,y=y,z=in_circle)) +
  geom_contour_filled(breaks  = c(-.5,.5,1.5)) +
  scale_fill_manual(
    values = c('white','orange')
  ) +
  theme_minimal() +
  theme(
    # 为图例色块添加黑色边框
    legend.key = element_rect(color = "black", fill = NA)
  )

关键说明 #

• legend.key = element_rect(color = "black", fill = NA)：color设置边框颜色（可根据需求调整为其他颜色），fill = NA保持色块原有填充色不变，完全符合“不修改绘图内容”的要求。
• theme_minimal()默认的legend.key是无填充、无边框状态，添加该参数后会覆盖默认设置，给每个图例色块加上边框，白色色块的辨识度立刻提升。

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