Kelly

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)

## Warning: pacote 'ggplot2' foi compilado no R versão 4.6.2

Gráfico de pontos

x <- 1:10 # atribuo uma sequencia de 1 a 10 ao vetor x
y <- x    # faço o mesmo para y, igualando ao x

plot(x,y)

data(storms)

plot(storms$pressure, storms$wind,
     xlab = "Pressao", ylab= "Vento",   # Nome dos eixos
     main = "Gráfico de pontos",    # t?tulo do grafico
     xlim = c(870,1025), ylim = c(0,200),  # dimens?o dos eixos
     type = "p",                    # tipo de graficos
     pch = 1,                       # tipo de pontos
     cex = 0.5,                      # tamanho dos pontos
     col = "red",                    # cor dos pontos
     bty = "n",                      # tira bordas do grafico
     axes = FALSE,                       # elimina eixos
) +
  abline(h= mean(storms$wind), col = "red")  + # cria uma llinha horizontal em 0
  abline(v =mean(storms$pressure), col = "blue", lwd = 2, lty = 2)

## integer(0)

# 1. Preparação: Criar uma paleta de cores baseada na pressão para dar efeito visual
# Cores mais quentes (vermelho) para pressões baixas (tempestades fortes)
cor_ponto <- colorRampPalette(c("red", "orange", "green"))(100)
cores_mapeadas <- cor_ponto[as.numeric(cut(storms$pressure, breaks = 100))]

# 2. Ajustar parâmetros gráficos (margens e fundo)
par(mar = c(5, 5, 4, 2), bg = "white")

# 3. Criar o gráfico de dispersão
plot(storms$wind, storms$pressure,
     pch = 16,                       # Tipo de ponto (círculo preenchido)
     col = adjustcolor(cores_mapeadas, alpha.f = 0.2), # Transparência para lidar com sobreposição
     cex = 0.8,                      # Tamanho dos pontos
     main = "Correlação: Pressão Central vs. Velocidade do Vento",
     xlab = "Velocidade do Vento (nós)",
     ylab = "Pressão Central (mbar)",
     cex.axis = 0.8,                 # Reduz o tamanha dos números dos eixos
     las = 1,                        # Eixo Y na horizontal
     frame.plot = FALSE)             # Remove a caixa completa do gráfico

# 4. Adicionar grade para facilitar a leitura técnica
grid(col = "lightgray", lty = "dotted")

# 5. Adicionar legenda para as cores
legend("topright", 
       legend = c("Alta Pressão (Fraco)", "Média Pressão", "Baixa Pressão (Forte)"),
       col = c("green", "orange", "red"),
       pch = c(16, 16, 16),
       lty = c(NA, NA, NA),
       lwd = c(NA, NA, NA),
       bty = "n",
       cex = 0.8)

hist(storms$wind)

# Configuração otimizada do Histograma
hist(storms$wind, 
     breaks = 20,                   # Aumenta o detalhamento (bins)
     main = "Distribuição da Velocidade dos Ventos", 
     sub = "Dados da base 'storms' (dplyr)",
     xlab = "Velocidade do Vento (nós)", 
     ylab = "Frequência Absoluta",
     col = "#56B4E9",               # Uma cor azul profissional (colorblind friendly)
     border = "white",              # Melhora a separação visual das barras
     xlim = c(0, 160),              # Define o limite do eixo X para cobrir toda a amplitude
     las = 1,                       # Rotaciona os números do eixo Y para a horizontal
     prob = FALSE)                  # FALSE para frequência absoluta, TRUE para densidade