ggplot2绘图如何强制展示所有预设分类的图例标记与标签

问题原因 #

1. 你生成的p值分组列是字符类型，ggplot默认只会展示数据中实际存在的分组
2. 你定义的低显著性分组名为Not sig，但scale_color_manual中写的是Not Sig.，拼写不匹配导致该分组无法被识别
3. 边框粗细参数stroke写在了aes映射外，不会同步到图例，就算强制显示三类，图例的边框样式也不会和你的设置对应

解决方案 #

核心修改点有三个：

• 将p值分组列转为带全部预设水平的因子，从数据层面保留所有要展示的分组
• 在scale_color_manual中添加drop = FALSE参数，强制ggplot不丢弃无数据的分组
• 将stroke参数放入aes映射中，让图例的边框样式和实际设置同步

完整可运行代码 #

# 加载依赖包
library(ggplot2)
library(dplyr)

# 构造数据
genes <- c("gene1", "gene2", "gene2")
tissue <- c("Blood", "Nerve", "Brain")
pval <- c(0.8, 0.6, 0.005)

df <- data.frame(col_x = tissue,
                 col_y = genes,
                 p = pval)

# 生成绘图用分类标签列，直接设为带全部预设水平的因子
df <- df %>%
  mutate(`Post. Prob.` = factor(
    case_when(
      p >= 0.5 ~ "P > 0.5",
      p >= 0.01 & p < 0.5 ~ "0.01 < P ≤ 0.5",
      p < 0.01 ~ "P < 0.01"
    ),
    # 按预设顺序指定全部三个水平，无数据也不会被过滤
    levels = c("P > 0.5", "0.01 < P ≤ 0.5", "P < 0.01")
  ))

# 绘图代码
ggplot(df)+
  geom_point(aes(x = col_x, y = col_y,
                 size = p,
                 color = `Post. Prob.`,
                 # 把stroke放进aes映射到分组，让图例同步显示边框粗细
                 stroke = case_when(
                   `Post. Prob.` == "P > 0.5" ~ 2,
                   `Post. Prob.` == "0.01 < P ≤ 0.5" ~ 2,
                   `Post. Prob.` == "P < 0.01" ~ 0.5
                 )),
             shape = 21, 
             fill = "#6565ff")+
  scale_color_manual(
    values = c("black", "gray", "white"),
    drop = FALSE, # 核心参数：强制保留所有因子水平的图例项
    name = "Post. Prob."
  )+
  # 隐藏独立的stroke图例，和颜色图例合并显示
  scale_stroke_continuous(guide = "none")+
  scale_size(range = c(5, 10))+
  xlab("组织")+
  ylab("基因")

运行上述代码即可同时展示三个预设分组的图例，每个图例项的边框颜色、粗细都和你的需求完全匹配。

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