Prova2VA

Prova 2VA

VADeaths

library(ggplot2)
library(tidyr)

data("VADeaths")

df <- as.data.frame(as.table(VADeaths))
names(df) <- c("Grupo", "FaixaEtaria", "Taxa")

ggplot(df, aes(x = Grupo, y = Taxa, fill = FaixaEtaria)) +
  geom_bar(stat = "identity", position = "stack") +
  scale_fill_brewer(palette = "Accent") +
  labs(
    title = "Taxas de Mortalidade na Virgínia (VADeaths)",
    x = "Grupo Populacional",
    y = "Taxa de Mortalidade",
    fill = "Faixa Etária"
  ) +
  theme_minimal(base_size = 14)

ClassificaçãoDoença

dados <- c("moderado", "leve", "leve", "severo", "leve",
           "moderado", "moderado", "moderado", "leve", "leve",
           "severo", "leve", "moderado", "moderado", "leve",
           "severo", "moderado", "moderado", "moderado", "leve")

freq <- table(dados)

porcentagem <- round(100 * freq / sum(freq), 1)

rotulos <- paste(names(freq), "-", porcentagem, "%")

cores <- c("lightgreen", "gold", "tomato")

pie(freq,
    labels = rotulos,
    col = cores,
    main = "Distribuição dos estágios da doença")

legend("topright",
       legend = names(freq),
       fill = cores,
       title = "Estágio da doença")

Teorema

flu <- read.csv("flu.csv", stringsAsFactors = FALSE)

idades <- flu$age

hist(idades,
     probability = TRUE,
     col = "lightblue",
     main = "Histograma das idades - Dataset flu (não normal)",
     xlab = "Idade",
     ylab = "Densidade",
     border = "white")

lines(density(idades),
      col = "red",
      lwd = 2)

set.seed(123)

n_amostras <- 200
tamanho <- 35

medias_amostrais <- replicate(n_amostras, {
  sample(idades, tamanho, replace = TRUE) |> mean()
})

hist(medias_amostrais,
     probability = TRUE,
     col = "lightgreen",
     main = "Distribuição das médias amostrais (n = 35)",
     xlab = "Média das idades",
     ylab = "Densidade",
     border = "white")

lines(density(medias_amostrais),
      col = "blue",
      lwd = 2)