Segunda VA

2º Verificação de Avaliação

VADeaths

# Carrega o dataset VADeaths
data("VADeaths")

# Transforma o dataset em um formato longo
VADeaths_long <- melt(VADeaths)

# Cria o gráfico de barras empilhadas
ggplot(VADeaths_long, aes(x = Var2, y = value, fill = Var1)) +
  geom_bar(stat = "identity", position = "dodge") +
  labs(title = "Taxas de Mortalidade na Virgínia", 
       x = "Grupo Etário", 
       y = "Taxa de Mortalidade", 
       fill = "Categoria") +
  theme_minimal()

ClassificaçãoDoença

# Dados dos estágios da doença
dados <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", 
           "leve", "leve", "severo", "leve", "moderado", "moderado", "leve", "severo", 
           "moderado", "moderado", "moderado", "leve")

# Contagem de cada estágio
contagem <- table(dados)

# Porcentagem de cada estágio
porcentagem <- round(100 * contagem / sum(contagem), 1)

# Cores para os estágio
cores <- c("leve" = "lightblue", "moderado" = "lightyellow", "severo" = "pink")

# Gráfico de pizza
pie(contagem, 
    labels = paste(names(contagem), porcentagem, "%"), 
    col = cores, 
    main = "Classificação da Doença")

# legenda
legend("topright", 
       legend = names(contagem), 
       fill = cores)

Teorema

# Passo 1: Mostra o histograma e a curva de densidade do conjunto de dados "flu"
ggplot(data.frame(Idade = flu), aes(x = age)) +
  geom_histogram(aes(y = ..density..), bins = 30, fill = "gray", color = "black") +
  geom_density(color = "purple", size = 1) +
  labs(title = "Histograma e Curva de Densidade das Idades das Mortes",
       x = "Idade",
       y = "Densidade") +
  theme_minimal()

# Passo 2: Cria 200 médias de amostras da população pedidas
set.seed(123)
n <- 35
num_amostras <- 200
medias_amostras <- replicate(num_amostras, mean(sample(flu$age, n, replace = TRUE)))

# Passo 3: Mostra o histograma com a curva de densidade
ggplot(data.frame(Media = medias_amostras), aes(x = Media)) +
  geom_histogram(aes(y = ..density..), bins = 30, fill = "gray", color = "black") +
  geom_density(color = "purple", size = 1) +
  labs(title = "Histograma e Curva de Densidade das Médias das Amostras",
       x = "Média das Idades",
       y = "Densidade") +
  theme_minimal()