2va

2 VA

VADeaths

plot.new()
barplot(VADeaths,
        main = "Death rate/1000 em Virginia em 1940",
        xlab = "Grupos",
        ylab = "Mortes",
        col = rainbow(5),           
        beside = FALSE) 
legend("topright", legend = rownames(VADeaths), fill = rainbow(5))

ClassificaçãoDoença

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


frequencia <- table(dados)

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

rotulos <- paste(names(frequencia), porcentagem, "%")

cores <- c("lightblue", "lightgreen", "lightcoral")

pie(frequencia, 
    labels = rotulos, 
    col = cores, 
    main = "Gravidade dos pacientes")
legend("topright", legend = names(frequencia), fill = cores)

Teorema

flu <- read.csv("flu.csv")
hist(flu$age, 
     main = "Histograma das idades das mortes (Epidemia de gripe espanhola 1918)", 
     xlab = "Idade", 
     ylab = "Frequência", 
     col = "lightblue", 
     probability = TRUE, 
     border = "black")

# Adicionar a curva de densidade
lines(density(flu$age), col = "red", lwd = 2)

n <- 35
num_amostras <- 200

medias<-rep(NA,num_amostras)
for(i in 1:num_amostras){
  amostra <-sample(flu$age,size=n)
  medias[i]<-mean(amostra)
}

desidade_sample <- density(medias)
hist(medias, 
     main = "Histograma das médias das amostras (n=35,samples=200)", 
     col = "lightgreen", 
     probability = TRUE, 
     border = "black")

lines(desidade_sample, col = "blue", lwd = 2)