如何使用 R plotly 在一個圖上繪制多個填充的置信帶

Question

我已嘗試使用以下代碼在一個圖上繪制兩個填充帶，但plotly未在正確的一對線之間填充。 這樣做的正確方法是什么？

我也很感激知道如何指定處理兩個波段重疊的理想透明度。

require(plotly)
x <- c(1, 2, 1, 2)
g <- c('a','a','b','b')
y <- c(1, 2, 3, 4)
lo <- y - .1
hi <- y + .1

a <- plot_ly(x=x, y=y, group=g)
a <- add_trace(a, x=x, y=lo, group=g, fill='tonexty')
a <- add_trace(a, x=x, y=hi, group=g)
a

Answer 1

我不完全確定您希望繪圖看起來像什么，但您可以嘗試使用geom_ribbon函數在ggplot2創建繪圖。 然后使用ggplotly的情節轉換為plotly圖：

df <- data.frame(
  x, g, y, lo, hi
)

plot <- ggplot(data=df, aes(x=x, y=y, colour=g)) + geom_line(aes(x=x)) +
  geom_ribbon(aes(ymin=lo,ymax=hi), alpha=0.25) 

ggplotly(plot)

Answer 2

fill = "tonexty"根據它之前出現的痕跡進行填充。 因此，使每個組從 hi 填充到 lo 的一種方法是顯式排序調用：

a <- plot_ly(x=x, y=y, group=g)
a <- add_trace(a, x = x[g=="a"], y = lo[g=="a"], group = g[g=="a"])
a <- add_trace(a, x = x[g=="a"], y = hi[g=="a"], group = g[g=="a"], fill = 'tonexty')
a <- add_trace(a, x = x[g=="b"], y = lo[g=="b"], group = g[g=="b"])
a <- add_trace(a, x = x[g=="b"], y = hi[g=="b"], group = g[g=="b"], fill = 'tonexty')

指定透明度的一種方法是使用toRGB

a <- plot_ly(x=x, y=y, group=g)
a <- add_trace(a, x = x[g=="a"], y = lo[g=="a"], group = g[g=="a"])
a <- add_trace(a, x = x[g=="a"], y = hi[g=="a"], group = g[g=="a"], fill = 'tonexty',
         fillcolor = toRGB("red", 0.1))
a <- add_trace(a, x = x[g=="b"], y = lo[g=="b"], group = g[g=="b"])
a <- add_trace(a, x = x[g=="b"], y = hi[g=="b"], group = g[g=="b"], fill = 'tonexty',
         fillcolor = toRGB("blue", 0.7))
a

Answer 3

x <- c(1, 2, 1, 2)
g <- c('a','a','b','b')
y <- c(1, 2, 3, 4)
lo <- y - .1
hi <- y + .1
df <- cbind.data.frame(x,y,g,lo,hi)
g.uni <- unique(df$g)

fig <- df %>%
        plot_ly(type = "scatter",
        mode = "lines",
        showlegend = FALSE)

for(i in g.uni){
      fig <- fig  %>%
               add_fun(function(plot) {
                  plot %>% 
                  filter(g == i) %>%
                  add_ribbons(x = ~x,
                      ymin = ~lo,
                      ymax = ~hi
                  ) %>%
                  add_lines(
                   x = ~x,
                   y = ~y,
                   line = list(
                            color = "black",
                            dash = "dot"
                            )
                         )
                  }
               )
}
print(fig)

在此處輸入圖片說明