So zeichnen Sie mehrere gefüllte Konfidenzbänder in einem Diagramm mit R plotly

Question

Ich habe den folgenden Code ausprobiert, um zwei gefüllte Bänder in einem Diagramm zu zeichnen, aber plotly füllt nicht zwischen dem rechten Linienpaar. Was ist der richtige Weg, dies zu tun?

Ich würde auch schätzen zu wissen, wie man die ideale Transparenz für die Behandlung der Überlappung von zwei Bändern spezifiziert.

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

Ich bin nicht ganz sicher, was Sie Ihr Grundstück aussehen wollen, aber Sie können versuchen, das Grundstück in ggplot2 zu schaffen mit der geom_ribbon Funktion. Dann ggplotly verwenden, um die Handlung zu einem plotly Diagramm zu konvertieren:

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" füllt nach welcher Spur kam, bevor es. So kann man es von der hallo zu lo für jede Gruppe füllen zu machen, ist die Anrufe explizit zu bestellen:

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') 

Eine Möglichkeit, die Transparenz zu spezifizieren ist 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