2VA4

library(plotly)
library(dplyr)

data("Orange")

# Prepara os dados com uma coluna de texto personalizada para o tooltip
dados_orange <- Orange %>%
  mutate(
    Arvore = paste("Árvore", Tree),
    texto_tooltip = paste0(
      "Árvore ", Tree,
      " — idade: ", age,
      " dias — circ.: ", circumference,
      " mm"
    )
  )

grafico_orange <- plot_ly(
  data = dados_orange,
  x = ~age,
  y = ~circumference,
  split = ~Arvore,
  color = ~Arvore,
  type = "scatter",
  mode = "lines+markers",
  text = ~texto_tooltip,
  hoverinfo = "text",
  colors = c("#7C3AED", "#EA580C", "#059669", "#DB2777", "#0891B2")
) %>%
  layout(
    title = "Crescimento das laranjeiras ao longo do tempo",
    xaxis = list(title = "Idade da árvore em dias"),
    yaxis = list(title = "Circunferência do tronco em mm"),
    legend = list(title = list(text = "Laranjeira")),
    hovermode = "closest"
  )

grafico_orange