如何在 ggplot 中绘制具有可变 bin 宽度的直方图？

我已经找到这个函数了dhist() in the ggplot2实现可变宽度直方图的包，描述为丹比和马洛斯 (2009) http://pubs.amstat.org/doi/pdf/10.1198/jcgs.2009.0002但我找不到任何使用它的例子。我想将它与以下代码一起使用来创建 可变箱宽度：

x1 <- c(rep(0, 250), rlnorm (1000)) 
x2 <- c(rlnorm(1250)) 
x <- data.frame(x1, x2) 
x.long <- melt(x, measure.vars=c("x1","x2")) 
ggplot(x.long, aes(x=value)) + 
 geom_step(aes(x=value, y=..density.., colour=variable), 
   stat="bin", binwidth=0.2) + 
 coord_cartesian(xlim = c(-1, 15)) 

我怎样才能做到这一点？

note:我从以下位置交叉发布了这个问题ggplot2 谷歌组 http://groups.google.com/group/ggplot2/browse_frm/thread/ddf9406764f4b3df没有得到答复。如果我在这里得到答案，就会在那里发布，反之亦然

有了哈德利的提示和大量的尝试和错误，你就可以了。我还更改了数据和垃圾箱数量（nbins）这样效果会更明显。

library(ggplot2) #using version 0.8.8
x1 <- c(rnorm(100,8,4), rnorm(100, 2,2), rnorm(100,0,10))
x2 <- c(rlnorm(1000),rnorm(1000,1,10), rep(1,500), rep(5,500))
ggplot() + 
  geom_step(aes(x1, y =..density..),
            stat = 'bin',breaks = dhist(x1, nbins =20),
            position = "dodge", color = 'red') +
  geom_step(aes(x2, y =..density..),
            stat = 'bin',breaks = dhist(x2,nbins=20),
            position = "dodge", color = 'blue')