按照数据阈值着色的直方图

想要使用ggplot2绘制直方图，并根据横坐标大于或小于0分别着色，但结果显示似乎会根据大于小于0分别得到频率密度图的加和，但我想要的是整体的频率密度
用代码

```r
ggplot(histogram,aes(x = R))+
geom_histogram(aes(y=..density.., fill= R>0), color="black", binwidth=0.01, breaks=seq(-0.3,1,0.01))+
scale_fill_manual(values=c("#FFD39B", "#B0C4DE"), guide=FALSE)+
guides(fill="none")+
labs(x ="Spearman's correlation", y = "Probability density")+
geom_density()+
geom_vline(xintercept = median(histogram$R),linetype = "dashed",color="red",size = 0.5)+
annotate(geom = "text", color="black",x = median(histogram$R), y=3,label ="median r= 0.51", size=3)+
theme_classic()

```块功能插入代码，请勿粘贴截图

运行结果及报错内容

img

我想要达到的结果

img