如何在ggplot2中将形状图例单独设置为黑色

要只修改形状图例为黑色、不改变主图点样式，核心是用guides()函数结合override.aes参数，单独覆盖图例的美学属性，不会影响主图元素。

基础修正方案 #

假设你的原绘图代码类似以下结构（用shape区分分组，color区分细胞类型）：

library(ggplot2)
# 模拟UMAP数据
umap_df <- data.frame(
  UMAP1 = rnorm(1000),
  UMAP2 = rnorm(1000),
  cell_type = sample(c("A", "B", "C"), 1000, replace = TRUE),
  group = sample(c("Control", "Treatment"), 1000, replace = TRUE)
)

# 原绘图代码
p <- ggplot(umap_df, aes(x = UMAP1, y = UMAP2, color = cell_type, shape = group)) +
  geom_point(size = 2, alpha = 0.7) +
  theme_bw()

只需在代码末尾添加guides()配置，单独指定形状图例的颜色：

# 修正后的代码
p <- p +
  guides(shape = guide_legend(override.aes = list(color = "black", fill = "black")))
print(p)

分情况调整 #

• 若使用的是纯线条类形状（如shape=1-20）：仅需设置color = "black"即可让图例形状变为黑色实心/实心线条；
• 若使用的是带填充的形状（如shape=21-25）：需要同时设置color = "black"（边框色）和fill = "black"（填充色），才能让图例显示为纯黑色实心。

替代方案（手动指定形状样式） #

如果需要更精细的控制，也可以通过scale_shape_manual定义形状，并在其中绑定图例的样式：

p <- ggplot(umap_df, aes(x = UMAP1, y = UMAP2, color = cell_type, shape = group)) +
  geom_point(size = 2, alpha = 0.7) +
  theme_bw() +
  scale_shape_manual(values = c(16, 17), # 主图使用的形状
                     guide = guide_legend(override.aes = list(color = "black")))

内容的提问来源于stack exchange，提问作者Emilio Mármol Sánchez