Questões

VADeaths

install.packages(“curl”) library(curl)

data("VADeaths")
dados_va <- t(VADeaths)
cores_va <- c("orange", "blue", "yellow", "gray")

barplot(
  dados_va,
  beside = TRUE,
  col = cores_va,
  main = "Taxas de Mortalidade por Faixa Etária",
  xlab = "Faixa etária",
  ylab = "Taxa de mortalidade",
  names.arg = colnames(dados_va),
  ylim = c(0, max(dados_va) * 1.2)
)

legend(
  "topright",
  legend = rownames(dados_va),
  fill = cores_va,
  title = "Grupo",
  cex = 0.7
)

Gravidade-Doença

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

frequencia <- table(factor(
  pacientes,
  levels = c("leve", "moderado", "severo")
))
porcentagem <- round(frequencia / sum(frequencia) * 100)
cores_doenca <- c("black", "orange", "purple")

pie(
  frequencia,
  labels = paste0(names(frequencia), "\n", porcentagem, "%"),
  col = cores_doenca,
  main = "Classificação dos Pacientes por Estágio da Doença"
)

legend(
  "topright",
  legend = names(frequencia),
  fill = cores_doenca,
  title = "Estágios da doença",
  cex = 0.8
)

USArrests

)

install.packages("dplyr")
## Instalando pacote em '/home/aluno/R/x86_64-pc-linux-gnu-library/4.6'
## (como 'lib' não foi especificado)
install.packages("plotly")
## Instalando pacote em '/home/aluno/R/x86_64-pc-linux-gnu-library/4.6'
## (como 'lib' não foi especificado)
library(dplyr)
## 
## Anexando pacote: 'dplyr'
## Os seguintes objetos são mascarados por 'package:stats':
## 
##     filter, lag
## Os seguintes objetos são mascarados por 'package:base':
## 
##     intersect, setdiff, setequal, union
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
data("USArrests")
dados_us <- USArrests
dados_us$City <- rownames(dados_us)

#Estados.
estados_modelo <- c(
  "Georgia", "Mississippi", "Florida",
  "Louisiana", "South Carolina"
)
top5 <- dados_us[estados_modelo, , drop = FALSE]
top5$City <- factor(top5$City, levels = estados_modelo)

grafico_us <- plot_ly(
  data = top5,
  x = ~City,
  y = ~Murder,
  name = "Murder",
  type = "bar",
  marker = list(color = "pink")
) %>%
  add_trace(
    y = ~Rape,
    name = "Rape",
    marker = list(color = "brown")
  ) %>%
  add_trace(
    y = ~Assault,
    name = "Assault",
    marker = list(color = "darkgreen")
  ) %>%
  layout(
    title = "5 estados mais violentos (EUA, 1973)",
    xaxis = list(title = "Estado"),
    yaxis = list(title = "Ocorrências"),
    barmode = "group",
    legend = list(title = list(text = ""))
  )

grafico_us

Orange

data("Orange")
Orange
##    Tree  age circumference
## 1     1  118            30
## 2     1  484            58
## 3     1  664            87
## 4     1 1004           115
## 5     1 1231           120
## 6     1 1372           142
## 7     1 1582           145
## 8     2  118            33
## 9     2  484            69
## 10    2  664           111
## 11    2 1004           156
## 12    2 1231           172
## 13    2 1372           203
## 14    2 1582           203
## 15    3  118            30
## 16    3  484            51
## 17    3  664            75
## 18    3 1004           108
## 19    3 1231           115
## 20    3 1372           139
## 21    3 1582           140
## 22    4  118            32
## 23    4  484            62
## 24    4  664           112
## 25    4 1004           167
## 26    4 1231           179
## 27    4 1372           209
## 28    4 1582           214
## 29    5  118            30
## 30    5  484            49
## 31    5  664            81
## 32    5 1004           125
## 33    5 1231           142
## 34    5 1372           174
## 35    5 1582           177
grafico_orange <- plot_ly(
  data = Orange,
  x = ~age,
  y = ~circumference,
  color = ~Tree,
  type = "scatter",
  mode = "lines+markers",
  text = ~paste0(
    "Árvore ", Tree,
    " — idade: ", age,
    " dias — circ.: ", circumference,
    " mm."
  ),
  hoverinfo = "text"
) %>%
  layout(
    title = "Circunferência das Laranjeiras por Idade",
    xaxis = list(title = "Idade (dias)"),
    yaxis = list(title = "Circunferência (mm)"),
    legend = list(title = list(text = "Árvore"))
  )

grafico_orange