如何为每组ggplot2箱线图设置不同的异常点形状？

你之前的两种方法失效的原因：

• 第一种方法：geom_boxplot的outlier.shape参数仅接受单一形状值，不支持传入向量，所以你输入的c(0,1,2,3,4)不会按分组生效，只会使用第一个值或直接报错。
• 第二种方法：将shape映射到cut后，geom_boxplot不会自动把这个映射应用到异常点，异常点作为箱线图的内置元素，默认不继承shape的分组映射。

正确的做法是手动提取异常点数据，用geom_point单独绘制异常点，具体步骤如下：

1. 提取异常点数据 #

通过boxplot.stats函数识别每组的异常值，结合dplyr处理数据集：

library(ggplot2)
library(dplyr)

# 标记数据中的异常点
diamonds_with_outliers <- diamonds %>%
  group_by(cut) %>%
  mutate(is_outlier = price %in% boxplot.stats(price)$out) %>%
  ungroup()

2. 绘制带自定义异常点的箱线图 #

先绘制隐藏默认异常点的箱线图，再用geom_point绘制标记好的异常点，并按cut分组设置形状：

ggplot(diamonds_with_outliers, aes(x = cut, y = price)) +
  # 隐藏箱线图默认的异常点
  geom_boxplot(outlier.shape = NA) +
  # 绘制自定义异常点，按cut分组映射形状
  geom_point(
    data = filter(diamonds_with_outliers, is_outlier),
    aes(shape = cut),
    size = 2  # 调整异常点大小，方便观察
  ) +
  # 手动指定每组对应的形状（0=正方形，1=圆形，2=上十字，3=加号，4=菱形）
  scale_shape_manual(values = c(0, 1, 2, 3, 4))

这样就能实现每组箱线图的异常点用不同形状区分的效果。

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