Bioestadística Avanzada

Indicadores epidemiológicos en relación al Covid 19 de Cartagena, Colombia

ctg<-read_excel("CTG.xlsx")
attach(ctg)
pob_ctg = 1028736
women=subset(ctg,Sexo=="F")
men=subset(ctg,Sexo=="M")

\(1\) Porcentaje por sexo

1. Mujeres

porc_women=mean(Sexo=="F")*100
porc_women

## [1] 46.67244

2. Hombres

porc_men=mean(Sexo=="M")*100
porc_men

## [1] 53.32756

\(2\) Razón de feminidad

porc_women/porc_men

## [1] 0.875203

\(3\) Distribución porcentual por edad en rangos de 10 años

Edad0_9 = subset(ctg,Edad<=9)
p1<-mean(Edad<=9)
p2<-mean(Edad>=10&Edad<=19)
p3<-mean(Edad>=20&Edad<=29)
p4<-mean(Edad>=30&Edad<=39)
p5<-mean(Edad>=40&Edad<=49)
p6<-mean(Edad>=50&Edad<=59)
p7<-mean(Edad>=60&Edad<=69)
p8<-mean(Edad>=70&Edad<=79)
p9<-mean(Edad>=80&Edad<=89)
p10<-mean(Edad>=90&Edad<=99)
p11<-mean(Edad>=100&Edad<=109)
p12<-mean(Edad>=110&Edad<=119)

Proporción=c(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12)*100

`Rango de edad`=c("0-9","10-19","20-29","30-39","40-49",
       "50-59","60-69","70-79","80-89","90-99","100-109","110-119")

tablaf=data.frame(`Rango de edad`,Proporción)

barplot(Proporción~sort(`Rango de edad`),names.arg=c("0-9",
"10-19", "20-29", "30-39","40-49","50-59","60-69","70-79","80-89","90-99","100-109","110-115"),ylab = "Porcentaje", xlab = "Rango de edades")

\(4\) Porcentaje de casos hospitalizados

porc_hosp=mean(Ubicacion=="Hospital")*100
porc_hosp

## [1] 0.2415899

\(5\) Porcentaje de casos en unidades de cuidados intensivos

porc_hosp_UCI=mean(Ubicacion=="Hospital UCI")*100
porc_hosp_UCI

## [1] 0.004558301

\(6\) Porcentaje de recuperados

porc_recup=mean(Ubicacion=="Recuperado")*100
porc_recup

## [1] 92.29191

\(7\) Tasa de incidencia de COVID 19 general

T_incid=(length(Edad)/(pob_ctg-length(Edad)))*1000
T_incid

## [1] 21.78987

\(8\) Tasa de letalidad por COVID 19 general y por sexo

T_letal=mean(Ubicacion=="Fallecido")*1000



T_letal_F=mean(women$Ubicacion=="Fallecido")*1000


T_letal_M=mean(men$Ubicacion=="Fallecido")*1000

1. Tasa de letalidad

## [1] 24.38691

2. Tasa de letalidad en las mujeres

## [1] 21.09581

3. Tasa de letalidad en los hombres

## [1] 27.26729

\(9\) Tasa de mortalidad por COVID 19

T_mortal=(sum(Ubicacion=="Fallecido")/pob_ctg)*1000
T_mortal

## [1] 0.5200557

\(10\) Promedio de casos reportados en los últimos 7 días

ctg$`Fecha Not` <- as.Date(ctg$`Fecha Not`, format= "%Y-%m-%d")

last7=subset(ctg, ctg$`Fecha Not`> "2020-09-07" & ctg$`Fecha Not` < "2020-09-15")

prom_last7=sum(ctg$`Fecha Not`> "2020-09-07" & ctg$`Fecha Not` < "2020-09-15")/7

prom_last7=nrow(last7)/7
prom_last7

## [1] 6.142857