R 行+；多重概率带状图

我看到了这个例子

library(dplyr)
library(ggplot2)

tibble(x = 1:10) %>%
  group_by_all() %>%
  do(tibble(y = rnorm(100, .$x))) %>%
  median_qi(.width = c(.5, .8, .95)) %>%
  ggplot(aes(x = x, y = y)) +
  # automatically uses aes(ymin = .lower, ymax = .upper, fill = fct_rev(ordered(.width)))
  geom_lineribbon() +
  scale_fill_brewer()

我无法让它工作。但是，我的主要愿望是使用这些数据创建这种类型的绘图，例如：

data=data.frame("X"=c(,1,2,3,4,5,6,7,8,9,10),
"Y"=c(,0.543160081,0.123664226,0.279783318,0.018285181,0.195599163,0.898118186,0.269707207,0.147648303,0.58262213,0.226656577),
"y"=c(,0.476366198,0.06718906,0.247566376,-0.080645752,0.163463818,0.819419124,0.228511531,0.104004353,0.568254655,0.175087503),
"yUL1"=c(,0.486366198,0.07718906,0.257566376,-0.070645752,0.173463818,0.829419124,0.238511531,0.114004353,0.578254655,0.185087503),
"yLL1"=c(,0.466366198,0.05718906,0.237566376,-0.090645752,0.153463818,0.809419124,0.218511531,0.094004353,0.558254655,0.165087503),
"yUL2"=c(,0.526366198,0.11718906,0.297566376,-0.030645752,0.213463818,0.869419124,0.278511531,0.154004353,0.618254655,0.225087503),
"yLL2"=c(,0.426366198,0.01718906,0.197566376,-0.130645752,0.113463818,0.769419124,0.178511531,0.054004353,0.518254655,0.125087503),
"yUL3" = c(0.556366198,0.14718906,0.327566376,-0.000645752,0.243463818,0.899419124,0.308511531,0.184004353,0.648254655,0.255087503),
"yLL3" =(0.396366198,-0.01281094,0.167566376,-0.160645752,0.083463818,0.739419124,0.148511531,0.024004353,0.488254655,0.095087503))

---

X为黑线，条纹与所示颜色一致。您可以使用

数据中的
熔化
功能将数据框重塑为更长的格式。表
：

库（data.table）
ylow您可以使用
数据中的
melt
函数将数据帧重塑为更长的格式。表
：

库（data.table）
ylow另一个选项是绘制
geom_ribbon
的3个单独实例，如下所示：

数据%>%
ggplot（aes（x=x，y=y））+
geom_色带（aes（ymin=yLL3，ymax=yUL3），fill=“#DEEBF7”）+
geom_ribbon（aes（ymin=yLL2，ymax=yUL2），fill=“#9ECAE1”）+
geom_ribbon（aes（ymin=yLL1，ymax=yUL1），fill=“#3182BD”）+
主题_bw（）


我没有添加
geom_线
，因为中间带有多薄，但这就像
+geom_线（）
一样简单，另一个选项是绘制
geom_功能区的3个单独实例，如下所示：

数据%>%
ggplot（aes（x=x，y=y））+
geom_色带（aes（ymin=yLL3，ymax=yUL3），fill=“#DEEBF7”）+
geom_ribbon（aes（ymin=yLL2，ymax=yUL2），fill=“#9ECAE1”）+
geom_ribbon（aes（ymin=yLL1，ymax=yUL1），fill=“#3182BD”）+
主题_bw（）


我没有添加一条
geom\u线
，因为你的中间带有多薄，但这就像
+geom\u线（）一样简单
我不清楚到底是什么问题。您使用发布的数据尝试了该代码示例，但它不起作用？如何安装？看起来您需要安装并加载
tidybayes
包，其中包括
median\u qi
，所以这就是为什么您的代码不起作用。我不清楚到底是什么问题。您使用发布的数据尝试了该代码示例，但它不起作用？如何安装？看起来您需要安装并加载
tidybayes
包，其中包括
median\u qi
，这就是代码无法工作的原因。