Alpha透明度无法在ggplot2中运行？

Question

我正在尝试制作条形图透明的直方图，以便您可以看到背景。这是代码：

library(ggplot2)

theme_dark <- function( ... ) {
    theme(
        text = element_text(color="gray90"),
        plot.background=element_rect(fill="gray8",color="gray8"),
        panel.background=element_rect(fill="gray10",color="gray10"),
        panel.grid.major = element_line(colour="gray17"),
        panel.grid.minor = element_line(colour="gray12"),        
        axis.line = element_line(color = "gray50"),
        plot.title = element_text(color="gray80"),
        axis.title = element_text(color="gray70"),
        axis.text = element_text(color="gray30"),        
        legend.key = element_rect(fill="gray10")
    ) + theme(...)
}

p <- qplot(rating, data=movies)
p + theme_dark() + geom_histogram(colour = "turquoise3",  fill="turquoise4", alpha = 0.33)

然而，透明度似乎揭示了深灰色直方图条，并且根本没有显示背景。模板似乎没有指定这个，所以我不太清楚发生了什么。

因此 - 如何让条形透明，以便我可以看到背景？