如何在R ggplot直方图组1柱上方绘制分箱比例值（过滤xlim外分箱）

要把比例值精准标注在未被xlim过滤的组1柱形上方，你需要结合ggplot_build的渲染数据匹配分箱，具体操作如下：

1. 保存直方图对象并提取渲染数据
   先把你的ggplot代码存为变量，再用ggplot_build拿到绘图时实际使用的分箱信息——这能帮你区分哪些分箱被coord_cartesian过滤掉了：

   # 保存直方图对象
   p <- ggplot(data, aes(x = nonfordist)) + 
     geom_histogram(aes(fill = presence), position = "identity", alpha = 0.5, bins = 30) +
     coord_cartesian(xlim = c(NA, 1750))
   
   # 获取构建后的绘图数据
   build_data <- ggplot_build(p)
   

2. 筛选有效分箱的比例值
   你的比例向量对应30个原始分箱，但部分分箱超出了xlim范围，得先筛选出显示范围内的分箱，同时清理掉NaN、Inf这类异常值：

   # 提取所有分箱的x中心位置
   bin_x_centers <- build_data$data[[1]]$x
   # 找出x <= 1750的有效分箱索引
   valid_bin_indices <- which(bin_x_centers <= 1750)
   # 把你的比例列表转为向量
   ratio_vector <- unlist(list(0.398927744608261, 0.35358629130967, 0.275296034083078, 
                            0.247361252979231, 0.260224274406332, 0.22107969151671, 0.252847380410023, 
                            0.230055658627087, 0.212244897959184, 0.242105263157895, 
                            0.235294117647059, 0.115384615384615, 0.2, 0.421052631578947, 
                            0.4375, 0.230769230769231, 0.222222222222222, 0.5, 0, 0, 
                            0, NaN, 1, 1, 0, 0, NaN, NaN, NaN, Inf))
   # 筛选有效分箱的比例，异常值替换为空字符串
   valid_ratios <- ratio_vector[valid_bin_indices]
   valid_ratios[is.na(valid_ratios) | is.infinite(valid_ratios)] <- ""
   

3. 添加比例文本到直方图
   从渲染数据里提取组1（presence=1）的柱形高度，结合分箱的x中心位置，用geom_text把比例值标在柱形上方：

   # 提取组1的柱形数据
   group1_bars <- subset(build_data$data[[1]], presence == 1)
   # 给直方图添加标注
   p + geom_text(
     data = group1_bars,
     aes(x = x, y = y, label = valid_ratios),
     vjust = -0.3,  # 控制文本与柱顶的距离，可根据实际调整
     size = 3,      # 调整文本大小
     color = "black" # 可选：设置文本颜色，和组1填充色区分开
   )
   

注意事项 #

• coord_cartesian只是视觉裁剪，不会删除原始数据，所以必须用ggplot_build的渲染数据匹配显示的分箱，否则标注会错位。
• 处理异常值是为了避免图上出现NaN、Inf这类无意义的文本。
• 如果文本和柱形重叠，可调整vjust参数（负数向上移，正数向下移），或者调整size参数改变文本大小。

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