Este exercício utiliza o conjunto de dados Orange para
visualizar o crescimento de cinco laranjeiras ao longo do tempo. O
gráfico relaciona a idade das árvores com a circunferência dos troncos,
permitindo comparar seus padrões de crescimento.
data("Orange")
head(Orange)
## Tree age circumference
## 1 1 118 30
## 2 1 484 58
## 3 1 664 87
## 4 1 1004 115
## 5 1 1231 120
## 6 1 1372 142
summary(Orange)
## Tree age circumference
## 3:7 Min. : 118.0 Min. : 30.0
## 1:7 1st Qu.: 484.0 1st Qu.: 65.5
## 5:7 Median :1004.0 Median :115.0
## 2:7 Mean : 922.1 Mean :115.9
## 4:7 3rd Qu.:1372.0 3rd Qu.:161.5
## Max. :1582.0 Max. :214.0
library(plotly)
fig <- plot_ly()
for(arvore in unique(Orange$Tree)) {
dados_arvore <- subset(Orange, Tree == arvore)
fig <- fig %>%
add_trace(
data = dados_arvore,
x = ~age,
y = ~circumference,
type = "scatter",
mode = "lines+markers",
name = paste("Árvore", arvore),
hovertemplate = paste(
"Árvore", arvore,
" — idade: %{x} dias",
" — circ.: %{y} mm",
"<extra></extra>"
)
)
}
fig %>%
layout(
title = list(
text = "Crescimento das Laranjeiras ao Longo do Tempo"
),
xaxis = list(
title = "Idade (dias)"
),
yaxis = list(
title = "Circunferência (mm)"
),
legend = list(
title = list(text = "Laranjeiras")
)
)
O gráfico apresenta a evolução da circunferência do tronco em função
da idade para as cinco árvores do conjunto de dados
Orange.
Observa-se que:
A análise evidencia uma relação positiva entre idade e circunferência das laranjeiras, permitindo comparar facilmente o desenvolvimento individual de cada árvore através da visualização interativa fornecida pelo Plotly.