Estadisticas WHO (1985 - 2O16*)
Librerías para análisis:
library(readr)
library(dplyr)
library(fdth)
library(ggplot2)
Lectura de archivo .csv:
datos_suicidio <- read.csv("C:/Users/cinth/Documents/ITD/Analisis inteligente de datos/Datos/who_suicide_statistics.csv", encoding = "UTF-8")
head(datos_suicidio, 10)
country year sex age suicides_no population
1 Albania 1985 female 15-24 years NA 277900
2 Albania 1985 female 25-34 years NA 246800
3 Albania 1985 female 35-54 years NA 267500
4 Albania 1985 female 5-14 years NA 298300
5 Albania 1985 female 55-74 years NA 138700
6 Albania 1985 female 75+ years NA 34200
7 Albania 1985 male 15-24 years NA 301400
8 Albania 1985 male 25-34 years NA 264200
9 Albania 1985 male 35-54 years NA 296700
10 Albania 1985 male 5-14 years NA 325800
Limpieza de los datos:
datos_suicidio$country <-factor(datos_suicidio$country)
datos_suicidio$sex <-factor(datos_suicidio$sex)
datos_suicidio$age <-factor(datos_suicidio$age)
datos_suicidio$year <- as.numeric(datos_suicidio$year)
Del total de los datos, se seleccionaron el país, año, género, grupos de edades y el número de suicidios.
Selección de datos México:
Los datos analizados para México son a partir del año 2010 al 2015, de hombres y mujeres en los siguientes rangos de edad:
* 5 a 14 años
* 15 a 24 años
* 25 a 34 años
* 35 a 54 años
* 55 a 74 años
* 75 + años
datos_mexico <- datos_suicidio %>%
select(country, year, sex, age, suicides_no) %>%
filter(country == "Mexico", year >= 2010)
datos_mexico
country year sex age suicides_no
1 Mexico 2010 female 15-24 years 350
2 Mexico 2010 female 25-34 years 177
3 Mexico 2010 female 35-54 years 231
4 Mexico 2010 female 5-14 years 73
5 Mexico 2010 female 55-74 years 62
6 Mexico 2010 female 75+ years 7
7 Mexico 2010 male 15-24 years 1074
8 Mexico 2010 male 25-34 years 936
9 Mexico 2010 male 35-54 years 1191
10 Mexico 2010 male 5-14 years 109
11 Mexico 2010 male 55-74 years 483
12 Mexico 2010 male 75+ years 165
13 Mexico 2011 female 15-24 years 439
14 Mexico 2011 female 25-34 years 225
15 Mexico 2011 female 35-54 years 222
16 Mexico 2011 female 5-14 years 107
17 Mexico 2011 female 55-74 years 72
18 Mexico 2011 female 75+ years 6
19 Mexico 2011 male 15-24 years 1308
20 Mexico 2011 male 25-34 years 1024
21 Mexico 2011 male 35-54 years 1326
22 Mexico 2011 male 5-14 years 140
23 Mexico 2011 male 55-74 years 533
24 Mexico 2011 male 75+ years 156
25 Mexico 2012 female 15-24 years 407
26 Mexico 2012 female 25-34 years 214
27 Mexico 2012 female 35-54 years 258
28 Mexico 2012 female 5-14 years 79
29 Mexico 2012 female 55-74 years 85
30 Mexico 2012 female 75+ years 8
31 Mexico 2012 male 15-24 years 1251
32 Mexico 2012 male 25-34 years 1013
33 Mexico 2012 male 35-54 years 1264
34 Mexico 2012 male 5-14 years 123
35 Mexico 2012 male 55-74 years 509
36 Mexico 2012 male 75+ years 170
37 Mexico 2013 female 15-24 years 392
38 Mexico 2013 female 25-34 years 212
39 Mexico 2013 female 35-54 years 263
40 Mexico 2013 female 5-14 years 66
41 Mexico 2013 female 55-74 years 94
42 Mexico 2013 female 75+ years 16
43 Mexico 2013 male 15-24 years 1220
44 Mexico 2013 male 25-34 years 1151
45 Mexico 2013 male 35-54 years 1469
46 Mexico 2013 male 5-14 years 102
47 Mexico 2013 male 55-74 years 565
48 Mexico 2013 male 75+ years 161
49 Mexico 2014 female 15-24 years 416
50 Mexico 2014 female 25-34 years 271
51 Mexico 2014 female 35-54 years 333
52 Mexico 2014 female 5-14 years 109
53 Mexico 2014 female 55-74 years 91
54 Mexico 2014 female 75+ years 8
55 Mexico 2014 male 15-24 years 1334
56 Mexico 2014 male 25-34 years 1140
57 Mexico 2014 male 35-54 years 1558
58 Mexico 2014 male 5-14 years 129
59 Mexico 2014 male 55-74 years 612
60 Mexico 2014 male 75+ years 177
61 Mexico 2015 female 15-24 years 484
62 Mexico 2015 female 25-34 years 267
63 Mexico 2015 female 35-54 years 303
64 Mexico 2015 female 5-14 years 95
65 Mexico 2015 female 55-74 years 88
66 Mexico 2015 female 75+ years 11
67 Mexico 2015 male 15-24 years 1347
68 Mexico 2015 male 25-34 years 1195
69 Mexico 2015 male 35-54 years 1560
70 Mexico 2015 male 5-14 years 137
71 Mexico 2015 male 55-74 years 584
72 Mexico 2015 male 75+ years 163
Promedio de suicidios en México, entre los años 2010 y 2015:
Gráficas de caja
La línea negra en el rectángulo corresponde a la media de los datos.
Número de suicidios con respecto al año:
boxplot(suicides_no~year, datos_mexico, col = '#14b1ab',
xlab = 'Año', ylab = 'Número de suicidios')
Número de suicidios con respecto a la edad:
boxplot(suicides_no~age, datos_mexico, col = '#ffbb91',
xlab = 'Edad', ylab = 'Número de suicidios')
Número de suicidios con respecto al género:
boxplot(suicides_no~sex, datos_mexico, col = '#e0ece4',
xlab = 'Género', ylab = 'Número de suicidios')
Selección de datos Candá:
Los datos analizados para Canadá son a partir del año 2010 al 2015, de hombres y mujeres en los siguientes rangos de edad:
* 5 a 14 años
* 15 a 24 años
* 25 a 34 años
* 35 a 54 años
* 55 a 74 años
* 75 + años
datos_canada <- datos_suicidio %>%
select(country, year, sex, age, suicides_no) %>%
filter(country == "Canada", year >= 2010)
datos_canada
country year sex age suicides_no
1 Canada 2010 female 15-24 years 115
2 Canada 2010 female 25-34 years 154
3 Canada 2010 female 35-54 years 402
4 Canada 2010 female 5-14 years 13
5 Canada 2010 female 55-74 years 237
6 Canada 2010 female 75+ years 49
7 Canada 2010 male 15-24 years 371
8 Canada 2010 male 25-34 years 409
9 Canada 2010 male 35-54 years 1292
10 Canada 2010 male 5-14 years 19
11 Canada 2010 male 55-74 years 690
12 Canada 2010 male 75+ years 200
13 Canada 2011 female 15-24 years 135
14 Canada 2011 female 25-34 years 134
15 Canada 2011 female 35-54 years 390
16 Canada 2011 female 5-14 years 18
17 Canada 2011 female 55-74 years 215
18 Canada 2011 female 75+ years 55
19 Canada 2011 male 15-24 years 364
20 Canada 2011 male 25-34 years 410
21 Canada 2011 male 35-54 years 1127
22 Canada 2011 male 5-14 years 13
23 Canada 2011 male 55-74 years 683
24 Canada 2011 male 75+ years 184
25 Canada 2012 female 15-24 years 137
26 Canada 2012 female 25-34 years 129
27 Canada 2012 female 35-54 years 385
28 Canada 2012 female 5-14 years 17
29 Canada 2012 female 55-74 years 241
30 Canada 2012 female 75+ years 45
31 Canada 2012 male 15-24 years 381
32 Canada 2012 male 25-34 years 419
33 Canada 2012 male 35-54 years 1205
34 Canada 2012 male 5-14 years 17
35 Canada 2012 male 55-74 years 770
36 Canada 2012 male 75+ years 180
37 Canada 2013 female 15-24 years 138
38 Canada 2013 female 25-34 years 135
39 Canada 2013 female 35-54 years 400
40 Canada 2013 female 5-14 years 20
41 Canada 2013 female 55-74 years 255
42 Canada 2013 female 75+ years 65
43 Canada 2013 male 15-24 years 300
44 Canada 2013 male 25-34 years 439
45 Canada 2013 male 35-54 years 1244
46 Canada 2013 male 5-14 years 15
47 Canada 2013 male 55-74 years 812
48 Canada 2013 male 75+ years 231
Promedio de suicidios en Canadá, entre los años 2010 y 2013:
Gráficas de caja
La línea negra en el rectángulo corresponde a la media de los datos.
Número de suicidios con respecto al año:
boxplot(suicides_no~year, datos_canada, col = '#14b1ab',
xlab = 'Año', ylab = 'Número de suicidios')
Número de suicidios con respecto a la edad:
boxplot(suicides_no~age, datos_canada, col = '#ffbb91',
xlab = 'Edad', ylab = 'Número de suicidios')
Número de suicidios con respecto al género:
boxplot(suicides_no~sex, datos_canada, col = '#e0ece4',
xlab = 'Género', ylab = 'Número de suicidios')
Selección de datos Estados Unidos:
Los datos analizados para Estados Unidos son a partir del año 2010 al 2016, de hombres y mujeres en los siguientes rangos de edad:
* 5 a 14 años
* 15 a 24 años
* 25 a 34 años
* 35 a 54 años
* 55 a 74 años
* 75 + años
datos_eua <- datos_suicidio %>%
select(country, year, sex, age, suicides_no) %>%
filter(country == "United States of America", year >= 2010)
datos_eua
country year sex age suicides_no
1 United States of America 2010 female 15-24 years 830
2 United States of America 2010 female 25-34 years 1092
3 United States of America 2010 female 35-54 years 3604
4 United States of America 2010 female 5-14 years 87
5 United States of America 2010 female 55-74 years 2071
6 United States of America 2010 female 75+ years 403
7 United States of America 2010 male 15-24 years 3772
8 United States of America 2010 male 25-34 years 4645
9 United States of America 2010 male 35-54 years 11767
10 United States of America 2010 male 5-14 years 187
11 United States of America 2010 male 55-74 years 7287
12 United States of America 2010 male 75+ years 2617
13 United States of America 2011 female 15-24 years 863
14 United States of America 2011 female 25-34 years 1238
15 United States of America 2011 female 35-54 years 3776
16 United States of America 2011 female 5-14 years 86
17 United States of America 2011 female 55-74 years 2128
18 United States of America 2011 female 75+ years 421
19 United States of America 2011 male 15-24 years 3959
20 United States of America 2011 male 25-34 years 4862
21 United States of America 2011 male 35-54 years 11681
22 United States of America 2011 male 5-14 years 201
23 United States of America 2011 male 55-74 years 7572
24 United States of America 2011 male 75+ years 2721
25 United States of America 2012 female 15-24 years 954
26 United States of America 2012 female 25-34 years 1231
27 United States of America 2012 female 35-54 years 3857
28 United States of America 2012 female 5-14 years 85
29 United States of America 2012 female 55-74 years 2264
30 United States of America 2012 female 75+ years 428
31 United States of America 2012 male 15-24 years 3918
32 United States of America 2012 male 25-34 years 4985
33 United States of America 2012 male 35-54 years 11763
34 United States of America 2012 male 5-14 years 226
35 United States of America 2012 male 55-74 years 8032
36 United States of America 2012 male 75+ years 2853
37 United States of America 2013 female 15-24 years 975
38 United States of America 2013 female 25-34 years 1285
39 United States of America 2013 female 35-54 years 3776
40 United States of America 2013 female 5-14 years 143
41 United States of America 2013 female 55-74 years 2484
42 United States of America 2013 female 75+ years 431
43 United States of America 2013 male 15-24 years 3903
44 United States of America 2013 male 25-34 years 5063
45 United States of America 2013 male 35-54 years 11396
46 United States of America 2013 male 5-14 years 252
47 United States of America 2013 male 55-74 years 8445
48 United States of America 2013 male 75+ years 2990
49 United States of America 2014 female 15-24 years 990
50 United States of America 2014 female 25-34 years 1347
51 United States of America 2014 female 35-54 years 4018
52 United States of America 2014 female 5-14 years 151
53 United States of America 2014 female 55-74 years 2676
54 United States of America 2014 female 75+ years 477
55 United States of America 2014 male 15-24 years 4089
56 United States of America 2014 male 25-34 years 5222
57 United States of America 2014 male 35-54 years 11455
58 United States of America 2014 male 5-14 years 277
59 United States of America 2014 male 55-74 years 8961
60 United States of America 2014 male 75+ years 3106
61 United States of America 2015 female 15-24 years 1132
62 United States of America 2015 female 25-34 years 1444
63 United States of America 2015 female 35-54 years 4053
64 United States of America 2015 female 5-14 years 158
65 United States of America 2015 female 55-74 years 2872
66 United States of America 2015 female 75+ years 540
67 United States of America 2015 male 15-24 years 4359
68 United States of America 2015 male 25-34 years 5503
69 United States of America 2015 male 35-54 years 11634
70 United States of America 2015 male 5-14 years 255
71 United States of America 2015 male 55-74 years 9068
72 United States of America 2015 male 75+ years 3171
73 United States of America 2016 female 15-24 years NA
74 United States of America 2016 female 25-34 years NA
75 United States of America 2016 female 35-54 years NA
76 United States of America 2016 female 5-14 years NA
77 United States of America 2016 female 55-74 years NA
78 United States of America 2016 female 75+ years NA
79 United States of America 2016 male 15-24 years NA
80 United States of America 2016 male 25-34 years NA
81 United States of America 2016 male 35-54 years NA
82 United States of America 2016 male 5-14 years NA
83 United States of America 2016 male 55-74 years NA
84 United States of America 2016 male 75+ years NA
Promedio de suicidios en Estados Unidos, entre los años 2010 y 2016:
Gráficas de caja
La línea negra en el rectángulo corresponde a la media de los datos.
Número de suicidios con respecto al año:
boxplot(suicides_no~year, datos_eua, col = '#14b1ab',
xlab = 'Año', ylab = 'Número de suicidios')
Número de suicidios con respecto a la edad:
boxplot(suicides_no~age, datos_eua, col = '#ffbb91',
xlab = 'Edad', ylab = 'Número de suicidios')
Número de suicidios con respecto al género:
boxplot(suicides_no~sex, datos_eua, col = '#e0ece4',
xlab = 'Género', ylab = 'Número de suicidios')
