Orange

# Carregando o pacote e o dataset nativo
library(plotly)
data("Orange")

# 1. Preparação dos Dados: Criando o texto customizado do Tooltip
orange_plot_data <- Orange %>%
  mutate(
    # paste0 junta os textos e as variáveis exatamente no formato exigido
    texto_hover = paste0("Árvore ", Tree, " — idade: ", age, " dias — circ.: ", circumference, " mm")
  )

# 2. Construção do Gráfico de Linhas Interativo
plot_ly(orange_plot_data, 
        x = ~age, 
        y = ~circumference, 
        color = ~Tree,              # Separa as 5 árvores em cores distintas
        type = 'scatter', 
        mode = 'lines+markers',     # Gráfico de linha com marcadores para facilitar o hover
        text = ~texto_hover,        # Aponta para a coluna de texto que criamos
        hoverinfo = 'text') %>%     # Diz ao plotly para usar APENAS o nosso texto no hover
  layout(
    title = "Crescimento das Laranjeiras",
    xaxis = list(title = "Idade (dias)"),
    yaxis = list(title = "Circunferência (mm)"),
    legend = list(title = list(text = "<b> Árvore </b>"))
  )