R ggplot2-几何图形直方图'；带刻度的s箱宽度×对数10

我正试图用ggplot建立一个直方图。 我不太明白binwidth是如何工作的

 library(ggplot2)
 set.seed(10)
 testData = data.frame(x=rlnorm(100, log(1), log(2.5)))
 ggplot(data=testData, aes(x=testData$x)) +
 geom_histogram(binwidth=1)+scale_x_log10()

如何获得每一数量级1巴？

---

（即10^-1和10^0之间的1巴，10^0和10^1之间的1巴，…）

一种方法是使用

cut（）

函数对数据进行分组，然后按组计数

library(ggplot2)
set.seed(10)
x=rlnorm(100, log(1), log(2.5))
testData = data.frame(x = x, grp = cut(x, c(0.1, 1, 10)))
ggplot(data=testData, aes(grp)) +
    stat_count()

---

这不是我所期望的解决方案，而是一个伟大的解决方案！比如说，在这个图上面，我想覆盖原始数据集的geom_密度层。关于如何使用“转换为因子解决方案”有什么建议吗？提前谢谢。