Avaliação 2VA

Respostas Questões 1 - 4

VADeaths

#carregando dataset
data('VADeaths')
?VADeaths

cores <- c("blue", "orange", "green", "red", "purple")


barplot(VADeaths,
        beside = TRUE,
        col = cores,
        main = "Taxa de mortalidade na Virginia por Grupo e faixa",
        xlab = "Grupos Demograficos",
        ylab = "Taxa de Mortalidade (por 1000 habitantes) ",
        names.arg = c("homen(rural)", "mulher(rural)","homem(cidade)","mulher(cidade)")
        )

legend(
  "topleft",
  legend = rownames(VADeaths),
  fill = cores,
  title = "Faixa Etaria",
  bty = "n"
)

ClassificaçãoDoença

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

contagem <- table(pacientes)
porcentagem <- round(prop.table(contagem) * 100, 1)

rotulos <- paste0(porcentagem, "%")

cores <- c("green", "orange", "pink")

pie(
  contagem,
  labels = rotulos,
  col = cores,
  main = "Distribuicao dos estagios da doença (20 Pacientes)"
  
)

legend(
  "topright",
  legend = paste0(names(contagem)),
  fill = cores,
  title = "Estagio da Doenca"
)

USArrests

#view(USArrests) e ?USArrests

top5_violentos <- USArrests %>%
  mutate(estados = rownames(USArrests)) %>%
  arrange(desc(Murder)) %>%
  slice(1:5)

top5_violentos$estados <- factor(top5_violentos$estados, levels = top5_violentos$estados)
  

plot_ly(top5_violentos, x = ~estados) %>%
  add_bars(y = ~Murder, name = "Murder") %>%
  add_bars(y = ~Rape, name = "Rape") %>%
  add_bars(y = ~Assault, name = "Assault") %>%
  layout(
    barmode = "group",
    title = "5 Estados Mais Violentos",
    xaxis = list(title = "Estado"),
    yaxis = list(title = "Taxa de Crimes (por 100.000 hab.)"),
    legend = list(title = list(text = "<b>Crime</b>"))
  )

Orange

# ?Orange e View(Orange)

data("Orange")

Orange$Tree <- factor(Orange$Tree, levels = c("1", "2", "3", "4", "5"), ordered = FALSE)

plot_ly(
  data = Orange,
  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 das Laranjeiras: Idade vs. Circunferencia",
    xaxis = list(title = "Idade (dias)"),
    yaxis = list(title = "Circunferencia (mm)"),
    legend = list(title = list(text = "<b>Arvore</b>"))
  )