ggplot2 geom_point填充颜色失效及图例格式调整问题求助

核心问题分析 #

1. 填充色不生效：原代码中geom_point的fill未在aes()内映射，导致scale_fill_manual()无法作用于点的填充色。
2. 图例分隔符与重复问题：使用interaction()生成的标签默认以“.”分隔，直接用scale_fill_discrete()修改标签会破坏原有图例关联，导致重复或丢失。

解决方案一：提前生成自定义分组列（推荐） #

直接在数据中创建用“;”分隔的分组列，从根源解决标签格式问题，同时简化图例关联：

步骤1：处理数据 #

# 生成带分号的分组列，替换默认的interaction分隔符
RQ.Di <- RQ.Di %>%
  mutate(group_condition = paste(group, condition, sep = ";"))

步骤2：修改绘图代码 #

ggplot(RQ.Di, aes(x = rounded_time, y = avg_RQ, group = group_condition)) +
  geom_line(color = "black") +
  # 将fill和shape统一映射到自定义分组列，color固定为黑色作为边框
  geom_point(aes(fill = group_condition, shape = group_condition),
             size = 2.5, color = "black", stroke = 1) +
  # 按分组对应设置形状和填充色
  scale_shape_manual(values = c(24, 24, 22, 22, 23, 23)) +
  scale_fill_manual(values = c("grey", "white", "grey", "white", "grey", "white")) + # 按你的分组顺序对应颜色
  labs(x = "Time", y = "RQ") +
  scale_x_datetime(date_breaks = "1 hour", date_labels = "%H:%M", minor_breaks = NULL) +
  theme(
    text = element_text(family = "Palatino Linotype"),
    axis.text = element_text(size = 12, color = "black"),
    axis.title = element_text(size = 12, color = "black", face = "bold"),
    legend.text = element_text(size = 12, color = "black", face = "bold"),
    panel.border = element_rect(color = "black", fill = NA, size = 1),
    legend.key = element_rect(fill = "transparent")
  )

优势 #

• 分组标签格式完全可控，无需额外处理interaction()的默认分隔符
• fill和shape映射到同一变量，自动合并为单个图例，避免重复

解决方案二：原地修改interaction标签并合并图例 #

若不想修改原始数据，可通过标签替换和图例合并实现需求：

ggplot(RQ.Di, aes(x = rounded_time, y = avg_RQ,
                  group = interaction(group, condition),
                  fill = interaction(group, condition),
                  shape = interaction(group, condition))) +
  geom_line(color = "black") +
  geom_point(size = 2.5, color = "black", stroke = 1) +
  scale_shape_manual(values = c(24, 24, 22, 22, 23, 23)) +
  scale_fill_manual(values = c("grey", "white", "grey", "white", "grey", "white")) +
  # 将图例标签中的“.”替换为“;”
  guides(
    fill = guide_legend(label = function(x) gsub("\\.", ";", x)),
    # 合并shape图例到fill，避免重复
    shape = guide_legend(label = function(x) gsub("\\.", ";", x), override.aes = list(fill = c("grey", "white", "grey", "white", "grey", "white")))
  ) +
  # 隐藏多余图例，只保留一个
  guides(shape = "none") +
  labs(x = "Time", y = "RQ") +
  scale_x_datetime(date_breaks = "1 hour", date_labels = "%H:%M", minor_breaks = NULL) +
  theme(
    text = element_text(family = "Palatino Linotype"),
    axis.text = element_text(size = 12, color = "black"),
    axis.title = element_text(size = 12, color = "black", face = "bold"),
    legend.text = element_text(size = 12, color = "black", face = "bold"),
    panel.border = element_rect(color = "black", fill = NA, size = 1),
    legend.key = element_rect(fill = "transparent")
  )

关键注意事项 #

• 填充色生效的核心是必须将fill放入aes()中映射，仅用scale_fill_manual()无法改变未映射的属性
• 图例重复的本质是多个美学属性（fill、shape）映射到不同变量，统一映射到同一变量是最简洁的解决方式

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