在ggplot中不使用aes()为多因子水平添加均值点自定义图例

ggplot的图例系统本质上依赖于aes()中的映射关系，完全不使用aes()无法生成图例，但可以通过虚拟的固定值映射绕开数据变量绑定，同时手动指定颜色和图例标签，具体步骤如下：

核心思路 #

给每个均值点系列分配一个固定字符串作为colour（或shape）的映射值，再用scale_colour_manual()手动绑定对应颜色和图例信息，既不需要映射数据框中的实际变量，又能生成目标图例。

示例代码 #

假设你的小提琴图基于物种因子species，密度变量为density，代码框架如下：

library(ggplot2)

# 1. 绘制基础小提琴图（根据实际数据调整数据源和映射）
p <- ggplot(densityy, aes(x = species, y = density)) +
  geom_violin(fill = "lightgray")

# 2. 添加所有站点均值点：用固定字符串作为colour的虚拟映射
all_site_mean <- aggregate(density ~ species, densityy, mean)
p <- p + geom_point(
  data = all_site_mean,
  aes(x = species, y = density, colour = "所有站点均值"), # 虚拟映射标识
  size = 3, shape = 16
)

# 3. 添加BYLO站点均值点：同样使用虚拟映射
bylo_mean <- aggregate(density ~ species, subset(bylot, site == "BYLO"), mean)
p <- p + geom_point(
  data = bylo_mean,
  aes(x = species, y = density, colour = "BYLO站点均值"), # 虚拟映射标识
  size = 3, shape = 16
)

# 4. 手动设置颜色和图例参数
p <- p + scale_colour_manual(
  name = "均值类型", # 图例标题
  values = c(
    "所有站点均值" = "orange",
    "BYLO站点均值" = "blue"
  )
)

print(p)

关键说明 #

• 这里的colour = "所有站点均值"是固定字符串的虚拟映射，并非绑定数据框中的变量，满足你"不使用aes()映射数据变量"的需求。
• 如果直接写colour = "orange"而不放在aes()里，ggplot会将其视为固定属性，不会生成对应的图例项；只有放在aes()中的映射值才会被纳入图例系统。
• 也可以用shape替代colour生成图例，只需把colour换成shape，再用scale_shape_manual()设置对应形状即可。

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