Objetivo

Comparar os dados de ocorrências policiais entre os anos de 2022 e 2025.

Origem dos Dados

Os dados foram extraídos do arquivo DadosPolicia.xlsx, localizado na pasta Desktop/teste.
Cada planilha corresponde a um ano (2022, 2023, 2024, 2025).

Código em R

caminho <- "C:/Users/tatiane.santos/Desktop/teste/DadosPolicia.xlsx"

anos <- c("2022","2023","2024","2025")

dados <- lapply(anos, function(ano){
  df <- readxl::read_excel(caminho, sheet = ano)
  total <- sum(df$Total, na.rm = TRUE)
  data.frame(Ano = ano, Total = total)
}) %>% dplyr::bind_rows()

dados

Mostrar a tabela resumida

Criar gráfico comparativo

ggplot(dados, aes(x = Ano, y = Total, fill = Ano)) +
  geom_col() +
  theme_minimal() +
  labs(title = "Total de Ocorrências Policiais (2022–2025)",
       x = "Ano", y = "Total de Ocorrências")