Prova de Análise de Dados

Questões

VADeaths

data("VADeaths")
VADeaths_df <- as.data.frame(VADeaths)
VADeaths_df$AgeGroup <- rownames(VADeaths_df)

VADeaths_long <- melt(VADeaths_df, id.vars = "AgeGroup", variable.name = "Group", value.name = "Deaths")

ggplot(VADeaths_long, aes(x = Group, y = Deaths, fill = AgeGroup)) +
  geom_bar(stat = "identity", position = "stack") +
  labs(title = "Taxas de Mortalidade por Grupo na Virgínia",
       x = "Grupo",
       y = "Taxa de Mortalidade",
       fill = "Faixa Etária") +
  theme_minimal()

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")

freq <- table(estagios)
porcentagens <- round(100 * freq / sum(freq), 1)
labels <- paste(names(freq), "-", porcentagens, "%")
cores <- c("lightgreen", "gold", "tomato")

pie(freq, labels = labels, col = cores, main = "Classificação dos Estágios da Doença")
legend("topright", legend = names(freq), fill = cores)

Teorema

flu_df <- read.csv("flu.csv")
flu_expanded <- flu_df$age

hist(flu_expanded, probability = TRUE, breaks = 30,
     col = "skyblue", main = "Histograma das Idades - População (flu.csv)",
     xlab = "Idade")
lines(density(flu_expanded), col = "darkblue", lwd = 2)

set.seed(123)
sample_means <- replicate(200, mean(sample(flu_expanded, size = 35, replace = TRUE)))

hist(sample_means, probability = TRUE, breaks = 20,
     col = "lightgreen", main = "Distribuição das Médias das Amostras",
     xlab = "Média das Amostras")
lines(density(sample_means), col = "darkgreen", lwd = 2)