ggplot2中多次使用aes的shape属性时如何分离图例

问题描述 #

我想要绘制一张包含多组数据的图，用相同的形状美学但不同颜色区分不同来源的数据点。目前图中数据点的颜色和形状都正确，但图例里所有形状条目都显示成同一种颜色。请问能不能拆分图例，让每个geom_point()调用生成独立的图例，或者修正图例使其正确对应形状与颜色？我的原始绘图已经用到了color映射，示例里没包含；优先考虑不依赖额外包的方案，也接受需要额外依赖的解决方案。

可复现代码：

library(dplyr)
library(ggplot2)

plot_dataset <- iris %>% 
  mutate(petal_width = if_else(Petal.Width >= 1, "Wide", "Narrow"),
         sepal_length = if_else(Sepal.Length >= 5, "Long", "Short"))

ggplot() + 
  geom_point(plot_dataset , mapping = aes(x = Petal.Width, y = Petal.Length, shape = petal_width), color = "red") + 
  geom_point(plot_dataset , mapping = aes(x = Sepal.Width, y = Sepal.Length, shape = sepal_length), color = "blue")

解决方案 #

方法1：重构数据结构（无额外依赖） #

ggplot2的图例逻辑更适配长格式数据，将两组数据合并为统一结构，新增分组变量同时映射颜色与形状，就能让图例自动匹配对应颜色和形状。

修改后的代码：

library(dplyr)
library(ggplot2)

plot_dataset <- iris %>% 
  mutate(petal_width = if_else(Petal.Width >= 1, "Wide", "Narrow"),
         sepal_length = if_else(Sepal.Length >= 5, "Long", "Short"))

# 转换为长格式数据
long_data <- bind_rows(
  # 花瓣数据组
  plot_dataset %>% 
    select(x = Petal.Width, y = Petal.Length, category = petal_width) %>% 
    mutate(data_source = "Petal"),
  # 花萼数据组
  plot_dataset %>% 
    select(x = Sepal.Width, y = Sepal.Length, category = sepal_length) %>% 
    mutate(data_source = "Sepal")
)

ggplot(long_data, aes(x = x, y = y, shape = category, color = data_source)) +
  geom_point() +
  # 自定义颜色匹配需求
  scale_color_manual(values = c("Petal" = "red", "Sepal" = "blue")) +
  # 调整图例标题（可选）
  labs(shape = "Category", color = "Data Source")

处理后，图例中每个形状会对应其所属数据组的颜色，还能通过labs()分别设置两个图例的标题。

方法2：用ggnewscale拆分独立图例（需额外依赖） #

若不想修改数据结构，可借助ggnewscale包为每个geom_point()创建独立的形状图例，每个图例的形状颜色与对应数据点一致。

代码示例：

library(dplyr)
library(ggplot2)
library(ggnewscale)

plot_dataset <- iris %>% 
  mutate(petal_width = if_else(Petal.Width >= 1, "Wide", "Narrow"),
         sepal_length = if_else(Sepal.Length >= 5, "Long", "Short"))

ggplot() + 
  # 第一组：花瓣数据，红色，形状图例
  geom_point(data = plot_dataset, 
             aes(x = Petal.Width, y = Petal.Length, shape = petal_width), 
             color = "red") +
  scale_shape_discrete(name = "Petal Width") +
  # 开启新的形状图例空间
  new_scale("shape") +
  # 第二组：花萼数据，蓝色，独立形状图例
  geom_point(data = plot_dataset, 
             aes(x = Sepal.Width, y = Sepal.Length, shape = sepal_length), 
             color = "blue") +
  scale_shape_discrete(name = "Sepal Length")

运行后会生成两个独立的形状图例，分别对应花瓣和花萼数据的分类，且形状颜色与数据点保持一致。

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