Alana Barbalho Camara Lins

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

cores <- c("#E63946", "#457B9D", "#2A9D8F", "#E9C46A")

barplot(
  t(VADeaths),
  beside      = TRUE,
  col         = cores,
  names.arg   = rownames(VADeaths),
  main        = "Taxa de Mortalidade na Virgínia (1940)",
  xlab        = "Faixa Etária",
  ylab        = "Taxa de Mortalidade (por 1000 habitantes)",
  legend.text = colnames(VADeaths),
  args.legend = list(
    x     = "topright",
    bty   = "n",
    title = "Grupo"
  ),
  ylim = c(0, max(VADeaths) * 1.5)
)

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

contagem    <- table(factor(dados, levels = c("leve","moderado","severo")))
pct         <- round(100 * contagem / sum(contagem), 1)
rotulos     <- paste0(pct, "%")
cores_pizza <- c("#2A9D8F", "#E9C46A", "#E63946")

pie(contagem, labels = rotulos, col = cores_pizza,
    main = "Classificação de Doença em 20 Pacientes")

legend("bottomright", legend = c("Leve","Moderado","Severo"),
       fill = cores_pizza, bty = "n", title = "Estágio")

USArrests

library(plotly)

df       <- USArrests
df$City  <- rownames(df)
df       <- df[order(df$Murder, decreasing = TRUE), ]
top5     <- df[1:5, ]

# Fixa a ordem no eixo X
top5$City <- factor(top5$City, levels = top5$City)

plot_ly(top5, x = ~City, y = ~Murder, type = "bar", name = "Murder",
        marker = list(color = "#4472C4")) %>%
  add_trace(y = ~Rape,    name = "Rape",
            marker = list(color = "#ED7D31")) %>%
  add_trace(y = ~Assault, name = "Assault",
            marker = list(color = "#70AD47")) %>%
  layout(
    barmode = "group",
    title   = "5 estados mais violentes (EUA, 1973)",
    xaxis   = list(title = "Estado", categoryorder = "array",
                   categoryarray = levels(top5$City)),
    yaxis   = list(title = "Ocorrências", range = c(0, 350),
                   tickvals = list(0, 100, 200, 300)),
    legend  = list(x = 1.01, y = 0.9)
  )

Orange

library(plotly)

cores_orange <- c("#E63946", "#457B9D", "#2A9D8F", "#E9C46A", "#9B5DE5")

fig <- plot_ly()

for (i in 1:5) {
  arv <- subset(Orange, Tree == i)
  fig <- add_trace(
    fig,
    x         = arv$age,
    y         = arv$circumference,
    type      = "scatter",
    mode      = "lines+markers",
    name      = paste("Árvore", i),
    line      = list(color = cores_orange[i]),
    marker    = list(color = cores_orange[i]),
    text      = paste0("Árvore ", i,
                       " — idade: ", arv$age, " dias",
                       " — circ.: ", arv$circumference, " mm"),
    hoverinfo = "text"
  )
}

fig %>% layout(
  title  = "Crescimento das Laranjeiras",
  xaxis  = list(title = "Idade (dias)"),
  yaxis  = list(title = "Circunferência (mm)"),
  legend = list(title = list(text = "Árvore"))
)

Link RPubs: