library(plotly)

data("Orange")


Orange$Tree <- as.factor(Orange$Tree)


Orange$texto_tooltip <- paste("Árvore ", Orange$Tree, 
                              " — idade: ", Orange$age, " dias", 
                              " — circ.: ", Orange$circumference, " mm", 
                              sep = "")


fig_orange <- plot_ly(data = Orange, 
                      x = ~age, 
                      y = ~circumference, 
                      color = ~Tree,           
                      type = 'scatter', 
                      mode = 'lines+markers', 
                      text = ~texto_tooltip,  
                      hoverinfo = 'text') %>%   
  layout(title = "Crescimento de Laranjeiras (Orange Dataset)",
         xaxis = list(title = "Idade (dias)"),
         yaxis = list(title = "Circunferência (mm)"),
         legend = list(title = list(text = 'Árvore')))


fig_orange