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


How to make variable width histogram in R with labels aligned to bin edges?

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

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

desired

1
2
3
4
5
6
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 $')

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

1
2
3
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)

相关讨论

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

1
2
3
4
5
6
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)

enter