#Tamanho do pecíolo em área seca e área úmida

#Variável quantitativa: tamanho do pecíolo (em cm)

#Variável qualitativa: tipo de área (seca ou úmida)

dados <- read.csv2("C:/Users/Nara/Desktop/Amb. seco e umido.csv")

library(tidyr)
library(dplyr)
## 
## Anexando pacote: 'dplyr'
## Os seguintes objetos são mascarados por 'package:stats':
## 
##     filter, lag
## Os seguintes objetos são mascarados por 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggplot2)

dados_long <- dados %>%
  pivot_longer(cols = everything(), names_to = "Área", values_to = "Tamanho") %>%
  drop_na()

histograma = ggplot(dados_long, aes(x = Tamanho)) +
  geom_histogram(binwidth = 1, fill = "skyblue", color = "black") +
  labs(
    title = "Histograma Geral do Tamanho dos Pecíolos",
    x = "Tamanho do Pecíolo (cm)",
    y = "Frequência"
  ) +
  theme_minimal()
histograma

ggsave(histograma, filename = 'histograma.jpeg')
## Saving 7 x 5 in image
histograma_area= ggplot(dados_long, aes(x = Tamanho, fill = Área)) +
  geom_histogram(binwidth = 1, color = "black", alpha = 0.8) +
  facet_wrap(~Área) +
  labs(
    title = "Histogramas por Área (Úmida e Seca)",
    x = "Tamanho do Pecíolo (cm)",
    y = "Frequência"
  ) +
  theme_minimal()
ggsave(histograma_area, filename = 'histograma_area.jpeg')
## Saving 7 x 5 in image
histograma_area

#Esse gráfico permite comparar diretamente a distribuição dos tamanhos dos pecíolos em cada tipo de ambiente (seca e úmida). Diferenças em forma, dispersão ou tendência central podem ser facilmente observadas.

#Média: valor médio dos tamanhos dos pecíolos.

#Mediana: valor central — menos sensível a outliers.

#Desvio padrão e variância: indicam a dispersão dos dados; quanto maiores, mais espalhados.

#Coeficiente de variação: mede a dispersão relativa em relação à média — útil para comparar variabilidade entre grupos.

#Calcular as Medidas de posição e dispersão

mediana= dados_long %>%
  group_by(Área) %>%
  summarise(
    Md = median(Tamanho),
    Q1 = quantile(Tamanho, 0.25),
    Q3 = quantile(Tamanho, 0.75)
  ) %>%
  mutate(
    IQR = Q3 - Q1,
    Limite_Inferior = Q1 - 1.5 * IQR,
    Limite_Superior = Q3 + 1.5 * IQR
  )

mediana
## # A tibble: 2 × 7
##   Área                Md    Q1    Q3   IQR Limite_Inferior Limite_Superior
##   <chr>            <dbl> <dbl> <dbl> <dbl>           <dbl>           <dbl>
## 1 Peciolo.a..seca    8.8   8.3  9.75  1.45            6.13            11.9
## 2 Peciolo.a..úmida  16.1  15.6 16.6   1.00           14.1             18.1
write.csv2(mediana, file = "mediana.csv")

##Boxplot Comparativo

ggplot(dados_long, aes(x = Área, y = Tamanho, fill = Área)) +
  geom_boxplot() +
  labs(title = "Boxplot Comparativo do Tamanho dos Pecíolos", x = "Área", y = "Tamanho (cm)")

##A análise do boxplot revela diferenças marcantes no comportamento do tamanho dos pecíolos entre as duas áreas.

#Na **área úmida**, observa-se uma **mediana mais alta**, sugerindo que, em média, as plantas apresentam pecíolos mais longos. O intervalo interquartil (IQR) também é maior, indicando maior **variabilidade** no crescimento. A presença de possíveis **outliers superiores** sugere que algumas plantas cresceram significativamente além do padrão típico do grupo.

#Já na **área seca**, a **mediana é mais baixa**, o que reflete o crescimento reduzido dos pecíolos. O IQR menor demonstra **menor dispersão**, sugerindo que o tamanho dos pecíolos é mais consistente nesse ambiente. A distribuição parece mais concentrada, com menor ocorrência de valores extremos.

#Em resumo, os resultados indicam que o ambiente **úmido favorece um maior e mais variado crescimento dos pecíolos**, enquanto o **ambiente seco limita tanto o tamanho quanto a variação**, possivelmente devido à escassez de água ou fatores ambientais restritivos.


## Conclusão

#A análise estatística dos tamanhos dos pecíolos de *Hydrocotille sp* nas áreas úmida e seca evidenciou diferenças claras no desenvolvimento da planta em função do ambiente.

#Através dos histogramas, observou-se que a distribuição dos tamanhos na área úmida tende a ser mais ampla e deslocada para valores maiores, enquanto na área seca os valores estão mais concentrados e próximos à mediana.

#As medidas descritivas confirmam esse padrão: a média e a mediana dos tamanhos são mais elevadas na área úmida, com maior desvio padrão e coeficiente de variação, indicando maior dispersão. Já a área seca apresenta tamanhos menores e mais homogêneos.

#O boxplot comparativo reforça visualmente essas conclusões, mostrando maior variabilidade e ocorrência de valores extremos na área úmida, em contraste com a compactação dos dados na área seca.

#Esses resultados sugerem que o ambiente úmido proporciona condições mais favoráveis ao crescimento dos pecíolos, enquanto o ambiente seco impõe limitações que reduzem tanto o tamanho quanto a variabilidade da planta analisada.