Taller_3
Tatiana Gutierrez
2024-04-17
ACTIVIDADES
2.1 Construya una base de datos de veinte (20) historias clÃnicas con los siguientes campos: Identidad de Pacientes: (Número de Cédula, Nombres del paciente, Apellidos del paciente, Edad, Sexo, Domicilio, Ciudad, Departamento, Número de teléfono, Número de historial clÃnico, Fumante(S/N))
Numero_cedula = c(1006789521, 11136467834, 9976902176, 1196734098, 1006764490, 1006638275, 1036964312, 1058675247, 9906547890, 1006758932, 1006612456, 1006857321, 1113691532, 1006990145, 1006749593, 1006890345, 1006945687, 1006823976, 9906798342, 1136578921)
Nombre_paciente = c("Edward", "Isabela", "Juan Pablo", "Natalia", "Alejandro", "Bernardo", "Martha", "Juan Manuel", "Carolina", "Milton", "Juliana", "Jeronimo", "Olga", "Alexis", "Mariana", "Martin", "Maria Isabel", "Jhonier", "Ana", "Alberto")
Apellido_paciente = c("Gonzalez", "Tabares", "Castillo", "Martinez", "Sanchez", "Valencia", "Ramirez", "Rios", "Rodriguez", "Soto", "Rojas", "Silva", "Lopez", "Medina", "Gutierrez", "Preciado", "Vargas", "Morales", "Bedoya", "Zamora")
Edad = c(52, 35, 40, 30, 45, 38, 42, 47, 58, 42, 52, 38, 45, 39, 36, 40, 38, 54, 52, 30)
Sexo =c("Masculino","Femenino","Masculino","Femenino","Masculino","Masculino","Femenino","Masculino","Femenino","Masculino","Femenino","Masculino","Femenino","Masculino","Femenino","Masculino","Femenino","Masculino","Femenino","Masculino")
Domicilio = c("Calle 32 #54-67", "Carrera 89 #46-01", "Avenida 3 #32-45", " Calle 52 #21-34", "Calle 91 #58-78", "Calle 24 #67-89", " Carrera 68 #90-12", "Avenida 35 #78-90", "Avenida 80 #21-34", "Carrera 12 #34-56", "Avenida 52 #89-01", "Calle 46 #67-89", "Carrera 79 #23-17", "Avenida 91 #56-78", "Calle 24 #90-12", "Carrera 68 #34-56", "Avenida 35 #12-34", "Calle 80 #78-90", "Carrera 57 #89-01", "Avenida 12 #67-89")
Ciudad = c("Cali", "Bogota", "Medellin", "Cartago", "Manizales", "Barranquilla", "Cali", "Cartagena", "Bucaramanga", "Pereira", "Medellin", "Cali", "Manizales", "Bogota", "Medellin", "Cali", "Barranquilla", "Pereira", "Bucaramanga", "Cali")
Departamento = c("Valle del Cauca", "Cundinamarca", "Antioquia", "Valle del Cauca", "Risaralda", "Atlantico", "Valle del Cauca", "Bolivar", "Santander", "Risaralda", "Antioquia", "Valle del Cauca", "Risaralda", "Cundinamarca", "Antioquia", "Valle del Cauca", "Atlantico", "Risaralda", "Santander", "Valle del Cauca")
Telefono = c(3125551234, 3235555678, 3445559876, 3565554321, 3785558765, 3915552345, 3035556789, 3335553456, 3135557890, 3665556543, 3945558901, 3775551235, 3455555670, 3985552109, 3725558761, 3015554326, 3475557654, 3835551098, 3995555432, 3315559870)
N_historia_clinica = c(12345, 23456, 34567, 45678, 56789, 67890, 78901, 89012, 90123, 01234, 11223, 22112, 33221, 44332, 55443, 66554, 77665, 88776, 99887, 00998)
Fumante = c("S", "N", "N", "S", "N", "S", "S", "S", "N", "S", "S", "N", "S", "N", "N", "S", "N", "S", "S", "N")2.1.2. Proceso de Ingreso a la entidad: (Procedencia, Fecha de ingreso, Número de piso, Número de cama, Causa de Ingreso)
Procedencia = c("Emergencia", "Referido", "Emergencia", "Programado", "Emergencia","Referido", "Emergencia", "Programado", "Emergencia", "Referido","Emergencia", "Programado", "Emergencia", "Referido", "Emergencia", "Programado","Emergencia", "Referido", "Emergencia", "Programado")
Fecha_ingreso = c("15/04/2022","23/08/2021","07/12/2022","28/02/2023","19/06/2022","10/11/2021","05/03/2023","14/09/2022","02/07/2021","30/01/2023","12/05/2022","22/10/2021","08/06/2023","11/03/2022","03/09/2021","20/12/2022","09/04/2023","25/08/2022","01/02/2023","17/07/2021" )
Numero_piso = c(1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5, 1, 2, 3, 4, 5)
Numero_cama = c(105, 204, 310, 401, 509, 107, 202, 309, 408, 506, 103, 210, 307, 404, 502, 110, 206, 302, 410, 512)
Causa_ingreso = c("Infarto de miocardio","Apendice inflamado", "Fractura de huesos", "Cirugia programada", "Neumonia","Neumonia", "Herida de bala", "Neumonia", "Infarto de miocardio", "Herida de bala", "Parto", "Parto", "Neumonia", "Parto", "Accidente cerebrovascular", "Trauma craneoencefalico", "Apendice inflamado", "Quemaduras graves", "Quemaduras graves", "Quemaduras graves")historias_clinicas_df =data.frame(Numero_cedula, Nombre_paciente, Apellido_paciente, Edad, Sexo, Domicilio, Ciudad, Departamento, Telefono, N_historia_clinica, Fumante, Procedencia, Fecha_ingreso, Numero_piso, Numero_cama, Causa_ingreso)
historias_clinicas_df = cbind(Numero_cedula, Nombre_paciente, Apellido_paciente, Edad, Sexo, Domicilio, Ciudad, Departamento, Telefono, N_historia_clinica, Fumante, Procedencia, Fecha_ingreso, Numero_piso, Numero_cama, Causa_ingreso)
historias_clinicas_df## Numero_cedula Nombre_paciente Apellido_paciente Edad Sexo
## [1,] "1006789521" "Edward" "Gonzalez" "52" "Masculino"
## [2,] "11136467834" "Isabela" "Tabares" "35" "Femenino"
## [3,] "9976902176" "Juan Pablo" "Castillo" "40" "Masculino"
## [4,] "1196734098" "Natalia" "Martinez" "30" "Femenino"
## [5,] "1006764490" "Alejandro" "Sanchez" "45" "Masculino"
## [6,] "1006638275" "Bernardo" "Valencia" "38" "Masculino"
## [7,] "1036964312" "Martha" "Ramirez" "42" "Femenino"
## [8,] "1058675247" "Juan Manuel" "Rios" "47" "Masculino"
## [9,] "9906547890" "Carolina" "Rodriguez" "58" "Femenino"
## [10,] "1006758932" "Milton" "Soto" "42" "Masculino"
## [11,] "1006612456" "Juliana" "Rojas" "52" "Femenino"
## [12,] "1006857321" "Jeronimo" "Silva" "38" "Masculino"
## [13,] "1113691532" "Olga" "Lopez" "45" "Femenino"
## [14,] "1006990145" "Alexis" "Medina" "39" "Masculino"
## [15,] "1006749593" "Mariana" "Gutierrez" "36" "Femenino"
## [16,] "1006890345" "Martin" "Preciado" "40" "Masculino"
## [17,] "1006945687" "Maria Isabel" "Vargas" "38" "Femenino"
## [18,] "1006823976" "Jhonier" "Morales" "54" "Masculino"
## [19,] "9906798342" "Ana" "Bedoya" "52" "Femenino"
## [20,] "1136578921" "Alberto" "Zamora" "30" "Masculino"
## Domicilio Ciudad Departamento Telefono
## [1,] "Calle 32 #54-67" "Cali" "Valle del Cauca" "3125551234"
## [2,] "Carrera 89 #46-01" "Bogota" "Cundinamarca" "3235555678"
## [3,] "Avenida 3 #32-45" "Medellin" "Antioquia" "3445559876"
## [4,] " Calle 52 #21-34" "Cartago" "Valle del Cauca" "3565554321"
## [5,] "Calle 91 #58-78" "Manizales" "Risaralda" "3785558765"
## [6,] "Calle 24 #67-89" "Barranquilla" "Atlantico" "3915552345"
## [7,] " Carrera 68 #90-12" "Cali" "Valle del Cauca" "3035556789"
## [8,] "Avenida 35 #78-90" "Cartagena" "Bolivar" "3335553456"
## [9,] "Avenida 80 #21-34" "Bucaramanga" "Santander" "3135557890"
## [10,] "Carrera 12 #34-56" "Pereira" "Risaralda" "3665556543"
## [11,] "Avenida 52 #89-01" "Medellin" "Antioquia" "3945558901"
## [12,] "Calle 46 #67-89" "Cali" "Valle del Cauca" "3775551235"
## [13,] "Carrera 79 #23-17" "Manizales" "Risaralda" "3455555670"
## [14,] "Avenida 91 #56-78" "Bogota" "Cundinamarca" "3985552109"
## [15,] "Calle 24 #90-12" "Medellin" "Antioquia" "3725558761"
## [16,] "Carrera 68 #34-56" "Cali" "Valle del Cauca" "3015554326"
## [17,] "Avenida 35 #12-34" "Barranquilla" "Atlantico" "3475557654"
## [18,] "Calle 80 #78-90" "Pereira" "Risaralda" "3835551098"
## [19,] "Carrera 57 #89-01" "Bucaramanga" "Santander" "3995555432"
## [20,] "Avenida 12 #67-89" "Cali" "Valle del Cauca" "3315559870"
## N_historia_clinica Fumante Procedencia Fecha_ingreso Numero_piso
## [1,] "12345" "S" "Emergencia" "15/04/2022" "1"
## [2,] "23456" "N" "Referido" "23/08/2021" "2"
## [3,] "34567" "N" "Emergencia" "07/12/2022" "3"
## [4,] "45678" "S" "Programado" "28/02/2023" "4"
## [5,] "56789" "N" "Emergencia" "19/06/2022" "5"
## [6,] "67890" "S" "Referido" "10/11/2021" "1"
## [7,] "78901" "S" "Emergencia" "05/03/2023" "2"
## [8,] "89012" "S" "Programado" "14/09/2022" "3"
## [9,] "90123" "N" "Emergencia" "02/07/2021" "4"
## [10,] "1234" "S" "Referido" "30/01/2023" "5"
## [11,] "11223" "S" "Emergencia" "12/05/2022" "1"
## [12,] "22112" "N" "Programado" "22/10/2021" "2"
## [13,] "33221" "S" "Emergencia" "08/06/2023" "3"
## [14,] "44332" "N" "Referido" "11/03/2022" "4"
## [15,] "55443" "N" "Emergencia" "03/09/2021" "5"
## [16,] "66554" "S" "Programado" "20/12/2022" "1"
## [17,] "77665" "N" "Emergencia" "09/04/2023" "2"
## [18,] "88776" "S" "Referido" "25/08/2022" "3"
## [19,] "99887" "S" "Emergencia" "01/02/2023" "4"
## [20,] "998" "N" "Programado" "17/07/2021" "5"
## Numero_cama Causa_ingreso
## [1,] "105" "Infarto de miocardio"
## [2,] "204" "Apendice inflamado"
## [3,] "310" "Fractura de huesos"
## [4,] "401" "Cirugia programada"
## [5,] "509" "Neumonia"
## [6,] "107" "Neumonia"
## [7,] "202" "Herida de bala"
## [8,] "309" "Neumonia"
## [9,] "408" "Infarto de miocardio"
## [10,] "506" "Herida de bala"
## [11,] "103" "Parto"
## [12,] "210" "Parto"
## [13,] "307" "Neumonia"
## [14,] "404" "Parto"
## [15,] "502" "Accidente cerebrovascular"
## [16,] "110" "Trauma craneoencefalico"
## [17,] "206" "Apendice inflamado"
## [18,] "302" "Quemaduras graves"
## [19,] "410" "Quemaduras graves"
## [20,] "512" "Quemaduras graves"2.2. Por medio de informe gráfico clasifique por:
- Pacientes mujeres y Hombres
barplot(table(historias_clinicas_df=Sexo), main = "Pacientes mujeres y Hombres",
names.arg = c("Femenino", "Masculino"), ylab = "No. personas",
xlab = "Sexo", col = c("pink", "blue"), las = 1)
- edad y si es fumante o no
barplot(table(historias_clinicas_df=Fumante, historias_clinicas_df=Edad),
main = "Fumadores y edad", ylab = "No. personas", xlab = "Edad",
col = c("green", "gray"))
legend(x = "topright", legend = c("No", "Si"), fill = c("green", "gray"), title = "Fumante")
- Pacientes por piso divididos por sexo
barplot(table(historias_clinicas_df=Sexo, historias_clinicas_df=Numero_piso),
main = "Pacientes por piso divididos por sexo", ylab = "No. personas",
xlab = "Piso", col = c("pink", "blue"))
legend(x = "topright", legend = c("Mujer", "Hombre"), fill = c("pink", "blue"), title = "Sexo")
- Edad y causa de ingreso
barplot(table(historias_clinicas_df=Causa_ingreso, historias_clinicas_df=Edad),
col = c("yellow", "aquamarine", "green", "red", "blue","orange", "salmon", "purple", "brown", "gray"),
main = "Edad y causa de ingreso", ylab = "No. personas", xlab = "Edad",)
legend(x = "topright", legend = c("Infarto de miocardio", "Apendice inflamado", "Fractura de huesos", "Cirugia programada", "Neumonia", "Herida de bala", "Parto", "Accidente cerebrovascular", "Trauma craneoencefalico", "Quemaduras graves"),
fill = c("yellow", "aquamarine", "green", "red", "blue","orange", "salmon", "purple", "brown", "gray"), title = "Causa de ingreso")
- Promedio de edad (M,H)
EdadHombres= Edad[historias_clinicas_df=Sexo=="Masculino"]
promHombres= mean(EdadHombres)
promHombres## [1] 42.27273EdadMujeres= Edad[historias_clinicas_df=Sexo=="Femenino"]
promMujeres= mean(EdadMujeres)
promMujeres## [1] 43.11111barplot(c(mean(Edad[Sexo=="Masculino"]), mean(Edad[Sexo=="Femenino"])), main = "Promedio de edad Mujeres y Hombres", names.arg=c("H", "M"), col=c("blue","pink"), ylab="Edad promedio", xlab="Sexo", las=1,ylim=c(0,70))
- Datos independientes de 3 pacientes
barplot(c(Edad[Nombre_paciente=="Isabela"],Edad[Nombre_paciente=="Natalia"],Edad[Nombre_paciente=="Martha"]), main = "Datos independientes de 3 Pacientes", names.arg=c("Isabela","Natalia","Martha"), col=c("pink","purple","magenta"), ylab="Edad", xlab="Nombre")
- Datos de 3 pacientes por identidad
Persona1=9976902176
Persona2=1006638275
Persona3=1058675247
Per1=subset(historias_clinicas_df, historias_clinicas_df[,1]==Persona1)
Per2=subset(historias_clinicas_df, historias_clinicas_df[,1]==Persona2)
Per3=subset(historias_clinicas_df, historias_clinicas_df[,1]==Persona3)
Punto_G= rbind(Per1, Per2, Per3)
Punto_G## Numero_cedula Nombre_paciente Apellido_paciente Edad Sexo
## [1,] "9976902176" "Juan Pablo" "Castillo" "40" "Masculino"
## [2,] "1006638275" "Bernardo" "Valencia" "38" "Masculino"
## [3,] "1058675247" "Juan Manuel" "Rios" "47" "Masculino"
## Domicilio Ciudad Departamento Telefono
## [1,] "Avenida 3 #32-45" "Medellin" "Antioquia" "3445559876"
## [2,] "Calle 24 #67-89" "Barranquilla" "Atlantico" "3915552345"
## [3,] "Avenida 35 #78-90" "Cartagena" "Bolivar" "3335553456"
## N_historia_clinica Fumante Procedencia Fecha_ingreso Numero_piso
## [1,] "34567" "N" "Emergencia" "07/12/2022" "3"
## [2,] "67890" "S" "Referido" "10/11/2021" "1"
## [3,] "89012" "S" "Programado" "14/09/2022" "3"
## Numero_cama Causa_ingreso
## [1,] "310" "Fractura de huesos"
## [2,] "107" "Neumonia"
## [3,] "309" "Neumonia"- Lista de causas de ingreso
table(Causa_ingreso)## Causa_ingreso
## Accidente cerebrovascular Apendice inflamado Cirugia programada
## 1 2 1
## Fractura de huesos Herida de bala Infarto de miocardio
## 1 2 2
## Neumonia Parto Quemaduras graves
## 4 3 3
## Trauma craneoencefalico
## 1barplot(table(historias_clinicas_df=Causa_ingreso), main = "Lista de causas de ingreso",
ylab = "No. personas", xlab = "Causa de ingreso", col = rainbow(10), las = 1)
2.3. Exportar base de datos a Excel
df = data.frame(historias_clinicas_df)
names(df) = c("Numero_cedula", "Nombre_paciente", "Apellido_paciente", "Edad", "Sexo", "Domicilio", "Ciudad", "Departamento", "Telefono", "N_historia_clinica", "Fumante", "Procedencia", "Fecha_ingreso", "Numero_piso", "Numero_cama", "Causa_ingreso")
write.table(df, file = "hitorias_clinicas.csv", sep = ",", col.names = NA, qmethod = "double")