如何移除geom_col与geom_point填充图例中的多余黑点

填充图例出现黑点的原因是geom_point的颜色映射导致图例元素被合并，填充图例默认继承了点的符号样式。以下是两种可行的解决方法：

方案1：修改填充比例尺的图例设置 #

在scale_fill_grey()中通过guide_legend的override.aes参数覆盖图例的美学属性，将内部颜色设为NA，消除黑点：

library(tidyverse)

tibble(x = 1:10) |> 
  crossing(p = 1/2:3) |> 
  ggplot(aes(x, x^p, fill = factor(p))) +
  geom_col(position = position_dodge()) +
  geom_point(aes(color = 'foo'), position = position_dodge(1)) +
  scale_fill_grey(guide = guide_legend(override.aes = list(color = NA)))

方案2：单独设置图例的美学覆盖 #

使用guides()函数单独对填充图例进行调整，效果与方案1一致：

library(tidyverse)

tibble(x = 1:10) |> 
  crossing(p = 1/2:3) |> 
  ggplot(aes(x, x^p, fill = factor(p))) +
  geom_col(position = position_dodge()) +
  geom_point(aes(color = 'foo'), position = position_dodge(1)) +
  scale_fill_grey() +
  guides(fill = guide_legend(override.aes = list(color = NA)))

两种方法都是通过override.aes强制填充图例仅显示灰色填充方块，移除内部的黑点，同时不会影响红色'foo'点的颜色图例显示。

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