Prova 2VA

Questões

VADeaths

barplot(
  VADeaths,
  beside = TRUE,
  col = c("blue", "red", "yellow", "green", "purple"),
  main = "Taxas de mortalidade",
  xlab = "Faixa etária",
  ylab = "Taxa de mortalidade",
  legend.text = rownames(VADeaths),
  args.legend = list(
    title = "Grupos",
    x = "topright"
  )
)

ClassificaçãoDoença

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

pie(
  table(estagios),
  labels = paste(
    names(table(estagios)),
    round(100 * table(estagios) / length(estagios), 1),
    "%"
  ),
  col = c("lightgreen", "gold", "tomato"),
  main = "Distribuição dos estágios da doença"
)

legend(
  "topright",
  legend = names(table(estagios)),
  fill = c("lightgreen", "gold", "tomato"),
  title = "Estágios"
)

USArrests

library(plotly)

dados <- USArrests
dados$City <- rownames(dados)
dados <- dados[order(-dados$Murder),]

top5 <- head(dados, 5)
top5$City <- factor(top5$City, levels = top5$City)

plot_ly(top5, x = ~City) %>%
  add_bars(y = ~Murder, name = "Murder") %>%
  add_bars(y = ~Rape, name = "Rape") %>%
  add_bars(y = ~Assault, name = "Assault") %>%
  layout(
    barmode = "group",
    title = "5 estados mais violentos (EUA, 1973)",
    xaxis = list(title = "Estado"),
    yaxis = list(title = "Ocorrências")
  )

Orange

library(plotly)

plot_ly(
  data = Orange,
  x = ~age,
  y = ~circumference,
  color = ~Tree,
  type = "scatter",
  mode = "lines+markers",
  text = ~paste(
    "Árvore", Tree,
    " — idade:", age, "dias",
    " — circ.:", circumference, "mm"
  ),
  hovertemplate = "%{text}"
) %>%
  layout(
    title = "Crescimento das laranjeiras",
    xaxis = list(title = "Idade (dias)"),
    yaxis = list(title = "Circunferência (mm)")
  )