从ggplot轴刻度中删除尾随零

Question

如何在没有尾随零的情况下显示x轴刻度标签？换句话说，就像它们在break参数中列出一样。

d = data.frame(y = runif(10000, 0.0001, 1))

options(scipen = 999)
require(ggplot2)

ggplot(d, aes(x = y)) + geom_histogram() +
  scale_x_log10(breaks=c(1, 0.1, 0.01, 0.001, 0.0001)) +
  theme(axis.text.x = element_text(color='black', size=8))