Casos de intoxicação por animal peçonhento (Brasil, 2005)

Terceira VA

Gráfico de Pizza

knitr::opts_chunk$set(echo = TRUE)

# Carregue as bibliotecas necessárias
library(ggplot2)

# Dados
dados <- data.frame(
  Animal = c("Escorpião", "Serpente", "Aranha", "Outros animais"),
  Total = c(8208, 4944, 4661, 5834)
)

# Gráfico de pizza
grafico_pizza <- pie(dados$Total, labels = paste(dados$Animal, ": ", dados$Total), 
                     col = rainbow(nrow(dados)),
                     main = "Casos de intoxicação por animal peçonhento (Brasil, 2005)")

# Mostrar os gráfico
grafico_pizza

## NULL

Gráfico de Barras

knitr::opts_chunk$set(echo = TRUE)

# Carregue as bibliotecas necessárias
library(ggplot2)

# Dados
dados <- data.frame(
  Animal = c("Escorpião", "Serpente", "Aranha", "Outros animais"),
  Total = c(8208, 4944, 4661, 5834)
)

# Gráfico de barras
grafico_barras <- ggplot(dados, aes(x = Animal, y = Total, fill = Animal)) +
  geom_bar(stat = "identity") +
  labs(title = "Casos de intoxicação por animal peçonhento (Brasil, 2005)",
       x = "Animal", y = "Total",
       fill = "Animal") +
  theme_minimal() +
  theme(legend.position = "none")  # Remover a legenda
  
  
# Mostrar os gráfico
grafico_barras