在ggplot2柱状图中缩放Y轴(计数)

我正在绘制一个简单的数据柱状图,采样率为10%。我想要Y轴上的计数,但是由于数据是被取样的,所以我想要它们被适当地缩放。如果我使用基础图形,我会做一些

foo <- rnorm(50)
foo.hist <- hist(foo,plot=F)
foo.hist$counts <- foo.hist$counts * 10
plot(foo.hist)

有没有一种简单的方法可以通过ggplot2来实现这一点?…有各种各样的“屏蔽”Y轴转换(scale_y_log()等);有什么更通用的吗?