Comparendos de transito Agosto 2010 en Barranquilla

Total de recolecta en los comparendos

library(readxl)
BD_Comparendos_OK_ <- read_excel("BD_Comparendos_OK_.xlsx")
suma_de_columna <- sum(BD_Comparendos_OK_$VALOR_A_PAGAR)
suma_de_columna

## [1] 930468000

# histograma
hist(
  BD_Comparendos_OK_$VALOR_A_PAGAR,
  main = "Histograma de Valor a Pagar",
  xlab = "Valor a Pagar",
  col = "skyblue",
  border = "white"
)