Questões

VADeaths

VADeaths
##       Rural Male Rural Female Urban Male Urban Female
## 50-54       11.7          8.7       15.4          8.4
## 55-59       18.1         11.7       24.3         13.6
## 60-64       26.9         20.3       37.0         19.3
## 65-69       41.0         30.9       54.6         35.1
## 70-74       66.0         54.3       71.1         50.0
barplot(
  VADeaths,
  beside = TRUE,
  col = c("lightblue", "lightgreen", "orange", "pink", "purple"),
  main = "Taxas de mortalidade na Virgínia por idade, sexo e região",
  xlab = "Sexo e região",
  ylab = "Taxa de mortalidade",
  legend.text = rownames(VADeaths),
  args.legend = list(
    title = "Faixa etária",
    x = "topright",
    bty = "n",
    cex = 0.8
  ),
  las = 2
)

ClassificaçãoDoença

# Dados dos pacientes
doenca <- c(
  "moderado", "leve", "leve", "severo", "leve",
  "moderado", "moderado", "moderado", "leve", "leve",
  "severo", "leve", "moderado", "moderado", "leve",
  "severo", "moderado", "moderado", "moderado", "leve"
)

# Frequência de cada estágio
freq <- table(doenca)

# Porcentagens
porcentagens <- round(100 * freq / sum(freq), 1)

# Rótulos com porcentagem
rotulos <- paste(names(freq), "-", porcentagens, "%")

# Cores das fatias
cores <- c("lightblue", "orange", "tomato")

# Gráfico de pizza usando gráficos tradicionais do R
pie(
  freq,
  labels = rotulos,
  col = cores,
  main = "Classificação da doença por estágio"
)

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