## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----------------------------------------------------------------------------- # Cargar el paquete library(verdadecu) ## ----------------------------------------------------------------------------- # Ver todos los datos disponibles data(package = "verdadecu") ## ----------------------------------------------------------------------------- # Cargar datos de víctimas por año data(victimas_anio) head(victimas_anio) ## ----------------------------------------------------------------------------- # Cargar datos de víctimas por provincia data(victimas_provincia) head(victimas_provincia) ## ----------------------------------------------------------------------------- # Cargar datos de hechos por año data(hechos_anio) head(hechos_anio) ## ----------------------------------------------------------------------------- # Cargar datos de víctimas por sexo data(victimas_sexo) head(victimas_sexo) ## ----------------------------------------------------------------------------- # Calcular total de víctimas por año total_por_anio <- aggregate(victima ~ anio, data = victimas_anio, sum) head(total_por_anio) ## ----------------------------------------------------------------------------- # Calcular total de víctimas por provincia total_por_provincia <- aggregate(victima ~ provincia, data = victimas_provincia, sum) top_5_provincias <- head(total_por_provincia[order(-total_por_provincia$victima), ], 5) top_5_provincias