R ggplot2分面绘图如何基于y轴分类创建全局统一自定义图例

核心实现逻辑 #

当前代码没有生成图例的核心原因是没有将Posture字段映射到点的区分美学属性（颜色/形状），facet_wrap默认即生成全分面共享的全局图例，只需要完成两步配置即可：

• 明确Posture数值与行为类别的对应规则
• 将Posture映射到点的颜色/形状属性触发生成图例，同时手动配置图例的显示规则

完整可运行代码 #

写法1：预处理时配置因子映射（y轴直接显示行为名称） #

如果希望y轴刻度直接显示行为类别名称，在数据预处理环节将Posture转为有序因子即可：

library(tidyverse)
library(lubridate)

graph_pre <- graph_pre %>% 
  mutate(
    day = day(Date),
    # 配置数值与行为的对应关系，levels按数值从小到大排列，labels对应行为名称
    Posture = factor(
      Posture,
      levels = c(1, 2, 3, 4),
      labels = c("Sitting", "Cycling", "Stepping", "Standing")
    )
  )

ggplot(graph_pre, aes(x = Time, y = Posture))+
  # 同时用颜色、形状区分行为提升可读性，映射后自动触发生成图例
  geom_point(aes(color = Posture, shape = Posture), size = 2) +
  # 统一配置图例名称，两个标度名称一致时会自动合并为单个图例
  scale_color_brewer(palette = "Set2", name = "行为类别") +
  scale_shape(name = "行为类别") +
  facet_wrap(~day, scales = "free_x") +
  # 可选：调整图例位置到底部，适配分面图排版
  theme(legend.position = "bottom")

写法2：仅图例显示类别（y轴保留1-4数值刻度） #

如果希望y轴仍然保留原始1-4的数值刻度，仅在图例中显示行为名称，不需要修改原始Posture字段类型，直接在标度中手动配置映射规则即可：

graph_pre <-  mutate(graph_pre, day = lubridate::day(Date)) 

ggplot(graph_pre, aes(x = Time, y = Posture))+
  # 仅在颜色/形状映射时将Posture转为因子，不影响y轴的数值刻度
  geom_point(aes(color = as.factor(Posture), shape = as.factor(Posture)), size = 2)+
  # 手动指定数值与行为标签的对应关系
  scale_color_manual(
    values = c("#1B9E77", "#D95F02", "#7570B3", "#E7298A"),
    breaks = c("1", "2", "3", "4"),
    labels = c("Sitting", "Cycling", "Stepping", "Standing"),
    name = "行为类别"
  ) +
  scale_shape_manual(
    breaks = c("1", "2", "3", "4"),
    labels = c("Sitting", "Cycling", "Stepping", "Standing"),
    name = "行为类别"
  ) +
  facet_wrap(~day, scales = "free_x") +
  theme(legend.position = "bottom")

注意事项 #

• facet_wrap默认生成全局共享图例，只要不手动设置分面独立标度，不需要额外配置参数即可实现全分面统一图例。如果出现每个分面单独带图例的情况，检查是否误加了分面独立标度的参数。
• 多个美学映射（颜色、形状）的图例只要保持名称、分组规则完全一致，ggplot2会自动合并为单个图例，不会出现重复图例。
• 可以根据需求修改scale_color_manual中的values参数自定义配色，修改name参数自定义图例标题。

内容的提问来源于stack exchange，提问作者Richard Michaud Langis