在R中使用ggplot2修改圖例

Question

我正在使用ggplot軟件包繪製N（0,1）密度疊加的正常變量直方圖。我對這個軟件包很陌生，我使用的代碼是

x = rnorm(1000) 
qplot(x, geom = 'blank') +  
    geom_histogram(aes(y = ..density.., colour = 'Histogram'), legend = FALSE, 
    binwidth = 0.5, fill = "blue") +       
    stat_function(fun = dnorm, aes(colour = 'Density'))+ 
    scale_x_continuous('x', limits = c(-4, 4))+ 
    opts(title = "Histogram with Overlay")+ 
    scale_colour_manual(name = 'Legend', values = c('darkblue', 'red')) + 
    scale_y_continuous('Frequency')+ 
    opts(legend.key=theme_rect(fill="white",colour="white"))+ 
    opts(legend.background = theme_rect()) 

此代碼產生下圖。如何更改圖例，以便將代表直方圖的線替換爲填充的藍色框（代表直方圖的條）？謝謝！

Answer 1

也許這樣的事情...

dat = data.frame(x=rnorm(1000)) 
ggplot(dat,aes(x=x)) + 
    geom_histogram(aes(y=..density..,fill="Histogram"),binwidth=0.5) + 
    stat_function(fun = dnorm, aes(colour= "Density")) + 
    scale_x_continuous('x', limits = c(-4, 4)) + 
    opts(title = "Histogram with Overlay") + 
    scale_fill_manual(name="",value="blue") + 
    scale_colour_manual(name="",value="red") + 
    scale_y_continuous('Frequency')+ 
    opts(legend.key=theme_rect(fill="white",colour="white"))+ 
    opts(legend.background = theme_blank()) 

注意：自版本0.9.2 opts已經theme一直replaced。例如，上面的最後兩行應該是：

theme(legend.key = element_rect(fill = "white",colour = "white")) + 
theme(legend.background = element_blank())