Atividades Prova 2VA

Gráficos

VADeaths

data("VADeaths")

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


df_long <- pivot_longer(df, cols = -AgeGroup, names_to = "Group", values_to = "DeathRate")


ggplot(df_long, aes(x = AgeGroup, y = DeathRate, fill = Group)) +
  geom_bar(stat = "identity", position = "dodge") +
  scale_fill_brewer(palette = "Set2") +
  scale_y_continuous(
    limits = c(0, 80),         
    breaks = seq(0, 80, 10)    
  ) +
  labs(
    title = "Taxas de Mortalidade Idade/Grupo",
    x = "Faixa Etária",
    y = "Taxa de Mortalidade",
    fill = "Grupo"
  ) +
  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")


tabela <- table(estagios)


porcentagens <- round(100 * tabela / sum(tabela), 1)


labels <- paste(names(tabela), "-", porcentagens, "%")


cores <- c("leve" = "lightgreen", "moderado" = "gold", "severo" = "tomato")


pie(tabela, 
    labels = labels, 
    col = cores[names(tabela)], 
    main = "Classificação dos Estágios da Doença")

legend("topright", 
       legend = names(tabela), 
       fill = cores[names(tabela)], 
       title = "Estágio")

Teorema

flu <- read.csv("flu.csv")
idades <- flu$age

hist(idades,
     breaks = 20,
     probability = TRUE,
     col = "grey",   
     border = "white",
     main = "Histograma Mortes por Gripe",
     xlab = "Idade",
     ylab = "Densidade",
     cex.main = 1.2,
     cex.lab = 1,
     cex.axis = 0.9,
     las = 1)  

lines(density(idades, na.rm = TRUE), col = "orange", lwd = 2)

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

hist(medias_amostrais,
     breaks = 20,
     probability = TRUE,
     col = "grey",        
     border = "white",
     main = "Histograma Médias Amostrais",
     xlab = "Média das Idades",
     ylab = "Densidade",
     cex.main = 1.2,
     cex.lab = 1.1,
     cex.axis = 1,
     las = 1)
lines(density(medias_amostrais), col = "orange", lwd = 2)