ggplotly text geom_lineに表示されないgeom_lineを引き起こす

Question

テキストの美しさによって定義されたツールチップで単純なgeom_lineをレンダリングしようとしています。

q <- ggplot(data = graphDataFactor(), aes(x = Dates, 
              y=Variable_Data, 
              colour = Variable_Name 
              #, 
             #text = paste('Date: ', as.Date(Dates), 
             #'<br>Variable:', Variable_Name, 
             #'<br>Var Unit:', Variable_Data 
                #) 
               )) + 
      geom_line(size = 1) + 
      labs(colour = "Variables") 
ggplotly(q 
     #, tooltip = c("text") 
     ) 

このコードは、美的なテキストがコメントされているので、細かく描画できます。しかし、テキストの美しさやツールチップを使用しようとすると、geom_lineはプロットに表示されません。正しい場所にカーソルを合わせると正しいツールチップが表示され、色の凡例が正しく表示されます。

また、唯一の違いはgeom_lineではなくgeom_pointを呼び出して完全にうまくレンダリングする点です。

これはggplotlyのバグですか？それともコードに問題がありますか？

Answer 1

美的設定時にgroup=1を追加します。

library(plotly) 
set.seed(1234) 
df <- data.frame(Dates = c("01/14/92", "02/27/92", "03/27/92", "04/28/92", "01/03/92"), 
       Variable_Data=runif(5), Variable_Name=c("A","A","A","B","B")) 
df$Dates <- as.Date(df$Dates,"%m/%d/%y") 

q <- ggplot(data = df, aes(x=Dates, y=Variable_Data, 
          colour=Variable_Name, group=1, 
    text = paste('Date: ', Dates, 
        '<br>Variable:', Variable_Name, 
        '<br>Var Unit:', Variable_Data))) + 
    geom_line(size = 1) + labs(colour = "Variables") 

ggplotly(q, tooltip = "text")