Gráficos

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("#003f5c", "#68a31b", "#006c6f", "#008261", "#ffa600")

barplot(VADeaths,
        beside = FALSE,
        col = cores,
        main = "Taxas de mortalidade na Virgínia (1940) por categoria",
        xlab = "Categoria (local e sexo)",
        ylab = "Taxa de mortalidade (por 1000 habitantes)",
        ylim = c(0, 250),
        legend.text = rownames(VADeaths),
        args.legend = list(x = "topleft", title = "Faixa etária", cex = 0.9))

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(factor(dados, levels = c("leve", "moderado", "severo")))
tabela

## 
##     leve moderado   severo 
##        8        9        3

porcentagem <- round(100 * prop.table(tabela), 1)
rotulos <- paste0(porcentagem, "%")
cores_pizza <- c("#800080", "#000080", "#008000")

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

legend("topright",
       legend = names(tabela),
       fill = cores_pizza,
       title = "Estágio")

USArrests

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

df <- df[order(df$Murder, decreasing = TRUE), ]
top5 <- head(df, 5)

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

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

Orange

laranja <- as.data.frame(Orange)
laranja$Tree <- factor(as.character(laranja$Tree), levels = c("1", "2", "3", "4", "5"))

plot_ly(laranja,
        x = ~age,
        y = ~circumference,
        color = ~Tree,
        colors = c("#e41a1c", "#377eb8", "#4daf4a", "#984ea3", "#ff7f00"),
        type = "scatter",
        mode = "lines+markers",
        text = ~paste0("Árvore ", Tree, " — idade: ", age, " dias — circ.: ", circumference, " mm"),
        hoverinfo = "text") %>%
  layout(title = "Crescimento das laranjeiras",
         xaxis = list(title = "Idade (dias)"),
         yaxis = list(title = "Circunferência (mm)"),
         legend = list(title = list(text = "Árvore")))