Introducción a verdadecu

# Cargar datos de víctimas por año
data(victimas_anio)
head(victimas_anio)
#>   anio victima
#> 1 1984      14
#> 2 1985      49
#> 3 1986      82
#> 4 1987     167
#> 5 1988       8
#> 6 1989       3

# Cargar datos de víctimas por provincia
data(victimas_provincia)
head(victimas_provincia)
#>   provincia     ciudad victima
#> 1 Pichincha      Quito      82
#> 2 Pichincha       Otra       2
#> 3    Guayas   Naranjal      90
#> 4    Guayas  Guayaquil      55
#> 5    El Oro     Pasaje      60
#> 6    El Oro Santa Rosa       4

# Cargar datos de hechos por año
data(hechos_anio)
head(hechos_anio)
#>   anio                                hecho violacion
#> 1 1984      Privacion ilegal de la libertad        10
#> 2 1984                              Tortura        13
#> 3 1984                     Violencia sexual         7
#> 4 1984                 Desaparicion forzada        NA
#> 5 1984 Atentado contra el derecho a la vida        NA
#> 6 1984              Ejecucion extrajudicial         1

# Cargar datos de víctimas por sexo
data(victimas_sexo)
head(victimas_sexo)
#>     sexo victima
#> 1 hombre     382
#> 2  mujer      74

# Calcular total de víctimas por año
total_por_anio <- aggregate(victima ~ anio, data = victimas_anio, sum)
head(total_por_anio)
#>   anio victima
#> 1 1984      14
#> 2 1985      49
#> 3 1986      82
#> 4 1987     167
#> 5 1988       8
#> 6 1989       3

# 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
#>     provincia victima
#> 8      Guayas     145
#> 13  Pichincha      84
#> 5      El Oro      71
#> 10       Loja      66
#> 6  Esmeraldas      26