Análise de dados - 2 VA

Análises

VADeaths

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

library(ggplot2)

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

ClassificaçãoDoença

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

tab <- table(estagios)

porc <- round(100 * tab / sum(tab), 1)

labels <- paste(names(tab), "-", porc, "%")

cores <- c("lightblue", "orange", "tomato")

pie(
  tab,
  labels = labels,
  col = cores,
  main = "Distribuição dos Estágios da Doença"
)

legend(
  "topright",
  legend = names(tab),
  fill = cores,
  title = "Estágios"
)

Teorema

flu <- read.csv("flu.csv")

population <- flu$age

hist(
  population,
  breaks = 20,
  freq = FALSE,
  col = "lightblue",
  border = "white",
  main = "Idade das Mortes — População (Gripe Espanhola)",
  xlab = "Idade"
)

lines(
  density(population),
  col = "red",
  lwd = 3
)

set.seed(123)  

sample_means <- replicate(
  200,
  mean(sample(population, size = 35, replace = TRUE))
)

hist(
  sample_means,
  breaks = 20,
  freq = FALSE,
  col = "lightgreen",
  border = "white",
  main = "Distribuição das Médias Amostrais (n = 35, 200 amostras)",
  xlab = "Média das Amostras"
)

lines(
  density(sample_means),
  col = "blue",
  lwd = 3
)

curve(
  dnorm(x, mean = mean(population), sd = sd(population) / sqrt(35)),
  add = TRUE,
  lwd = 2,
  col = "darkred",
  lty = 2
)