ggplot2使用geom_text和facet_grid时箱线图显示多余字母如何解决

问题原因 #

你遇到的标签重复显示问题，核心原因是标签数据集df.labels没有包含分面变量Time，ggplot无法将标签和对应分面做匹配，因此所有标签会在每个分面都渲染一遍。scales = "free_x"仅会隐藏坐标轴上不存在的分类，不会自动过滤其他图层的输入数据。

解决方案 #

给标签表补充对应Time字段，让ggplot可以自动匹配分面渲染标签：

# 给标签表补充分面维度信息：H开头的Type对应Old时间，R开头对应New时间
df.labels$Time <- ifelse(grepl("^H\\.", df.labels$Type), "Old", "New")

# 重新绘制分面箱线图
ggplot(df, aes(x=Type, y=Freq)) + 
  geom_boxplot(fill="lightgrey", color = "black") +
  facet_grid(~Time, scales = "free_x") +
  geom_text(data=df.labels, aes(label = Letter, x = Type, y = 0.88)) 

运行上述代码后，每个分面就只会显示对应分组的字母标记，不会再出现多余的空标签。

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