2VA - CPAD

Gráficos

VADeaths

categorias <- c("#004C94","#006ECF", "#3C93FA", "#00D4C6", "#0FA69D")

barplot(
  VADeaths,
  beside      = TRUE,                      
  col         = categorias,                     
  main        = "mortalidade na Virgínia",
  xlab        = "Categoria",
  ylab        = "Mortes",
  ylim        = c(0, 80),
  legend.text = rownames(VADeaths),
  args.legend = list(x = "topleft", title = "Faixa etária", bty = "n")
)

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")

freq <- table(factor(dados, levels = c("leve", "moderado", "severo")))
pct  <- round(100 * freq / sum(freq), 1)
rotulos <- paste0(pct, "%")
cores <- c("#3C93FA", "#004C94", "#2D3F54")

pie(freq,
    labels = rotulos,
    col    = cores,
    main   = "Classificação da doença em 20 pacientes")

legend("topright",
       legend = names(freq),
       fill   = cores,
       title  = "Estagio:")

USArrests

top5 <- USArrests %>%
  mutate(City = rownames(USArrests)) %>%
  arrange(desc(Murder)) %>%
  slice_head(n = 5)


top5$City <- factor(top5$City, levels = top5$City)

plot_ly(top5, x = ~City) %>%
  add_bars(y = ~Murder,  name = "Murder",  marker = list(color = "#4472C4")) %>%
  add_bars(y = ~Rape,    name = "Rape",    marker = list(color = "#ED7D31")) %>%
  add_bars(y = ~Assault, name = "Assault", marker = list(color = "#54A24B")) %>%
  layout(
    barmode = "group",
    title   = "Os 5 estados mais violentos",
    xaxis   = list(title = "Estado"),
    yaxis   = list(title = "Ocorrências")
  )

Orange

laranja <- as.data.frame(Orange)
laranja$Tree <- as.character(laranja$Tree)

laranja$texto <- paste0("Árvore ", laranja$Tree,
                        " — idade: ", laranja$age,
                        " dias — circ: ", laranja$circumference, " mm")

plot_ly(
  laranja,
  x = ~age, y = ~circumference,
  color = ~Tree,
  type = "scatter", mode = "lines+markers",
  text = ~texto, hoverinfo = "text"
) %>%
  layout(
    title = "Crescimento das laranjeiras",
    xaxis = list(title = "Idade"),
    yaxis = list(title = "Circunferência")
  )