Abaixo está o gráfico interativo que demonstra o crescimento da circunferência do tronco de 5 laranjeiras ao longo do tempo.
library(plotly)
data("Orange")
Orange$texto_customizado <- paste0(
"Árvore ", Orange$Tree,
" — idade: ", Orange$age, " dias",
" — circ.: ", Orange$circumference, " mm"
)
fig <- plot_ly(
data = Orange,
x = ~age,
y = ~circumference,
color = ~Tree,
type = 'scatter',
mode = 'lines+markers',
text = ~texto_customizado,
hoverinfo = 'text'
) %>%
layout(
title = list(text = "Crescimento de Laranjeiras", x = 0.5),
xaxis = list(title = "Idade (dias)"),
yaxis = list(title = "Circunferência (mm)"),
legend = list(title = list(text = "<b>Identificação</b>"))
)
fig