为何数据框仅含单一值，绘制直方图时分箱却跨多个值？

当数据列中所有值完全相同时，基础R和ggplot2的默认直方图分箱逻辑会因数据极差为0，自动生成跨度较大的分箱，无法得到预期的单根窄柱子。以下是针对性的解决方案：

基础R实现 #

手动指定分箱断点，让断点精准包裹唯一值：

df = data.frame(behavior = rep("proximity", 20),
                value = rep(-0.04280145, 20))

# 提取唯一值
unique_val <- unique(df$value)
# 设置左右极窄的断点，确保分箱仅包含该值
hist(df$value, 
     breaks = c(unique_val - 1e-6, unique_val + 1e-6),
     main = "直方图：所有值相同的情况",
     xlab = "value")

这样就能生成对应计数20的窄柱子，x轴范围也会贴合唯一值。

ggplot2实现 #

同样需要手动控制分箱参数，有两种可行方式：

方式1：指定断点 #

library(ggplot2)
unique_val <- unique(df$value)

ggplot(df) + 
  geom_histogram(aes(x = value), 
                 breaks = c(unique_val - 1e-6, unique_val + 1e-6),
                 fill = "steelblue",
                 color = "black") +
  labs(title = "直方图：所有值相同的情况", x = "value")

方式2：设置分箱宽度与中心 #

通过binwidth设置极窄的分箱宽度，并用center将分箱中心对准唯一值：

ggplot(df) + 
  geom_histogram(aes(x = value), 
                 binwidth = 1e-6,
                 center = unique_val,
                 fill = "steelblue",
                 color = "black") +
  labs(title = "直方图：所有值相同的情况", x = "value")

原因说明 #

当所有数据点为同一值时，数据的极差（最大值-最小值）为0，基础R和ggplot2的自动分箱算法无法基于极差生成合理分箱，会默认创建一个覆盖该值的宽区间。手动指定断点或分箱参数后，就能强制生成仅包含该唯一值的窄分箱，得到预期的可视化效果。

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