向覆盖在geom_boxplot上的geom_point添加图例

在 geom_boxplot 上添加 geom_point 并在图例中进行标识，可以通过将 geom_point 函数嵌套在 ggplot 函数中来实现。下面是一个示例代码：

library(ggplot2)

# 创建一个示例数据集
df <- data.frame(
  group = rep(c("A", "B", "C"), each = 10),
  value = c(rnorm(10), rnorm(10, mean = 2), rnorm(10, mean = 3))
)

# 绘制 geom_boxplot 和 geom_point
plot <- ggplot(df, aes(x = group, y = value, fill = group)) +
  geom_boxplot(outlier.shape = NA) +
  geom_point(position = position_jitter(width = 0.2), size = 3, color = "black") +
  scale_fill_manual(values = c("red", "blue", "green")) +
  labs(title = "Boxplot with Points", x = "Group", y = "Value") +
  theme_minimal()

# 添加图例
plot + theme(legend.position = "bottom")

上述代码中，首先创建了一个示例数据集 df，其中包含了一个分组变量 group 和一个连续变量 value。然后使用 ggplot 函数定义了一个基本的绘图对象，并通过 aes 函数设置了 x 和 y 轴的映射关系，以及通过 fill 参数设置了填充色。接着使用 geom_boxplot 函数绘制了箱线图，并通过 outlier.shape 参数将离群值的形状设为不可见。然后使用 geom_point 函数在箱线图上添加了点，并通过 position_jitter 参数设置了点的位置扰动范围，通过 size 和 color 参数设置了点的大小和颜色。使用 scale_fill_manual 函数设置了填充色的手动取值范围，并通过 labs 函数设置了图表的标题、x 轴和 y 轴标签，以及通过 theme_minimal 函数设置了图表的风格。最后使用 theme 函数将图例位置设置在底部，完成了绘图和图例的添加。