Questões

VADeaths

VADeaths
##       Rural Male Rural Female Urban Male Urban Female
## 50-54       11.7          8.7       15.4          8.4
## 55-59       18.1         11.7       24.3         13.6
## 60-64       26.9         20.3       37.0         19.3
## 65-69       41.0         30.9       54.6         35.1
## 70-74       66.0         54.3       71.1         50.0
barplot(
  VADeaths,
  beside = TRUE,
  col = c("lightblue", "lightgreen", "orange", "pink", "purple"),
  main = "Taxas de mortalidade na Virgínia por idade, sexo e região",
  xlab = "Sexo e região",
  ylab = "Taxa de mortalidade",
  legend.text = rownames(VADeaths),
  args.legend = list(
    title = "Faixa etária",
    x = "topright",
    bty = "n",
    cex = 0.8
  ),
  las = 2
)

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"
)

freq <- table(doenca)

porcentagens <- round(100 * freq / sum(freq), 1)

rotulos <- paste(names(freq), "-", porcentagens, "%")

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

pie(
  freq,
  labels = rotulos,
  col = cores,
  main = "Classificação da doença por estágio"
)

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

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)

dados <- dados[order(dados$Murder, decreasing = TRUE), ]

top5 <- dados[1:5, ]

plot_ly(
  data = top5,
  x = ~City,
  y = ~Murder,
  type = "bar",
  name = "Murder"
) %>%
  add_trace(
    y = ~Rape,
    name = "Rape"
  ) %>%
  add_trace(
    y = ~Assault,
    name = "Assault"
  ) %>%
  layout(
    title = "Cinco estados mais violentos dos EUA",
    xaxis = list(title = "Estado"),
    yaxis = list(title = "Taxa"),
    barmode = "group",
    legend = list(title = list(text = "Variável"))
  )

Orange

library(plotly)

# Carregar o dataset
dados_orange <- Orange

# Criar texto personalizado para o tooltip
dados_orange$tooltip <- paste(
  "Árvore", dados_orange$Tree,
  "— idade:", dados_orange$age, "dias",
  "— circ.:", dados_orange$circumference, "mm"
)

# Gráfico de linha com Plotly
plot_ly(
  data = dados_orange,
  x = ~age,
  y = ~circumference,
  color = ~Tree,
  type = "scatter",
  mode = "lines+markers",
  text = ~tooltip,
  hoverinfo = "text"
) %>%
  layout(
    title = "Crescimento das laranjeiras",
    xaxis = list(title = "Idade em dias"),
    yaxis = list(title = "Circunferência em mm"),
    legend = list(title = list(text = "Árvore"))
  )