scale_shape_manual与scale_color/fill_manual行为差异及解决方法

为什么scale_shape_manual和scale_color_manual行为不同？ #

ggplot2对不同美学属性的NA处理逻辑不一样：

• scale_color_manual遇到NA时，只是不将NA组纳入图例，但对应的点仍会用默认颜色（或你未指定的默认样式）正常绘制。
• scale_shape_manual则会把NA判定为“无效形状参数”，直接移除对应行的数据，导致非setosa的点完全不显示，同时弹出“移除100行含缺失值”的警告。这是因为形状是离散几何属性，NA意味着没有可渲染的形状，所以这些点会被过滤掉。

实现目标的两种可行方法 #

方法一：用统一类别替代NA，隐藏非目标组图例 #

先给数据集新增一列，把非setosa标记为统一的“Other”类别（而非NA），再通过scale的breaks参数只保留setosa的图例项：

library(ggplot2)

# 新增Highlight列，非setosa设为"Other"
iris$Highlight <- ifelse(iris$Species == "setosa", "setosa", "Other")

# 绘图并控制图例
ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Highlight, shape = Highlight)) +
  geom_point(size = 3) +
  # 给setosa和Other分别指定颜色、形状
  scale_color_manual(values = c("setosa" = "red", "Other" = "gray50"), breaks = "setosa") +
  scale_shape_manual(values = c("setosa" = 16, "Other" = 1), breaks = "setosa") +
  theme_minimal()

breaks = "setosa"会强制图例只显示setosa项，非setosa的点正常绘制但不进图例。

方法二：分两次绘制，分离高亮与非高亮组 #

直接分两次调用geom_point，先画非setosa的点（不绑定图例映射），再画setosa的点（绑定映射生成图例）：

library(ggplot2)

ggplot() +
  # 绘制非setosa的点，不设置美学映射，直接指定样式
  geom_point(data = subset(iris, Species != "setosa"),
             aes(x = Sepal.Length, y = Sepal.Width),
             color = "gray50", shape = 1, size = 3) +
  # 绘制setosa的点，绑定颜色和形状映射，自动生成图例
  geom_point(data = subset(iris, Species == "setosa"),
             aes(x = Sepal.Length, y = Sepal.Width, color = Species, shape = Species),
             size = 3) +
  scale_color_manual(values = c("setosa" = "red")) +
  scale_shape_manual(values = c("setosa" = 16)) +
  theme_minimal()

这种方法无需新增列，逻辑更直观，完全规避了NA带来的过滤问题，图例只会显示setosa。

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