如何修改ggpol::geom_parliament的图例形状为圆形（shape 21）

问题解决代码 #

library(ggpol)
library(ggplot2)

df <- data.frame(Type = c("R"), value = c(100))
ggplot(df) +
  geom_parliament(aes(seats = value, fill = Type)) +
  guides(fill = guide_legend(
    override.aes = list(
      shape = 21,
      size = 6,
      color = "black",
      fill = "#F8766D"
    )
  ))

关键说明 #

geom_parliament的默认图例符号是自定义绘制的矩形，常规guides设置无法直接修改其形状，必须通过override.aes参数强制覆盖图例的美学属性：

• shape = 21 指定带填充和边框的圆形（若需空心圆可将fill设为NA）
• size 调整圆形图例的大小
• color 设置圆形的边框颜色
• fill 匹配绘图中的填充色

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