r - 同一値の箱ひげ図のggplot2の中央値が正しくない

Question

何千ものデータセットの中で、私のプログラムは時折、同一の値のみを含むものに遭遇します。その場合、ベース R と同じように ggplot2 をプロットする必要があります。単に中央値を正しい値でプロットするだけです。ggplot2 でこれを行う方法はありますか?

dput(df)

structure(list(station = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L), .Label = "x", class = "factor"), value = c(1e-04, 
1e-04, 1e-04, 1e-04, 1e-04, 1e-04, 1e-04, 1e-04, 1e-04, 1e-04
)), .Names = c("station", "value"), class = "data.frame", row.names = c(NA, 
-10L))

station value
x   1.00E-04
x   1.00E-04
x   1.00E-04
x   1.00E-04
x   1.00E-04
x   1.00E-04
x   1.00E-04
x   1.00E-04
x   1.00E-04
x   1.00E-04

# via base R:
boxplot(df$value ~ df$station,
main="base R:  correct median, \ncorrect data range")

# via ggplot2:
library(ggplot2)
ggplot(df, aes(factor(df$station), df$value)) + 
geom_boxplot() +
ggtitle("ggplot2:  incorrect median, \nincorrect data range")