使用ggplot2在barplot中缩放轴的值有很大差异

Question

我正在尝试生成条形图。我的数据范围从10s到10000s。我的代码的问题在于，值较低的点在图形中没有显示“条”（参见图片）

这是示例数据：

https://drive.google.com/open?id=1u7GyhoWIOi4RHARPAllcNeA2odlwau_N

这是图片的代码：

ggplot(data = GO_DIST, aes(x=reorder(Description, Hits), y=Hits)) +
  geom_bar(stat='identity', position = position_dodge(width=0.5), fill = 'purple4') + 
  theme_classic() + 
  geom_text(aes(label = Hits), hjust = -0.1, size = 2.5) +
  labs(x = "Cellular Component", y = "") +
  coord_flip() +
  scale_y_continuous(expand=c(0, 0),
                     position = "bottom",
                     limits = c(0, 21000),
                     breaks = c(100, 10000, 20000)
                     )

但是，我想要显示代表低价值点的“条”。我尝试使用log10选项，但该图形未达到我真正想要的。我实际上想要的是看起来像这样的比例调整图（参考：Xing等人2018）

在他们的曲线图中，他们显示偶数= 1带有“横条”，并且刻度值已相应调整。我也很难搜寻与此问题相关的优质标签。我希望在您的帮助下改善我的图表。