ggplot2火山图数值堆积在顶部问题求助

问题描述 #

运行以下ggplot代码绘制火山图时，部分数值堆积在图表顶部，无法实现类似示例图的合理分布效果：

v <- ggplot(df, aes(x = log2i, y = -log10(adjpi))
) +
  geom_point() + ylim(0, 12)
v 

问题原因 #

堆积问题并非-log10转换导致，而是ylim(0,12)的硬截断行为：使用ylim()时，ggplot会强制将超出范围的点固定在边界位置（此处为y=12），导致大量超界点堆积在一起。

解决方案 #

方案1：坐标缩放替代硬截断 #

用coord_cartesian(ylim = c(0,12))替换ylim(0,12)，该函数仅调整图表显示范围，不会修改原始数据点位置，超界点会被隐藏而非堆积：

v <- ggplot(df, aes(x = log2i, y = -log10(adjpi))) +
  geom_point() +
  coord_cartesian(ylim = c(0, 12))
v

方案2：移除y轴限制，自动适配数据 #

若无需固定y轴范围，直接删除ylim(0,12)，ggplot会根据数据最大值自动调整y轴，所有点将正常分布：

v <- ggplot(df, aes(x = log2i, y = -log10(adjpi))) +
  geom_point()
v

额外优化（可选） #

若要像示例图那样区分显著差异点，可添加颜色映射标记：

# 为数据添加分组列
df$group <- case_when(
  df$log2i > 1 & df$adjpi < 0.05 ~ "Up",
  df$log2i < -1 & df$adjpi < 0.05 ~ "Down",
  TRUE ~ "NS"
)

# 绘制带颜色区分的火山图
v <- ggplot(df, aes(x = log2i, y = -log10(adjpi), color = group)) +
  geom_point(alpha = 0.7) +
  coord_cartesian(ylim = c(0, 12)) + # 可选的显示范围控制
  scale_color_manual(values = c("Down" = "blue", "Up" = "red", "NS" = "gray")) +
  theme_bw()
v

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