为 ggplot 直方图中的高后验密度区域着色

编程问答 2022-04-25

问题描述

我正在尝试用不同的颜色为我的 ggplot2 直方图着色。为此，经过一些研究，我尝试使用以下代码。唯一的问题是我无法控制的传说，而且不精确。

rdf <- data.frame(r=rSample)
r_lower = quantile(rSample,0.05)
r_upper = quantile(rSample,0.95)
rdf$breaks <- cut(rdf$r,breaks = c(r_lower,r_upper) )
rplot <- ggplot(rdf,aes(r,colour=breaks,fill=breaks)) +
         geom_histogram(binwidth = 0.1,closed = "left",boundary=0,alpha = 0.7,size = 0.1) +
         #theme(legend.position = "none") +
         labs( 
         x = "",y = "",title = "Posterior distribution of r",caption = "the red area represents the high posterior density region") 
         
rplot

enter image description here

我想说的传说必须说“红色”=“高后密度区域”和“灰色”=“低后密度区域”。有什么想法或建议吗？

非常感谢。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

density-plotggplot2histogramplotrr