如何在 R 中制作可变宽度直方图，标签与 bin 边缘对齐？答案

【问题标题】：How to make variable width histogram in R with labels aligned to bin edges?如何在 R 中制作可变宽度直方图，标签与 bin 边缘对齐？
【发布时间】：2016-06-11 17:55:42
【问题描述】：

我正在使用ggplot2，默认情况下会创建具有固定 bin 宽度的直方图，并且其 bin 标签绘制在每个 bin 的中心。

我想要的是一个可变宽度直方图，其 bin 标签代表每个 bin 的端点，如下图：

为了生成这个示例图，我手动输入了 bin 参数并移动了 bin 以使其与端点对齐：

income=data.frame(lx=c(0,10,25,50,100),rx=c(10,25,50,100,150),y=c(20,28,27,18,7))
income$width = income$rx-income$lx


ggplot(income, aes(lx+width/2,y/width)) + geom_bar(aes(width=rx-lx), color='black', stat='identity') + 
  scale_x_continuous(breaks=unique(c(income$lx,income$rx))) + labs(x='Income (thousands of $)', y='% per thousand $')

但我想根据原始数据自动执行此操作。（原始数据可以使用以下代码进行近似）：

incomes=unlist(sapply(1:nrow(income), function(i) sample(income$lx[i]:(income$rx[i]-1),income$y[i],replace=TRUE)))
widths=unlist(sapply(1:nrow(income), function(i) rep(income$rx[i]-income$lx[i],income$y[i])))
incomes=data.frame(incomes, widths)

【问题讨论】：

您说的是 10、25、50 等标签吗？但是当我在 R 中运行这段代码时，结果看起来和你想要的直方图一样吗？
您能否详细说明您正在寻找什么样的解决方案？您给定的代码无需修改即可创建所需的效果。
我想使用原始数据自动执行此操作（请参阅“收入”数据框）。我的示例是垃圾箱的手工编码表示。

标签： r ggplot2

【解决方案1】：

您可以通过在geom_histogram 中指定所需的breaks 来生成可变宽度直方图。使用y=..density..（而不是默认值，它基于计数），以便将条形标准化为它们在条形总面积中的比例。

breaks = c(0,10,25,50,100,150)

ggplot(incomes, aes(incomes)) +
  geom_histogram(aes(y=..density..),
                 color="black", fill="grey40", breaks=breaks) +
  scale_x_continuous(breaks=breaks)

【讨论】：