Taller_3
Miguel Angel Angarita Guzman
2024-04-19
##Punto #1:
cedula = c(1006228916,1008964927,1211659840,38873094,987654321,2345678901,3456789012,1009276437,1112348594,98764289,38873923,1182749384, 378567345,98504284,1004384760,1001237497,1109374659,1273759042,390457283,96095723)
nombres = c("MERCEDES", "DAVID", "LUIS GONZALO", "ANA MARIA", "MIGUEL ANGEL", "LAURA ALEJANDRA", "DIEGO", "BEATRIZ", "CARLOS ANDRES", "ISABELLA", "JOSE LUIS", "JORGE EDUARDO", "ANDRES FELIPE", "LUCIA", "JUAN JOSE", "RICARDO", "PABLO", "GABRIELA", "DANIEL", "PATRICIA")
apellidos = c("GOMEZ PEREZ", "LOPEZ GONZALES", "MOLINA CARDENAS", "VELASCO CABEZAS", "ANDRADE SOTO", "PINEDA SUAREZ", "GOMEZ PEREZ", "RUIZ VAZQUEZ", "ANGARITA GUZMAN", "ORTEGA CEBALLOS", "REODRIGUEZ DELGADO", "BOCANEGRA RAMIREZ", "MORENO TORRES", "VARGAS SANCHEZ", "CEPEDA FIGUEROA", "GARCIA TAPIA", "GUITIERREZ ORTIZ", "CORRALES SILVA", "VALERO YEPES", "MARTINEZ COBO")
edad = c(30, 35, 40, 35, 38, 45, 42, 47, 58, 42, 42, 38, 40, 33, 36, 40, 38, 55, 52, 30)
sexo = c("F","M","M","F","M","F","M","F","M","F","M","M","M","F","M","M","M","F","M","F")
domicilio = c("Calle 23 #45-67","Calle 83C#22-90","Carrera 46 #89-01","Calle 5 #7-85"," Calle 57 #12-34","Calle 7#58-96", "Calle 24 #67-89","Carrera 2 # 23-45", "Avenida 35 #78-90","Calle 3 # 45-67","Carrera 12 #34-56","Avenida 8 # 45-56","Calle 46 #67-89","Calle 5 # 23-45","Avenida 91 #56-78","Carrera 8 # 21-43","Carrera 57 #89-01","Calle 8 # 15-40","Carrera 30 # 40-20", "Carrera 46 ·1-102")
ciudad = c("Cali","Bogotá","Medellin","Bogotá","Medellín","Barranquill","Cali","Cartagena","Bucaramanga","Cúcuta","Medellín","Cali","Barranquilla","Bogotá","Medellín","Cali","Barranquilla","Pereira","Bucaramanga","Cartagena")
departamento = c("Valle del Cauca","Cundinamarca","Antioquia","Cundinamarca","Antioquia","Atlántico","Valle del Cauca","Bolívar","Santander","Norte de Santander","Antioquia","Valle del Cauca","Atlántico","Cundinamarca","Antioquia","Valle del Cauca","Atlántico","Risaralda","Santander","Bolívar")
telefono = c(3147854789,3147841457,3478547145,3125551234,3104445678,3186667890,3207778901,3158889012,3179990123,3131112345,3108765432,3157891234,3187654321,3112345678,3108765432,3157891234,3004567890,3106785432,3159876543,3507896543)
historia_clinica = c(14578,10001,10002,1234,5678,9012,2345,6789,123,3456,2,3,4
,5,6,7,1004,1005,1006,1007)
fumante = c("S","N","S","N","S","N","N","S","S","N","N","S","N","N","N","S","S","N","S","N")
#Información para el proceso de ingreso:
procedencia=c("Cali","Bogotá","Medellin","Bogotá","Cali","Bogotá","Medell
ín","Cali","Bogotá","Barranquilla","Medellín","Bogotá","Cali","Bogotá","M
edellín","Bogotá","Santa Marta","Pereira","Bogotá","Cartagena")
f_ingreso= c("12/02/2022","1/02/2023","25/03/2023","24/01/2023","7/01/
2022","6/01/2022","4/01/2022","5/01/2022","1/06/2022","5/07/2022","13/01/
2023","16/01/2023","20/01/2023","24/01/2023","2/02/2023","10/02/2023","4/
01/2022","5/01/2022","6/01/2022","7/01/2022"
)
num_piso=c(5,3,7,3,6,4,7,5,2,6,6,5,3,8,7,2,6,4,1,3)
num_cama=c(501,302,705,205,403,308,507,403,102,402,503,305,209,708,605,102,17,14,1,10)
causa_ingreso=c("Covid","Accidente de transito","Infección respiratoria",
"Dolor abdominal","Fractura de pierna","Infección urinaria","Hipertensión
","Asma","Infarto de miocardio","Tumor cerebral","Herida de bala", "Accidente de transito", "Fractura de mano", "Neumonía", "Accidente cerebrovascular", "Trauma craneoencefálico", "Apéndice inflamado", "Quemaduras graves", "Quemaduras graves", "Fractura de brazo")##Punto #2: Creación de la base de datos
datos = data.frame(cedula,nombres,apellidos,edad,sexo,domicilio,ciudad,departamento,telefono,historia_clinica,fumante, procedencia, f_ingreso,num_piso,num_cama,causa_ingreso)
base_datos = cbind(cedula,nombres,apellidos,edad,sexo,domicilio,ciudad
,departamento,telefono,historia_clinica,fumante, procedencia, f_ingreso,num_piso,num_cama, causa_ingreso)
base_datos## cedula nombres apellidos edad sexo
## [1,] "1006228916" "MERCEDES" "GOMEZ PEREZ" "30" "F"
## [2,] "1008964927" "DAVID" "LOPEZ GONZALES" "35" "M"
## [3,] "1211659840" "LUIS GONZALO" "MOLINA CARDENAS" "40" "M"
## [4,] "38873094" "ANA MARIA" "VELASCO CABEZAS" "35" "F"
## [5,] "987654321" "MIGUEL ANGEL" "ANDRADE SOTO" "38" "M"
## [6,] "2345678901" "LAURA ALEJANDRA" "PINEDA SUAREZ" "45" "F"
## [7,] "3456789012" "DIEGO" "GOMEZ PEREZ" "42" "M"
## [8,] "1009276437" "BEATRIZ" "RUIZ VAZQUEZ" "47" "F"
## [9,] "1112348594" "CARLOS ANDRES" "ANGARITA GUZMAN" "58" "M"
## [10,] "98764289" "ISABELLA" "ORTEGA CEBALLOS" "42" "F"
## [11,] "38873923" "JOSE LUIS" "REODRIGUEZ DELGADO" "42" "M"
## [12,] "1182749384" "JORGE EDUARDO" "BOCANEGRA RAMIREZ" "38" "M"
## [13,] "378567345" "ANDRES FELIPE" "MORENO TORRES" "40" "M"
## [14,] "98504284" "LUCIA" "VARGAS SANCHEZ" "33" "F"
## [15,] "1004384760" "JUAN JOSE" "CEPEDA FIGUEROA" "36" "M"
## [16,] "1001237497" "RICARDO" "GARCIA TAPIA" "40" "M"
## [17,] "1109374659" "PABLO" "GUITIERREZ ORTIZ" "38" "M"
## [18,] "1273759042" "GABRIELA" "CORRALES SILVA" "55" "F"
## [19,] "390457283" "DANIEL" "VALERO YEPES" "52" "M"
## [20,] "96095723" "PATRICIA" "MARTINEZ COBO" "30" "F"
## domicilio ciudad departamento telefono
## [1,] "Calle 23 #45-67" "Cali" "Valle del Cauca" "3147854789"
## [2,] "Calle 83C#22-90" "Bogotá" "Cundinamarca" "3147841457"
## [3,] "Carrera 46 #89-01" "Medellin" "Antioquia" "3478547145"
## [4,] "Calle 5 #7-85" "Bogotá" "Cundinamarca" "3125551234"
## [5,] " Calle 57 #12-34" "Medellín" "Antioquia" "3104445678"
## [6,] "Calle 7#58-96" "Barranquill" "Atlántico" "3186667890"
## [7,] "Calle 24 #67-89" "Cali" "Valle del Cauca" "3207778901"
## [8,] "Carrera 2 # 23-45" "Cartagena" "Bolívar" "3158889012"
## [9,] "Avenida 35 #78-90" "Bucaramanga" "Santander" "3179990123"
## [10,] "Calle 3 # 45-67" "Cúcuta" "Norte de Santander" "3131112345"
## [11,] "Carrera 12 #34-56" "Medellín" "Antioquia" "3108765432"
## [12,] "Avenida 8 # 45-56" "Cali" "Valle del Cauca" "3157891234"
## [13,] "Calle 46 #67-89" "Barranquilla" "Atlántico" "3187654321"
## [14,] "Calle 5 # 23-45" "Bogotá" "Cundinamarca" "3112345678"
## [15,] "Avenida 91 #56-78" "Medellín" "Antioquia" "3108765432"
## [16,] "Carrera 8 # 21-43" "Cali" "Valle del Cauca" "3157891234"
## [17,] "Carrera 57 #89-01" "Barranquilla" "Atlántico" "3004567890"
## [18,] "Calle 8 # 15-40" "Pereira" "Risaralda" "3106785432"
## [19,] "Carrera 30 # 40-20" "Bucaramanga" "Santander" "3159876543"
## [20,] "Carrera 46 ·1-102" "Cartagena" "Bolívar" "3507896543"
## historia_clinica fumante procedencia f_ingreso num_piso num_cama
## [1,] "14578" "S" "Cali" "12/02/2022" "5" "501"
## [2,] "10001" "N" "Bogotá" "1/02/2023" "3" "302"
## [3,] "10002" "S" "Medellin" "25/03/2023" "7" "705"
## [4,] "1234" "N" "Bogotá" "24/01/2023" "3" "205"
## [5,] "5678" "S" "Cali" "7/01/\n2022" "6" "403"
## [6,] "9012" "N" "Bogotá" "6/01/2022" "4" "308"
## [7,] "2345" "N" "Medell\nín" "4/01/2022" "7" "507"
## [8,] "6789" "S" "Cali" "5/01/2022" "5" "403"
## [9,] "123" "S" "Bogotá" "1/06/2022" "2" "102"
## [10,] "3456" "N" "Barranquilla" "5/07/2022" "6" "402"
## [11,] "2" "N" "Medellín" "13/01/\n2023" "6" "503"
## [12,] "3" "S" "Bogotá" "16/01/2023" "5" "305"
## [13,] "4" "N" "Cali" "20/01/2023" "3" "209"
## [14,] "5" "N" "Bogotá" "24/01/2023" "8" "708"
## [15,] "6" "N" "M\nedellín" "2/02/2023" "7" "605"
## [16,] "7" "S" "Bogotá" "10/02/2023" "2" "102"
## [17,] "1004" "S" "Santa Marta" "4/\n01/2022" "6" "17"
## [18,] "1005" "N" "Pereira" "5/01/2022" "4" "14"
## [19,] "1006" "S" "Bogotá" "6/01/2022" "1" "1"
## [20,] "1007" "N" "Cartagena" "7/01/2022" "3" "10"
## causa_ingreso
## [1,] "Covid"
## [2,] "Accidente de transito"
## [3,] "Infección respiratoria"
## [4,] "Dolor abdominal"
## [5,] "Fractura de pierna"
## [6,] "Infección urinaria"
## [7,] "Hipertensión\n"
## [8,] "Asma"
## [9,] "Infarto de miocardio"
## [10,] "Tumor cerebral"
## [11,] "Herida de bala"
## [12,] "Accidente de transito"
## [13,] "Fractura de mano"
## [14,] "Neumonía"
## [15,] "Accidente cerebrovascular"
## [16,] "Trauma craneoencefálico"
## [17,] "Apéndice inflamado"
## [18,] "Quemaduras graves"
## [19,] "Quemaduras graves"
## [20,] "Fractura de brazo"A. Pacientes Mujeres y Hombres
#Cantidad de hombres
sum_m = sum(sexo=="M")
#Cantidad de mujeres
sum_f = sum(sexo=="F")
cantidad_sexo = c(sum_m,sum_f)
barplot(cantidad_sexo, main = "Cantidad de Hombres y Mujeres", axes = TRUE, names.arg = c("Hombres", "Mujeres"), col = c("red","blue"), xlab = "Género", ylab = "Cantidad Pacientes")
B. Edad y si el paciente es fumante o no
p_fumante = table(edad, fumante)
p_fumante## fumante
## edad N S
## 30 1 1
## 33 1 0
## 35 2 0
## 36 1 0
## 38 0 3
## 40 1 2
## 42 3 0
## 45 1 0
## 47 0 1
## 52 0 1
## 55 1 0
## 58 0 1barplot(table(fumante, edad), main = "¿Paciente fuma?", ylab = "Número de personas", xlab = "Edad", las = 1, col = c("yellow","blue"))
legend(x = "topright", legend = c("No", "Si"), fill = c("yellow","blue"), title = "Fuma")
C. Pacientes por piso divididos por sexo
table(sexo, num_piso)## num_piso
## sexo 1 2 3 4 5 6 7 8
## F 0 0 2 2 2 1 0 1
## M 1 2 2 0 1 3 3 0data = table(sexo, num_piso)
etiquetas = sort(unique(num_piso), decreasing = FALSE)
barplot(data, main = "Pacientes por pisos divididos por sexo", names.arg = etiquetas, col = c("yellow","red"), xlab="Número de piso", ylab="Número de pacientes por piso")
D. Edad y causa de ingreso
table(causa_ingreso,edad)## edad
## causa_ingreso 30 33 35 36 38 40 42 45 47 52 55 58
## Accidente cerebrovascular 0 0 0 1 0 0 0 0 0 0 0 0
## Accidente de transito 0 0 1 0 1 0 0 0 0 0 0 0
## Apéndice inflamado 0 0 0 0 1 0 0 0 0 0 0 0
## Asma 0 0 0 0 0 0 0 0 1 0 0 0
## Covid 1 0 0 0 0 0 0 0 0 0 0 0
## Dolor abdominal 0 0 1 0 0 0 0 0 0 0 0 0
## Fractura de brazo 1 0 0 0 0 0 0 0 0 0 0 0
## Fractura de mano 0 0 0 0 0 1 0 0 0 0 0 0
## Fractura de pierna 0 0 0 0 1 0 0 0 0 0 0 0
## Herida de bala 0 0 0 0 0 0 1 0 0 0 0 0
## Hipertensión\n 0 0 0 0 0 0 1 0 0 0 0 0
## Infarto de miocardio 0 0 0 0 0 0 0 0 0 0 0 1
## Infección respiratoria 0 0 0 0 0 1 0 0 0 0 0 0
## Infección urinaria 0 0 0 0 0 0 0 1 0 0 0 0
## Neumonía 0 1 0 0 0 0 0 0 0 0 0 0
## Quemaduras graves 0 0 0 0 0 0 0 0 0 1 1 0
## Trauma craneoencefálico 0 0 0 0 0 1 0 0 0 0 0 0
## Tumor cerebral 0 0 0 0 0 0 1 0 0 0 0 0etiquetas=sort(unique(edad), decreasing = FALSE)
d=table(causa_ingreso,edad)
colores= c("yellow","blue","red","green","black","gray","orange","purple","pink","white","brown","limegreen","lightblue","cyan","beige","magenta")
barplot(d, main = "Causas de ingreso (Por colores)/Edades",axes = TRUE, names.arg = etiquetas, col = colores, xlab="Edades de los pacientes en la
Base de Datos", ylab= "N° de pacientes")
legend("topright", legend = sort(unique(causa_ingreso), decreasing= FALSE), fill = colores,cex=0.48)
E. Promedio de edades en hombres y mujeres
#Almacenar edad hombres
edad_m= edad[datos$sexo =="M"]
#Edad promedio Hombres
prom_m = mean(edad_m)
prom_m## [1] 41.58333#Almacenar edad mujeres
edad_f= edad[datos$sexo =="F"]
#Edad promedio mujeres
prom_f = mean(edad_f)
prom_f## [1] 39.625barplot(c(mean(edad[sexo=="M"]), mean(edad[sexo=="F"])), main = "Edad promedio Hombres y Mujeres", names.arg=c("Hombre", "Mujer"), col=c("red","green"), ylab="Edad promedio", xlab="Sexo", ylim=c(0,50))
F. Datos independientes de 3 pacientes:
barplot(c(edad[nombres =="LUIS GONZALO"],edad[nombres == "MIGUEL ANGEL"],edad[nombres=="GABRIELA"]), main = "Datos independientes de 3 Pacientes", names.arg=c("Luis Gonzalo","Miguel Angel","Gabriela"), col=c("red","blue","yellow"), ylab="Edad", xlab="Nombre")
G. Datos de 3 pacientes por identidad:
pac_1 = 1006228916
pac_2 = 38873094
pac_3 = 1009276437
#Extraer la información de cada paciente
inf_pac_1 = subset(base_datos, base_datos[,1]==pac_1)
inf_pac_2 = subset(base_datos, base_datos[,1]==pac_2)
inf_pac_3 = subset(base_datos, base_datos[,1]==pac_3)
#Visualizar identidad de pacientes
inf_pac_1## cedula nombres apellidos edad sexo domicilio ciudad
## [1,] "1006228916" "MERCEDES" "GOMEZ PEREZ" "30" "F" "Calle 23 #45-67" "Cali"
## departamento telefono historia_clinica fumante procedencia
## [1,] "Valle del Cauca" "3147854789" "14578" "S" "Cali"
## f_ingreso num_piso num_cama causa_ingreso
## [1,] "12/02/2022" "5" "501" "Covid"inf_pac_2## cedula nombres apellidos edad sexo domicilio
## [1,] "38873094" "ANA MARIA" "VELASCO CABEZAS" "35" "F" "Calle 5 #7-85"
## ciudad departamento telefono historia_clinica fumante procedencia
## [1,] "Bogotá" "Cundinamarca" "3125551234" "1234" "N" "Bogotá"
## f_ingreso num_piso num_cama causa_ingreso
## [1,] "24/01/2023" "3" "205" "Dolor abdominal"inf_pac_3## cedula nombres apellidos edad sexo domicilio
## [1,] "1009276437" "BEATRIZ" "RUIZ VAZQUEZ" "47" "F" "Carrera 2 # 23-45"
## ciudad departamento telefono historia_clinica fumante procedencia
## [1,] "Cartagena" "Bolívar" "3158889012" "6789" "S" "Cali"
## f_ingreso num_piso num_cama causa_ingreso
## [1,] "5/01/2022" "5" "403" "Asma"H. Lista de causa de ingreso:
table(causa_ingreso)## causa_ingreso
## Accidente cerebrovascular Accidente de transito Apéndice inflamado
## 1 2 1
## Asma Covid Dolor abdominal
## 1 1 1
## Fractura de brazo Fractura de mano Fractura de pierna
## 1 1 1
## Herida de bala Hipertensión\n Infarto de miocardio
## 1 1 1
## Infección respiratoria Infección urinaria Neumonía
## 1 1 1
## Quemaduras graves Trauma craneoencefálico Tumor cerebral
## 2 1 1barplot(table(causa_ingreso),main = "Lista de causas de Ingreso", names.arg=c("Accidente de transito", "Covid", "Infección respiratoria", "Dolor abdominal", "Fractura de pierna", "Infección urinaria", "Hipertensión", "Asma", "Infarto de miocardio", "Quemadura graves", "Herida de bala", "Tumor cerebral", "Fractura de mano", "Neumonía", "Accidente cerebrovascular", "Trauma craneoencefálico", "Apéndice inflamado", "Fractura de brazo"), ylab="Numero de personas", xlab="Causa de Ingreso", col=c("yellow","blue","red","green","black","gray","orange","purple","pink","white","brown","limegreen","lightblue","cyan","beige","magenta","#E1F5A9","#F8EE1C"))
##Exportar base de datos a Excel
library(openxlsx) ## Warning: package 'openxlsx' was built under R version 4.3.3write.xlsx(datos,"Taller_3_Miguel.xlsx",rownames=FALSE)