Questão - Classificação da Doença

Resultados

Objetivo

Representar graficamente a distribuição dos pacientes entre os três estágios da doença utilizando um gráfico de pizza.

Frequências Observadas

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

freq <- table(doenca)

freq

## doenca
##     leve moderado   severo 
##        8        9        3

Visualização

porcentagem <- round(freq / sum(freq) * 100)

rotulos <- paste0(
  names(freq),
  " (",
  porcentagem,
  "%)"
)

cores <- c(
  "#2ECC71",
  "#F1C40F",
  "#E74C3C"
)

pie(
  freq,
  labels = rotulos,
  col = cores,
  main = "Distribuição dos Estágios da Doença",
  border = "white"
)

legend(
  "topright",
  legend = names(freq),
  fill = cores,
  title = "Classificação",
  bty = "n"
)

Resumo

Foram analisados 20 pacientes. A categoria Moderado apresentou a maior frequência (45%), seguida por Leve (40%) e Severo (15%).