Informe semanal ebento 356 para Valle del Cauca

library(readxl)
suicidio = read_excel("C:/Users/Carolina Pineda/Desktop/YDRAY-2024_356_Reporte.xlsx")

dim(suicidio)
## [1] 1325  143

Ahora vamos a describir las variables sexo, edad y estrato:

##ajustar el estrato:
suicidio$estrato_=as.factor(suicidio$estrato_)

##ajustar estado_civ:
suicidio$estado_civ=factor(suicidio$estado_civ
                              ,labels = c("soltero","casado","union libre", "viudo", "divorciado"))

##ajustar escolaridad:

suicidio$escolarida2=factor(suicidio$escolarid
                              ,levels = c(1,2,3,5,7,8,9,10,11,12,13,14),labels = c("preescolar","primaria","secundaria","tecnica", "tecnica","tecnica","profesional","postgrado","postgrado","postgrado","ninguno","sin informacion"))

##ajustar area_:
suicidio$area_=factor(suicidio$area_
                              ,levels = c(1,2,3),labels = c("urbano","centro poblado","rural"))


require(table1)
## Cargando paquete requerido: table1
## 
## Adjuntando el paquete: 'table1'
## The following objects are masked from 'package:base':
## 
##     units, units<-
table1(~sexo_+edad_+estrato_+estado_civ+escolarida2+area_,data=suicidio)
Overall
(N=1325)
sexo_
F 858 (64.8%)
M 467 (35.2%)
edad_
Mean (SD) 25.8 (12.6)
Median [Min, Max] 22.0 [8.00, 90.0]
estrato_
1 282 (21.3%)
2 636 (48.0%)
3 240 (18.1%)
4 61 (4.6%)
5 35 (2.6%)
6 14 (1.1%)
Missing 57 (4.3%)
estado_civ
soltero 978 (73.8%)
casado 84 (6.3%)
union libre 224 (16.9%)
viudo 13 (1.0%)
divorciado 26 (2.0%)
escolarida2
preescolar 14 (1.1%)
primaria 278 (21.0%)
secundaria 653 (49.3%)
tecnica 172 (13.0%)
profesional 85 (6.4%)
postgrado 10 (0.8%)
ninguno 8 (0.6%)
sin informacion 105 (7.9%)
area_
urbano 1224 (92.4%)
centro poblado 48 (3.6%)
rural 53 (4.0%)