#2VA

Análise e Visualização de dados

VADeaths

 deaths <- VADeaths

ruralMale <- deaths[,'Rural Male']
ruralFemale <- deaths[,'Rural Female']
urbanMale <- deaths[,'Urban Male']
urbanFemale <- deaths[,'Urban Female']

categories <- c('50-54', '55-59', '60-64', '65-69', '70-74')
colors <- c('blue', 'red', 'green', 'yellow')

death_matrix <- matrix(c(
  ruralMale,
  ruralFemale,
  urbanMale,
  urbanFemale
), nrow = 4, ncol=5, byrow = TRUE)

barplot(death_matrix, col = colors, names.arg = categories,
        main = "VADeaths",
        xlab = "Age group", ylab = "Death Rates")

legend("topleft", pch = c(15,15,15),  legend = c("Rural Male", "Rural Female", "Urban Male", "Urban Female"), col= colors)

Classificação Doença

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

frequencias <- table(estagios_doenca)



percentuais <- (frequencias / length(estagios_doenca)) * 100
labels <- paste(percentuais,"%",sep="")

pie(frequencias, labels, main = "Estagios doenca", col = rainbow(length(frequencias)))
legend("topleft", legend = 'estágios', fill = rainbow(length(frequencias)))