VADeaths

Questão 1

VADeaths

barplot(
  VADeaths,
  beside = TRUE,
  col = c("steelblue", "tomato", "gold", "seagreen", "purple"),
  main = "Taxa de Mortalidade por Faixa Etária e Localidade",
  xlab = "Categorias",
  ylab = "Taxa de Mortalidade",
  legend.text = rownames(VADeaths),
  args.legend = list(
    title = "Faixa Etária",
    x = "topright"
  )
)

ClassificaçãoDoença

doenca <- c(
  "moderado", "leve", "leve", "severo", "leve",
  "moderado", "moderado", "moderado", "leve", "leve",
  "severo", "leve", "moderado", "moderado", "leve",
  "severo", "moderado", "moderado", "moderado", "leve"
)

tabela <- table(doenca)

porcentagem <- round(100 * tabela / sum(tabela), 1)

rotulos <- paste(names(tabela), "-", porcentagem, "%")

cores <- c("lightblue", "gold", "tomato")

pie(
  tabela,
  labels = rotulos,
  col = cores,
  main = "Classificação dos Estágios da Doença"
)

legend(
  "topright",
  legend = names(tabela),
  fill = cores,
  title = "Estágio da doença"
)

USArrests

library(plotly)

## Carregando pacotes exigidos: ggplot2

## 
## Anexando pacote: 'plotly'

## O seguinte objeto é mascarado por 'package:ggplot2':
## 
##     last_plot

## O seguinte objeto é mascarado por 'package:stats':
## 
##     filter

## O seguinte objeto é mascarado por 'package:graphics':
## 
##     layout

dados <- USArrests

dados$City <- rownames(dados)

top5 <- dados[order(-dados$Murder), ][1:5, ]

fig <- plot_ly(
  data = top5,
  x = ~City,
  y = ~Murder,
  type = "bar",
  name = "Murder"
)

fig <- fig %>%
  add_trace(
    y = ~Rape,
    name = "Rape"
  ) %>%
  add_trace(
    y = ~Assault,
    name = "Assault"
  ) %>%
  layout(
    title = "Top 5 Estados Mais Violentos - USArrests",
    xaxis = list(title = "Estados"),
    yaxis = list(title = "Valores"),
    barmode = "group",
    legend = list(title = list(text = "Variáveis"))
  )

fig

Orange

library(plotly)

dados <- Orange

plot_ly(
  data = dados,
  x = ~age,
  y = ~circumference,
  color = ~Tree,
  type = "scatter",
  mode = "lines+markers",
  text = ~paste(
    "Á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)")
  )