解决ggplot中geom_text映射导致Y轴额外显示“x”标签的问题

问题原因 #

你代码里的geom_text参数传递错误：把数据框BAC22直接放在了第一个参数位置，而ggplot中geom_text的第一个参数是mapping，这导致ggplot错误将数据框识别为映射规则，进而生成了额外的x轴标签。

解决方法 #

• 修正参数传递逻辑：明确指定geom_text的data参数，不要把数据框放在mapping的位置；
• 过滤无效标签：你的label列大部分是NA，只保留非NA的行，避免绘制大量空文本；
• 适配坐标翻转：使用coord_flip()后，原x/y轴的位置逻辑会互换，需确保标签位置参数符合翻转后的坐标规则。

修正后的完整代码 #

# 过滤出包含有效标签的行，减少无效绘图操作
label_data <- subset(BAC22, !is.na(label))

Bacp <- ggplot(BAC22, aes(y = value, fill = group$treatment)) +
  geom_boxplot() + 
  facet_grid(group$zone~., scales = "free_x", switch = "both") +
  # 修正geom_text参数：明确指定data，mapping仅放映射规则
  geom_text(data = label_data, 
            mapping = aes(x = 0.3, y = 0.005, label = label),
            hjust = -0.1,
            vjust = -1,
            show.legend = FALSE) +
  scale_y_continuous(labels = scales::percent_format()) +
  theme(
    axis.text.y = element_blank(), 
    axis.ticks.y = element_blank(),
    strip.text.y.left = element_text(angle = 0),
    strip.text.y = element_text(size = 10, face = "bold"), 
    axis.text.x = element_text(size=10), 
    legend.position = "none",
    plot.title = element_textbox_simple(hjust = 0.5, size = 14, fill = "white", halign=0.5),
    plot.background = element_rect(color = "black", size = 0.5)) +
  coord_flip() + 
  ylab("")

额外提示 #

建议提前将group数据框中的treatment和zone列合并到BAC22中，避免在aes和facet_grid中直接使用group$xxx，这会让代码逻辑更清晰，也能避免潜在的数据源关联问题。

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