SegundaVA

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

VADeaths

barplot(VADeaths, beside = FALSE,
        col = c("blue", "cyan", "green",
                "orange", "red"),
        legend.text = rownames(VADeaths),
        ylim = c(0, 200),
        ylab = "Morte por 1000",
        xlab = "Grupos")
title(main = "Death Rates in Virginia (1940)", font.main = 2)

ClassificaçãoDoenças

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

estagios <- factor(estagios, levels = c("leve", "moderado", "severo"))
contagem <- table(estagios)

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

pie(
  contagem,
  labels = porcentagens,
  col =  c("blue", "green", "red"),
  main = "Classificação dos estágios da doença"
)

legend(
  "topright",
  legend =  unique(estagios),
  fill = c("blue", "green", "red"),
  title = "Estágio"
)

USArrests

dados_top5 <- USArrests |>
  mutate(City = rownames(USArrests)) |>
  arrange(desc(Murder)) |>
  slice_head(n = 5)

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

plot_ly(
  data = dados_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 (EUA, 1973)",
    xaxis = list(title = "Estado"),
    yaxis = list(title = "Ocorrências"),
    barmode = 'group',
    legend = colnames(USArrests)
  )

Orange

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

plot_ly(
  data = dados_orange,
  x = ~age,
  y = ~circumference,
  color = ~Tree,
  colors =  c("blue", "cyan", "green",
                "orange", "red"),
  type = "scatter",
  mode = "lines+markers",
  text = ~paste0("Árvore ", Tree, ", idade: ", age, " dias, circ.: ", circumference),
  hoverinfo = "text"
) %>%
  layout(
    title = "Crescimento das laranjeiras",
    xaxis = list(title = "Idade"),
    yaxis = list(title = "Circunferência"),
    legend = list(unique(dados_orange$Tree))
  )