R ggplotly文本美学导致几何图形线不显示

我试图用文本美学定义的工具提示渲染一条简单的几何图形线

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

---

设置美学时添加

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

library（plotly）
种子集（1234）
df感谢您修复了此错误。这仅仅是一个文本美学上的缺陷，还是有这样的原因？@StefanLangenborg在我看来这不是一个缺陷，但我还没有明确解释为什么需要使用
group=1
Awesome！那会让我发疯的