library(plotly)
library(dplyr)

Questões

Inicio

VADeaths

summary(VADeaths)
##    Rural Male     Rural Female     Urban Male     Urban Female  
##  Min.   :11.70   Min.   : 8.70   Min.   :15.40   Min.   : 8.40  
##  1st Qu.:18.10   1st Qu.:11.70   1st Qu.:24.30   1st Qu.:13.60  
##  Median :26.90   Median :20.30   Median :37.00   Median :19.30  
##  Mean   :32.74   Mean   :25.18   Mean   :40.48   Mean   :25.28  
##  3rd Qu.:41.00   3rd Qu.:30.90   3rd Qu.:54.60   3rd Qu.:35.10  
##  Max.   :66.00   Max.   :54.30   Max.   :71.10   Max.   :50.00
cores <- c("blue", "orange", "brown", "yellow", "green")

barplot(VADeaths,beside = TRUE, col = cores, main = "Taxas de mortalidade", xlab = "Grupo", ylab = "Mortes por 1000 habitantes", legend.text = rownames(VADeaths), args.legend = list(x = "topleft", title = "Faixa etária",bty = "n"))

Classificação Doença

estagio <- c("leve", "moderado", "severo")
exames  <- c(8, 9, 3)
pct  <- round(exames/sum(exames) * 100)
lbls <- paste(estagio, pct)
lbls <- paste(lbls, "%", sep = "")
pie(exames, labels = lbls, main = "Estágio da doença", col = rainbow(3))

USArrests

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

top5 <- dados %>%arrange(desc(Murder)) %>% head(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(
    title  = "5 estados mais violentos",
    barmode = "group",
    xaxis  = list(title = "Estado"),
    yaxis  = list(title = "Ocorrências")
  )

Orange

dados <- Orange

plot_ly(dados,x = ~age, y = ~circumference,color = ~Tree, colors = "Dark2", 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"))
  )