如何在ggplot2的log10转换y轴直方图中显示计数为1的柱形？

问题根源 #

虽然log10(1)=0，但直方图的柱形是从y=0开始绘制的，log10(0)会产生负无穷值，这些无效值被ggplot自动过滤，导致计数为1的柱形消失，同时触发警告。na.value=1参数无效，因为问题不在数据本身，而是柱形底部的0引发的转换错误。

可行解决方案 #

方法1：手动统计计数并添加微小偏移 #

先统计每个value的出现次数，给计数加一个极小的数值（比如1e-6），再用geom_col绘制，避开log(0)的问题：

library(dplyr)
library(ggplot2)

# 统计计数并添加偏移
count_df <- example_df %>%
  count(value, name = "count") %>%
  mutate(count = count + 1e-6)

ggplot(count_df, aes(x = value, y = count)) +
  geom_col() +
  scale_y_log10()

方法2：用coord_trans做坐标转换 #

coord_trans是在绘图完成后对坐标做转换，而非先转换数据，这样能保留所有柱形：

ggplot(example_df, aes(x = value)) +
  geom_histogram() +
  coord_trans(y = "log10")

注意：这种方法的y轴刻度可能是不规则的非整数，需要的话可以手动调整刻度标签。

方法3：自定义log转换并设置y轴下限 #

用scale_y_continuous指定log10转换，同时把y轴下限设为略大于0的数值，避免触发log(0)：

ggplot(example_df, aes(x = value)) +
  geom_histogram() +
  scale_y_continuous(trans = "log10", limits = c(0.5, NA))

这里设下限为0.5，既能保留计数1的柱形，又不会出现无效转换值。

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