Prova 2VA

Resoluções

VADeaths

barplot(
  VADeaths, 
  main = "VADeaths", 
  xlab = "Faixa Etária e Localidade", 
  ylab = "Mortes", 
  col = c("black", "darkred", "red", "orange", "pink"), 
  beside = TRUE,
  legend.text = TRUE,
  args.legend = list(x = "topright", bty = "n", title = "Grupos")
)

ClassificaçãoDoença

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

tabela <- table(dados)
tabela <- tabela[c("leve", "moderado", "severo")]
porcentagens <- round(prop.table(tabela) * 100, 1)
rotulos <- paste0(names(tabela), " (", porcentagens, "%)")
cores <- c("darkred", "orange", "pink")

# Gráfico
pie(tabela, 
    labels = rotulos, 
    col = cores, 
    main = "Classificação da Doença em Pacientes")

legend("topright", 
       legend = c("Leve", "Moderado", "Severo"), 
       fill = cores, 
       title = "Estágios")

USArrests

dados <- USArrests
dados$City <- rownames(dados)

top5 <- dados[order(dados$Murder, decreasing = TRUE), ][1:5, ]
top5$City <- factor(top5$City, levels = top5$City)

# Gráfico
fig <- plot_ly(top5, x = ~City, y = ~Murder, type = 'bar', name = 'Murder') %>%
  add_trace(y = ~Rape, name = 'Rape') %>%
  add_trace(y = ~Assault, name = 'Assault') %>%
  layout(
    title = "5 Estados mais violentos - EUA 1973",
    xaxis = list(title = "Estado"),
    yaxis = list(title = "Ocorrência (por 100 mil habitantes)"),
    barmode = 'group',
    legend = list(title = list(text = "Tipo de Crime"))
  )

fig

Orange

data("Orange")
Orange$Tree <- factor(Orange$Tree, levels = c("1", "2", "3", "4", "5"))

# Gráfico
plot_ly(
  data = Orange,
  x = ~age,
  y = ~circumference,
  color = ~Tree,
  colors = c("black", "darkred", "red", "orange", "pink"),
  type = "scatter",
  mode = "lines+markers",
  text = ~paste0(
    "Árvore ", Tree,
    " — idade: ", age, " dias",
    " — circ.: ", circumference, " mm"
  ),
  hoverinfo = "text"
) %>%
  layout(
    title = "Orange",
    xaxis = list(title = "Idade (dias)"),
    yaxis = list(title = "Circunferência (mm)"),
    legend = list(title = list(text = "<b>Árvore</b>"))
  )