Questões

1. 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_idade <- c("#1b9e77", "#d95f02", "#7570b3", "#e7298a", "#66a61e")

barplot(VADeaths,
        beside = TRUE,                 # barras agrupadas (lado a lado) por categoria
        col = cores_idade,             # uma cor por faixa etária
        main = "Taxas de mortalidade na Virgínia (1940)",
        xlab = "Grupo populacional (zona e sexo)",
        ylab = "Mortes por 1000 habitantes",
        ylim = c(0, 90))

legend("top", legend = rownames(VADeaths), fill = cores_idade,
       title = "Faixa etária", horiz = TRUE, bty = "n", cex = 0.9)

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

estagios <- factor(estagios, levels = c("leve", "moderado", "severo"))
freq <- table(estagios)

pct <- round(as.numeric(freq) / sum(freq) * 100)
rotulos <- paste0(pct, "%")
cores_estagio <- c("#4daf4a", "#ff7f00", "#e41a1c")  # leve, moderado, severo

pie(as.numeric(freq),
    labels = rotulos,
    col = cores_estagio,
    main = "Classificação dos pacientes por estágio da doença")

legend("topright",
       legend = paste0(names(freq), " (", as.numeric(freq), " pacientes)"),
       fill = cores_estagio, cex = 0.9)

3. USArrests

usa <- USArrests
usa$City <- rownames(usa)                                 # nomes vêm dos rownames
usa <- usa[order(usa$Murder, decreasing = TRUE), ]        # ordem decrescente por Murder
top5 <- head(usa, 5)                                      # 5 estados mais violentos
top5$City <- factor(top5$City, levels = top5$City)        # mantém a ordem no eixo x

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 = "Os 5 estados com mais assassinatos nos EUA (1973)",
         barmode = "group",
         xaxis = list(title = "Estado"),
         yaxis = list(title = "Prisões por 100 mil habitantes"),
         legend = list(title = list(text = "Crime")))

4. Orange

laranjas <- Orange
# Tree vem como fator ordenado (3 < 1 < 5 < 2 < 4); reordena para 1 a 5
laranjas$Tree <- factor(as.character(laranjas$Tree), levels = as.character(1:5))

plot_ly(laranjas,
        x = ~age, y = ~circumference,
        color = ~Tree, colors = "Set1",
        type = "scatter", mode = "lines+markers",
        text = ~paste0("Árvore ", Tree, " — idade: ", age,
                       " dias — circ.: ", circumference, " mm"),
        hoverinfo = "text") %>%
  layout(title = "Crescimento da circunferência das laranjeiras",
         xaxis = list(title = "Idade (dias)"),
         yaxis = list(title = "Circunferência (mm)"),
         legend = list(title = list(text = "Árvore")))