Orange

Orange

´´´{r orange_plot, message=FALSE, warning=FALSE} library(plotly)

dados <- Orange cores <- c(“#E63946”, “#457B9D”, “#2A9D8F”, “#E9C46A”, “#9B5DE5”)

fig <- plot_ly()

for (i in 1:5) { arvore <- dados[dados\(Tree == i, ] tooltip <- paste0("Árvore ", i, " — idade: ", arvore\)age, ” dias”, ” — circ.: “, arvore\(circumference, " mm") fig <- add_trace(fig, x = ~arvore\)age, y = ~arvore$circumference, type =”scatter”, mode = “lines+markers”, name = paste(“Árvore”, i), text = tooltip, hoverinfo = “text”, line = list(color = cores[i]), marker = list(color = cores[i]) ) }

fig <- layout(fig, title = “Crescimento das Laranjeiras ao Longo do Tempo”, xaxis = list(title = “Idade (dias)”), yaxis = list(title = “Circunferência (mm)”), legend = list(title = list(text = “Laranjeira”)) )

fig ´´´