2VA

VA DEATHS

library(ggplot2)

# Usar o dataset VADeaths
data("VADeaths")

# Gerar o gráfico de barras empilhadas com os dados já agrupados em uma matriz
barplot(
  VADeaths, 
  main = "Taxa de Mortalidade na Virgínia em 1940",
  beside = F,               
  col = rainbow(5), 
  xlab = "Grupos de Idade", 
  ylab = "Mortes"
)

# Adicionar uma legenda
legend("topright", inset = 0.05, legend = rownames(VADeaths), fill = rainbow(5))

ClassificaçãoDoença

# Dados fornecidos
dados <- c("moderado", "leve", "leve", "severo", "leve", "moderado", "moderado", "moderado", "leve", "leve", "severo","leve", "moderado", "moderado", "leve", "severo", "moderado", "moderado", "moderado","leve")

# Criando uma tabela de frequência
freq <- table(dados)

# Calculando as porcentagens
porcentagem <- round(prop.table(freq) * 100, 2)

# Criando o gráfico de pizza
pie(porcentagem, labels = paste0(names(porcentagem), "\n", porcentagem, "%"), col = c("lightblue", "pink", "lightgreen"), main = "Estágios da doença")

# Adicionando a legenda
legend("topright", legend = names(porcentagem), fill = c("lightblue", "pink", "lightgreen"))