避免`scale_y_continuous`取走数据点

Question

让我们考虑3个极端分布。其中两个有一个很长的尾巴，而最后一个显然是双峰的。

require(poweRlaw)
m = displ$new()
m$setXmin(10);m$setPars(5)
f1 = function(n) {dist_rand(m, n)}
set.seed(2)
n = 200
A = data.frame(x = rep(c(1,2,3), each=n), y = c(f(2*n), f(3*n/4), rnorm(n/4, mean=5000, sd=10)))
ggplot(A, aes(y=y, x=factor(x))) + geom_boxplot()

长尾使观察差异的意思难以分辨。所以，我想放大

ggplot(A, aes(y=y, x=factor(x))) + geom_boxplot() + 
scale_y_continuous(limits=c(c(0, 100)))

但问题是当我放大时，现在在绘图框外的数据没有考虑到创建箱图。我该如何解决这个问题？