2VA

VADeaths

data("VADeaths")
# View(VADeaths)
cores <- c("seagreen", "springgreen", "aquamarine", "lightskyblue", "slateblue")

barplot(VADeaths, 
  main = "Taxa de mortalidade na Virginia",
  beside = FALSE,
  xlab="Grupos populacionais",
  ylab="Mortes",
  col = cores,
  legend = rownames(VADeaths),
)

ClassificaçãoDoença

doentes<- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", 
           "moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", 
           "leve", "severo", "moderado", "moderado", "moderado", "leve")
freq <- table(doentes)

porcentagens <- round(freq / sum(freq) * 100)
rotulos <- paste(porcentagens, "%", sep = "")

cores <- c("cadetblue1", "gold", "indianred1")

pie(freq,
    label = rotulos,
    col = cores,
    main = "Distribuição por estágio de doenças")

legend("topright",
       legend = names(freq),
       fill = cores,
       title = "Estágio da doença")

Teorema

flu <- read.csv("C:/Users/rafae/Documents/rural/2024.1/comp analise de dados/2 va/flu.csv")
hist(flu$age, probability=T,
      main = "Histograma com curva de densidade")

densidade <- density(flu$age)

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

medias_amostras <- replicate(200, mean(sample(flu$age, 35, replace = TRUE)))

hist(medias_amostras, 
     probability = TRUE,
     main = "Histograma - 200 médias, n = 35")

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