2ª VA - Computação para análise de dados

VADeaths

data <- VADeaths
cores <- c("lightblue", "pink", "lightcyan", "lavender", "cornsilk")

barplot(data,
        col = cores,
        main = "Taxas de Mortalidade em Virgínia (1940)",
        xlab = "Categoria Populacional",
        ylab = "Taxa por 1000",
        legend = rownames(VADeaths),      
        args.legend = list(x = "topleft") 
)

ClassificaçãoDoença

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

resultados_table <- table(resultados)

porcentagens <- 100 * resultados_table / sum(resultados_table)

rotulos <- paste(porcentagens, "%", sep = "")

cores <- c("#9EF2A8", "#E8EAA4", "#E58181")

pie(resultados_table, 
    labels = rotulos,
    col = cores,
    main = "Estágios da Doença"
)

legend("topleft",
       legend = names(resultados_table),
       fill = cores,
       title = "Estágios")

Teorema

flu_df = read.csv('flu.csv')
ages = flu_df$age

hist(ages,
     freq = FALSE,
     main = "População", 
     xlab = "Idade"
)

lines(density(ages), col = "red", lwd = 2)

medias_amostras <- replicate(200, mean(sample(ages, 35)))

hist(medias_amostras, 
     freq = FALSE,
     main = "Médias das amostras (n=35)", 
     xlab = "Média da idade"
)

lines(density(medias_amostras), col = "red", lwd = 2)