2VA

Questões da prova

VADeaths

library(ggplot2)
library(reshape2)
data("VADeaths")


VADeaths_melted <- melt(VADeaths)


ggplot(VADeaths_melted, aes(x = Var1, y = value, fill = Var2)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "VADeaths",
       x = "Grupo Etário",
       y = "Taxa de Mortalidade",
       fill = "Grupo") +
  scale_fill_manual(values = c("Rural Male" = "lightblue",    # Cor para Rural Male
                               "Rural Female" = "orange",  # Cor para Rural Female
                               "Urban Male" = "red",    # Cor para Urban Male
                               "Urban Female" = "green")) # Cor para Urban Female

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

frequencia <- table(estagios)


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


cores <- c("leve" = "lightblue", "moderado" = "green", "severo" = "red")


pie(frequencia, 
    labels = paste0(names(frequencia), ": ", porcentagem, "%"), 
    col = cores, 
    main = "Classificação da Doença")

# Adicionar a legenda
legend("topright", 
       legend = names(frequencia), 
       fill = cores, 
       title = "Estágios")

Teorema

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



populacao <- flu$age 


ggplot(flu, aes(x = populacao)) +
  geom_histogram(aes(y = ..density..), bins = 30, color = "black", fill = "lightblue") +
  geom_density(color = "red", size = 1) +
  labs(title = "Histograma e Curva de Densidade das Idades das Mortes",
       x = "Idade",
       y = "Densidade")

set.seed(123) 
n_amostras <- 200
n_tamanho <- 35
medias_amostras <- replicate(n_amostras, mean(sample(populacao, n_tamanho, replace = TRUE)))


medias_df <- data.frame(medias = medias_amostras)

ggplot(medias_df, aes(x = medias)) +
  geom_histogram(aes(y = ..density..), bins = 30, color = "black", fill = "lightblue") +
  geom_density(color = "red", size = 1) +
  labs(title = "Histograma das Médias das Amostras (n = 35)",
       x = "Média das Amostras",
       y = "Densidade")