ggplot2柱状图：如何可视化接近0的极小值并避免标签堆叠？

一、处理极小值不可见的问题 #

针对极小频率值（如0.0000264）被高频柱子掩盖的情况，推荐以下几种实用方案：

1. 对数转换Y轴

对数缩放能放大极小值的差异，让低频率值清晰可见，同时保留高频值的分布。若数据存在0值，可添加微小偏移量避免log(0)错误：

library(ggplot2)
library(scales)

ggplot(your_data, aes(x = allele, y = frequency)) +
  geom_col(fill = "#2c3e50") +
  # 自定义对数轴刻度与标签，适配等位基因频率范围
  scale_y_log10(breaks = c(1e-6, 1e-5, 1e-4, 1e-3, 0.01, 0.1, 1),
                labels = label_number()) +
  # 添加对数刻度辅助线，提升可读性
  annotation_logticks(sides = "l") +
  labs(y = "等位基因频率（log10 缩放）")

2. 单独标记极小值

若不想用对数轴，可将极小值从柱状图中提取，用散点+连线突出显示：

library(ggplot2)
library(dplyr)

# 给数据打标签，区分高频/低频（阈值可自定义）
your_data <- your_data %>%
  mutate(is_low = frequency < 0.001)

ggplot(your_data, aes(x = allele, y = frequency)) +
  geom_col(fill = "#3498db", alpha = 0.8) +
  # 极小值用红色散点+虚线连线强调
  geom_point(data = filter(your_data, is_low), color = "#e74c3c", size = 2.5) +
  geom_segment(data = filter(your_data, is_low),
               aes(xend = allele, yend = 0.001), color = "#e74c3c", linetype = "dashed") +
  labs(y = "等位基因频率")

3. 分面展示高频/低频

按频率阈值拆分数据，分两个子图绘制，彻底避免极小值被掩盖：

ggplot(your_data, aes(x = allele, y = frequency)) +
  geom_col(fill = "#9b59b6") +
  facet_wrap(~is_low, scales = "free_y", ncol = 1) +
  theme(strip.text = element_text(size = 10, face = "bold"))

二、解决标签堆叠问题 #

标签重叠是柱状图常见痛点，以下两种方法快速解决：

1. 使用ggrepel自动避让标签

ggrepel包的geom_text_repel()会自动调整标签位置，完全避免堆叠：

library(ggrepel)

ggplot(your_data, aes(x = allele, y = frequency)) +
  geom_col(fill = "#27ae60") +
  scale_y_log10() +
  # 自动避让的标签，可自定义样式
  geom_text_repel(aes(label = label_scientific()(frequency)),
                  size = 3, color = "#2c3e50", box.padding = 0.5)

2. 调整X轴标签角度

若X轴是等位基因名称等长文本，倾斜标签能减少横向堆叠：

ggplot(your_data, aes(x = allele, y = frequency)) +
  geom_col(fill = "#f39c12") +
  geom_text(aes(label = round(frequency, 6)), vjust = -0.3, size = 3) +
  # 倾斜X轴标签，hjust=1保证标签靠右对齐
  theme(axis.text.x = element_text(angle = 45, hjust = 1, size = 8),
        plot.margin = margin(10, 30, 10, 10)) # 调整右边距避免标签被截断

整合方案示例 #

结合对数轴+自动避让标签的完整代码：

library(ggplot2)
library(ggrepel)
library(scales)

ggplot(your_data, aes(x = allele, y = frequency)) +
  geom_col(fill = "#3498db") +
  scale_y_log10(breaks = c(1e-6, 1e-5, 1e-4, 1e-3, 0.01, 0.1, 1),
                labels = label_number()) +
  annotation_logticks(sides = "l") +
  geom_text_repel(aes(label = label_scientific()(frequency)),
                  size = 3, color = "#2c3e50") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        plot.title = element_text(hjust = 0.5, size = 14, face = "bold")) +
  labs(title = "等位基因频率分布",
       x = "等位基因", y = "频率（log10 缩放）")

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