r - Rでggplot2ボックスプロット間の間隔を広げるにはどうすればよいですか?

Question

によって生成されたダイアグラムでボックス プロット間のスペースを広げようとしていますggplot2。適応できなかったバープロットに対してそれを行う方法に対する答えを見つけましたが、少なくとも希望が持てるようになりました。次のコードがあります。

library('ggplot2')
FOO <- runif(30, min=0, max=10);
BAR <- rep(c("a", "b", "c"), 10)

df <- data.frame(FOO, BAR);
ggplot(df, aes(x = BAR, y = FOO)) + geom_boxplot(outlier.shape = NA, fill = "grey80",alpha = 0.3) + geom_point(position = position_jitter(w = 0.5, h = 0)) + theme_bw()

ドットがどのデータセットに属しているかを確認するのは非常に困難です。を変更できますがw、position_jitter重複のリスクも高くなります。プロット間のスペースも広げたいと思います。これはどのように行うことができますか？