ggplot2分面图标注混乱求助：为不同cut钻石添加对应字母标注

使用ggplot2绘制钻石数据分面图时，需要按cut类型分组添加标注：

• Fair和Good类型标注"A"
• Very good和Premium类型标注"B"
• Ideal类型标注"C"
  但当前标注出现混乱重叠的情况。

原代码 #

加载包 #

library(dplyr; ggplot2)

标注文本数据框 #

ann_text <- expand.grid(
  x  = c(1.5, 3.5, 5),
  y     = 6000,
  label = c("A", "B", "C"),
  clarity = c("I1", "SI2", "SI1", "VS2", "VS1", "VVS2", "VVS1", "IF"),
  cut = LETTERS[4:10])
) 

平均价格数据框 #

price.avg <- diamonds %>%
  group_by(cut, color) %>%
  summarise(price = mean(price))

主绘图代码 #

diamonds %>%
ggplot() +
geom_bar(aes(x = cut, fill = clarity)) +
facet_wrap(~ color) +
ylab("Count") +
  xlab("Cut") + 
  geom_point(data = price.avg, aes(x = cut, y = price, col = "")) +
    scale_y_continuous(sec.axis = sec_axis(~. * 1, name = "price")) +
    geom_vline(xintercept=c(2, 4) + .5, lwd=.5, colour="black") +
  geom_text(data = ann_text, aes(x = x, y = y, label = label))  +
  scale_color_manual(name = "", label = "Average price", values = "black") 

问题原因 #

原标注数据框ann_text通过expand_grid生成了大量冗余行：每个clarity和无关的cut值都重复了标注内容，导致每个分面中同一位置重复绘制多次相同标注，最终出现重叠模糊的效果。此外，固定y值6000可能在部分分面中超出计数范围，导致标注位置不合理。

解决思路与修正代码 #

1. 修正加载包语法 #

原代码中library(dplyr; ggplot2)语法错误，需分开加载：

library(dplyr)
library(ggplot2)

2. 简化标注数据框 #

只保留分面变量color和必要的标注位置、内容，避免冗余：

ann_text <- expand.grid(
  x = c(1.5, 3.5, 5),  # 对应三组cut的中心位置
  y = Inf,  # 自动对齐到y轴顶部，适配不同分面的计数范围
  label = c("A", "B", "C"),
  color = unique(diamonds$color)  # 匹配分面变量，确保每个分面只绘制一次标注
)

3. 调整主绘图代码的标注位置 #

通过vjust参数调整标注与y轴顶部的距离，避免超出绘图区：

diamonds %>%
  ggplot() +
  geom_bar(aes(x = cut, fill = clarity)) +
  facet_wrap(~ color) +
  ylab("Count") +
  xlab("Cut") + 
  geom_point(data = price.avg, aes(x = cut, y = price, col = "")) +
  scale_y_continuous(sec.axis = sec_axis(~. * 1, name = "price")) +
  geom_vline(xintercept = c(2, 4) + .5, lwd = .5, colour = "black") +
  geom_text(data = ann_text, aes(x = x, y = y, label = label), 
            vjust = 1.2) +  # 向下偏移，避免标注超出顶部
  scale_color_manual(name = "", label = "Average price", values = "black")

补充说明 #

• cut的水平顺序默认是Fair(1)、Good(2)、Very Good(3)、Premium(4)、Ideal(5)，所以分组中心位置计算准确；
• 使用y = Inf配合vjust可以让标注自动适配每个分面的最高计数位置，避免固定y值带来的位置不合理问题；
• 标注数据框只保留分面变量color，确保每个分面中每个标注只绘制一次，彻底解决重叠问题。

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