r - ggplot2-対数スケールで非常に少数のグリッド線が失敗するようです

Question

log10スケールで非常に小さい数のggplot2で箱ひげ図の束を作成しています。ggplot2がグリッドの適切な表示を停止するしきい値があるようです。dat1を使用したプロットにはグリッド線がありませんが、dat2は希望どおりに機能します。2つの違いは、範囲の問題のようです。

library(ggplot2)

set.seed(1234)
dat1 = data.frame(
    val = c(10^(runif(90,-12,-10)), 10^(runif(10,-15,-12)),
            10^(runif(94,-12, -9)), 10^(runif(6, -14,-12))),
    d = c(rep(1,100),rep(2,100))
)

dat2 = data.frame(
    val = c(10^(runif(90,-9,-7)), 10^(runif(10,-11,-9)),
            10^(runif(94,-9,-6)), 10^(runif(6, -10,-9))),
    d = c(rep(1,100),rep(2,100))
)


p = ggplot(dat1, aes(factor(d), val))
print(p + geom_boxplot() + scale_y_log10())


p = ggplot(dat2, aes(factor(d), val))
print(p + geom_boxplot() + scale_y_log10())

誰かアドバイスはありますか？これはログを取る際の数値的な問題ですか？すべての値はより大きい必要があります.Machine$double.eps