Análisis exploratorio y limpieza de datos

Estadísticas descriptivas básicas

Promedio total anual de suicidios (2020-2024): 210.2

Promedio anual en hombres(2020-2024): 179.2

Promedio anual en mujeres(2020-2024): 31

Gráficas iniciales

# Edades de 20 - 24
barplot(edad2$`20_24`,
        names.arg = edad2$Grupo_de_edad,
        las = 2,
        xlab = "Año",
        ylab = "Número de casos",
        main = "Edades de 20 - 24",
        col = "skyblue")

# Edades de Edades de 40 - 44
barplot(edad2$`40_44`,
        names.arg = edad2$Grupo_de_edad,
        las = 2,
        xlab = "Año",
        ylab = "Número de casos",
        main = "Edades de 40 - 44",
        col = "skyblue")

# Edades de Edades de 80 - 84
barplot(edad2$`80_84`,
        names.arg = edad2$Grupo_de_edad,
        las = 2,
        xlab = "Año",
        ylab = "Número de casos",
        main = "Edades de 80 - 84",
        col = "skyblue")

plot(genero$Periodo, genero$Hombres, type = "o", col = "blue",
     xlab = "Año", ylab = "Casos", main = "Suicidios por género(Hombres) (2020–2024)")

plot(genero$Periodo, genero$Mujeres, type = "o", col = "red",
     xlab = "Año", ylab = "Casos", main = "Suicidios por género(Mujeres) (2020–2024)")

matriz <- t(as.matrix(genero[, c("Hombres", "Mujeres")]))
barplot(matriz,
        beside = TRUE,
        names.arg = genero$Periodo,
        col = c("blue", "red"),
        xlab = "Año",
        ylab = "Casos",
        main = "Comparación por género")

legend("topright",
       legend = c("Hombres","Mujeres"),
       fill = c("blue","red"),
       cex = 0.6)

Manejo de datos faltantes o atípicos

Contamos con un solo dato faltante que sería la cantidad de casos de personas entre 80 en adelante en el año 2020. En el análisis de las edades usaremos los datos de 2021 al 2024.

En nuestro caso no tendremos casos atípicos.
### Atípicos

boxplot(edad2$`20_24`, main = "Atípicos edad 20-24")

boxplot(edad2$`40_44`, main = "Atípicos edad 40-44")

boxplot(edad2$`80_84`, main = "Atípicos edad 80-84")

boxplot(genero$Hombres, main = "Atípicos por género(Hombres)")

boxplot(genero$Mujeres, main = "Atípicos por género(Mujeres)")

Datos faltantes

Género

any(is.na(genero))

## [1] FALSE

Edad

any(is.na(edad))

## [1] TRUE