在ggplot2的geom_bin直方图中显示分箱上下限及添加ggplotly边界Tooltip

我来给你一步步拆解这个问题，用实际的代码例子演示，你可以直接复用这些逻辑到自己的数据上。核心思路是先拿到分箱的上下限数值（因为geom_bin默认会自动计算但不会直接暴露这些值），然后用这些值做文本标注和交互提示。

方法一：手动计算分箱（更可控） #

如果你想自己指定分箱的间隔或断点，这种方法最灵活。咱们用mtcars数据集的mpg列来举例：

步骤1：加载依赖包并处理数据 #

library(dplyr)
library(ggplot2)
library(plotly)

# 1. 设定分箱断点（这里按2为间隔划分MPG范围）
breaks <- seq(min(mtcars$mpg), max(mtcars$mpg), by = 2)

# 2. 处理数据：划分分箱、统计计数、提取上下限
df <- mtcars %>%
  # 把MPG分到指定分箱，include.lowest确保最小值被包含在第一个区间
  mutate(mpg_bin = cut(mpg, breaks = breaks, include.lowest = TRUE)) %>%
  group_by(mpg_bin) %>%
  summarise(count = n()) %>%
  mutate(
    # 从分箱标签里提取上下限（处理不同格式的区间符号，比如[10,12)或(12,14]）
    lower = ifelse(grepl("\\[", mpg_bin), 
                   as.numeric(sub("\\[(.*),.*\\)", "\\1", mpg_bin)),
                   as.numeric(sub("\\((.*),.*\\]", "\\1", mpg_bin))),
    upper = as.numeric(sub(".*,(.*)\\]", "\\1", mpg_bin)),
    # 生成用于标注和tooltip的友好文本
    bin_label = paste0(lower, " - ", upper),
    tooltip_text = paste0("计数: ", count, "\n下限: ", lower, "\n上限: ", upper)
  )

步骤2：绘制带上下限标注的直方图 #

p <- ggplot(df, aes(x = bin_label, y = count, text = tooltip_text)) +
  geom_col(fill = "steelblue", alpha = 0.7) +
  # 在柱子上方添加分箱上下限文本
  geom_text(aes(label = bin_label), vjust = -0.5, size = 3, color = "darkred") +
  labs(x = "MPG 分箱", y = "计数", title = "MPG 直方图（显示分箱上下限）") +
  # 旋转x轴标签避免重叠
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

步骤3：转成ggplotly并添加自定义Tooltip #

ggplotly(p, tooltip = "text") %>%
  layout(hoverlabel = list(bgcolor = "white", bordercolor = "black"))

方法二：从ggplot图层提取分箱数据 #

如果你已经用geom_bin画了基础直方图，不想手动统计，可以直接提取ggplot内部生成的分箱数据：

步骤1：绘制基础直方图并提取分箱数据 #

# 1. 画基础直方图（可以指定breaks，也可以用默认分箱）
p_base <- ggplot(mtcars, aes(x = mpg)) +
  geom_bin(breaks = breaks, fill = "steelblue", alpha = 0.7)

# 2. 提取图层中的分箱数据（包含xmin下限、xmax上限、count计数）
bin_data <- layer_data(p_base)

步骤2：添加上下限标注并转成ggplotly #

p <- p_base +
  # 在柱子上方添加上下限文本
  geom_text(data = bin_data, 
            aes(x = (xmin + xmax)/2, y = count, 
                label = paste0(round(xmin,2), " - ", round(xmax,2))),
            vjust = -0.5, size = 3, color = "darkred") +
  labs(title = "MPG 直方图（提取图层分箱数据）")

# 转成ggplotly，自定义tooltip显示内容
ggplotly(p, tooltip = c("count", "xmin", "xmax")) %>%
  layout(hoverlabel = list(bgcolor = "white"))

关键细节提示 #

• 如果用默认分箱（不指定breaks），layer_data()依然能拿到xmin和xmax，完全不影响后续操作。
• 可以自定义Tooltip的显示内容，比如用paste0组合成更友好的文本，避免显示原始变量名。
• 文本标注的位置可以通过vjust（垂直调整）和hjust（水平调整）来优化，避免和柱子重叠。

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