geom_line исчезает с ggplotly - PullRequest
Новая
       47

geom_line исчезает с ggplotly

1 голос
/ 26 марта 2020

Я хочу создать интерактивный линейный график с тремя группами вместе с их доверительными интервалами, используя ggplotly и выделение.

Если я использую три группы, линия одной группы исчезнет с графика.

Все работает нормально, если я не использую опцию tooltip="y" в ggplotly или если я не отображаю панели ошибок.

Может ли кто-нибудь объяснить мне это поведение? Большое спасибо! 

library(ggplot2)
library(plotly)
df <- as.data.frame(list('x'=c(1:10,1:10,1:10) , 
                         y = c(rep(-0.01,10) , rep(0,10) , rep(0.01,10)) , 
                         'ub' = rep(0,30)+0.1 , 
                         'lb' = rep(0,30)-0.1 , 
                    'gr' = c(rep("A",10) , rep("B",10) , rep("C" , 10))))

df <- highlight_key(df, ~gr)

p <- ggplot(df , aes(x=x , y = y , shape = gr , color = gr) ) +
  geom_line(size = 0.75) + 
  geom_point(size = 2  , position=position_dodge(0.2)) + 
  geom_errorbar( aes(ymin = lb , 
                     ymax = ub)
                 , width=.2 , position=position_dodge(0.2))


highlight(ggplotly(p , tooltip = "y" ) ,
          on = "plotly_click",
          off = "plotly_doubleclick",
          debounce = 200
)
...