# 1. Carregar a biblioteca do Plotly
library(plotly)

# 2. Carregar o dataset nativo Orange
data("Orange")

# 3. Forçar a coluna Tree a ser tratada como fator (garante cores distintas por árvore)
Orange$Tree <- as.factor(Orange$Tree)

# 4. Criar o texto personalizado para o tooltip exatamente como exigido
# Texto alvo: Árvore X — idade: Y dias — circ.: Z mm
Orange$texto_tooltip <- paste("Árvore ", Orange$Tree, 
                              " — idade: ", Orange$age, " dias", 
                              " — circ.: ", Orange$circumference, " mm", 
                              sep = "")

# 5. Construir o gráfico de linhas interativo
fig_orange <- plot_ly(data = Orange, 
                      x = ~age, 
                      y = ~circumference, 
                      color = ~Tree,           # Separa e colore as 5 árvores
                      type = 'scatter', 
                      mode = 'lines+markers',  # Linhas conectando os pontos
                      text = ~texto_tooltip,   # Injeta o texto customizado
                      hoverinfo = 'text') %>%  # Força o Plotly a mostrar APENAS o nosso texto
  layout(title = "Crescimento de Laranjeiras (Orange Dataset)",
         xaxis = list(title = "Idade (dias)"),
         yaxis = list(title = "Circunferência (mm)"),
         legend = list(title = list(text = 'Árvore')))

# 6. Renderizar o gráfico
fig_orange