ggplot绘制箱线图时如何让X轴完整显示30到50区间的所有周数值

X轴全整数刻度实现 #

当前X轴默认按5为间隔生成刻度是因为未指定自定义刻度序列，只需在scale_x_continuous中补充breaks参数，指定生成30到50步长为1的整数序列即可。

标签拥挤优化 #

可从三个维度调整避免内容堆叠：

• 调整geom_text_repel的字号、重叠限制参数，减少标签堆叠概率
• 微调X轴文本的字号、对齐属性，避免轴标签互相挤压
• 导出时适当拓宽画布宽度，给X轴预留更多展示空间

修改后完整代码 #

library(ggplot2)
library(ggrepel)

p <- ggplot(data=pos1, aes(x=Week.Number, y=Total.Positives, group = Week.Number, label = Total.Positives)) + 
  geom_boxplot() 

p1 <- p + 
  # 指定X轴范围和所有整数刻度，范围左右各扩0.5避免两端箱线图被截断
  scale_x_continuous(limits = c(29.5,50.5), breaks = seq(30, 50, 1)) + 
  # 微调X轴文本样式，缩小字号优化对齐
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1, size = 9)) + 
  # 调整数值标签参数，缩小字号、放宽重叠限制
  geom_text_repel(aes(label = Total.Positives), size = 3, min.segment.length = 0.1, max.overlaps = 20) 

# 若需导出可指定画布尺寸进一步优化展示效果
# ggsave("周度阳性数箱线图.png", p1, width = 12, height = 8, dpi = 300)
print(p1)

可选优化方案 #

如果不需要展示所有箱线图的数值标签，可以仅标注异常值减少拥挤：将geom_text_repel的标签映射修改为aes(label = ifelse(Total.Positives > quantile(Total.Positives, 0.95), Total.Positives, ""))，仅展示前5%的高值标签即可。

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