Taller_3
Santaigo Escobar
2024-04-19
- ACTIVIDADES
2.1 Construya una base de datos de veinte (20) historias clínicas con los siguientes campos:
2.1.1. 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))
2.1.2. Proceso de Ingreso a la entidad: (Procedencia, Fecha de ingreso, Número de piso, Número de cama, Causa de Ingreso)
historias_clinicas = data.frame(
Identidad_Pacientes = data.frame(
Cedula = c("108945632", "100365874", "92145736", "100785634", "104527896", "10796321", "100214578", "109875643", "10563249", "100458712", "103254789", "106897452", "100321654", "109874563", "108746392", "100698745", "105487963", "100965847", "108632574", "102598634"),
Nombres = c("Ivan", "Mariana", "Evelyn", "Liliana", "Karol", "Laura", "Luis", "Sofia", "Cristiano", "Santiago", "Rafael", "Valentina", "David", "Daniela", "Alejandro", "Isabella", "Leonardo", "Marie", "Vanessa", "Sebastian"),
Apellidos = c("Gallego", "Gomez", "Barrero", "Manrique", "Gonzalez", "Hernandez", "Diaz", "Lopez", "Ronaldo", "Escobar", "Nadal", "Torres", "Fernandez", "Gutierrez", "Vargas", "Devia", "Bermeo", "Currie", "Lozano", "Salazar"),
Edad = c(36, 21, 42, 39, 42, 30, 45, 36, 21, 45, 24, 36, 21, 39, 36, 39, 30, 24, 21, 24),
Sexo = c("M", "F", "F", "F", "F", "F", "M", "F", "M", "M", "M", "F", "M", "F", "M", "F", "M", "F", "F", "M"),
Domicilio = c("Calle 23 # 112-45", "Avenida 7A # 234-56", "Carrera 15 # 78-90", "Transversal 12 # 145-78", "Diagonal 34 # 56-78", "Calle 45 # 90-23", "Carrera 20 # 123-45", "Avenida 12 # 34-56", "Transversal 23 # 78-90", "Diagonal 5A # 56-78", "Calle 67 # 23-45", "Avenida 34 # 56-78", "Carrera 56 # 90-23", "Transversal 7B # 12-34", "Diagonal 23 # 45-67", "Calle 89 # 56-78", "Avenida 45 # 90-23", "Transversal 8A # 12-34", "Diagonal 12 # 45-67", "Calle 34 # 56-78"),
Ciudad = c("Bogota", "Medellin", "Cali", "Barranquilla", "Cartagena", "Cucuta", "Cali", "Pereira", "Santa Marta", "Villavicencio", "Bogota", "Manizales", "Barranquilla", "Medellin", "Cali", "Monteria", "Medellin", "Neiva", "Bogota", "Armenia"),
Departamento = c("Cundinamarca", "Antioquia", "Valle del Cauca", "Atlantico", "Bolivar", "Norte de Santander", "Valle del Cauca", "Risaralda", "Magdalena", "Meta", "Cundinamarca", "Caldas", "Atlantico", "Antioquia", "Valle del Cauca", "Cordoba", "Antioquia", "Huila", "Cundinamarca", "Quindio"),
Telefono = c("3041234567", "3212345678", "3183456789", "3144567890", "3105678901", "3176789012", "3117890123", "3048901234", "3219012345", "3180123456", "3140987654", "3109876543", "3178765432", "3117654321", "3046543210", "3215432109", "3184321098", "3143210987", "3102109876", "3171098765"),
Historial_Clinico = c("102547", "365874", "982145", "785634", "452789", "798632", "214578", "876543", "563248", "458712", "325478", "897452", "321654", "874563", "746392", "698745", "487963", "965847", "632574", "258634"),
Fumante = c("N", "S", "S", "N", "N", "N", "S", "S", "S", "N", "N", "N", "S", "N", "N", "N", "S", "N", "N", "N")
),
Proceso_Ingreso_Entidad = data.frame(
Procedencia = c("EPS", "EPS", "EPS", "Particular", "EPS", "EPS", "EPS", "Particular", "EPS", "Particular", "EPS", "EPS", "EPS", "Particular", "EPS", "EPS", "EPS", "EPS", "EPS", "Particular"),
Fecha_Ingreso = as.Date(c("2019-01-01", "2019-03-15", "2020-05-20", "2020-09-10", "2021-02-28", "2021-06-05", "2022-08-15", "2022-10-30", "2023-01-25", "2023-05-12", "2019-07-08", "2020-11-03", "2021-04-17", "2022-12-22", "2023-09-07", "2019-08-11", "2020-04-23", "2021-10-01", "2022-07-19", "2023-11-14")),
Piso = c(2, 3, 3, 1, 1, 1, 2, 3, 2, 2, 1, 2, 3, 3, 3, 1, 2, 3, 1, 2),
Cama = c(202, 301, 303, 102, 106, 105, 203, 304, 205, 206, 103, 204, 305, 306, 307, 104, 207, 302, 101, 201),
Causa = c("Fractura de hueso", "Acidente de transito", "Neumonía", "Acidente de transito", "Fractura de hueso", "Intoxicación alimentaria", "Quemaduras", "Convulsiones", "Intoxicación alimentaria", "Intoxicación alimentaria", "Convulsiones", "Fractura de hueso", "Neumonía", "Neumonía", "Fractura de hueso", "Quemaduras", "Fractura de hueso", "Convulsiones", "Acidente de transito", "Quemaduras")
)
)
print(historias_clinicas)## Identidad_Pacientes.Cedula Identidad_Pacientes.Nombres
## 1 108945632 Ivan
## 2 100365874 Mariana
## 3 92145736 Evelyn
## 4 100785634 Liliana
## 5 104527896 Karol
## 6 10796321 Laura
## 7 100214578 Luis
## 8 109875643 Sofia
## 9 10563249 Cristiano
## 10 100458712 Santiago
## 11 103254789 Rafael
## 12 106897452 Valentina
## 13 100321654 David
## 14 109874563 Daniela
## 15 108746392 Alejandro
## 16 100698745 Isabella
## 17 105487963 Leonardo
## 18 100965847 Marie
## 19 108632574 Vanessa
## 20 102598634 Sebastian
## Identidad_Pacientes.Apellidos Identidad_Pacientes.Edad
## 1 Gallego 36
## 2 Gomez 21
## 3 Barrero 42
## 4 Manrique 39
## 5 Gonzalez 42
## 6 Hernandez 30
## 7 Diaz 45
## 8 Lopez 36
## 9 Ronaldo 21
## 10 Escobar 45
## 11 Nadal 24
## 12 Torres 36
## 13 Fernandez 21
## 14 Gutierrez 39
## 15 Vargas 36
## 16 Devia 39
## 17 Bermeo 30
## 18 Currie 24
## 19 Lozano 21
## 20 Salazar 24
## Identidad_Pacientes.Sexo Identidad_Pacientes.Domicilio
## 1 M Calle 23 # 112-45
## 2 F Avenida 7A # 234-56
## 3 F Carrera 15 # 78-90
## 4 F Transversal 12 # 145-78
## 5 F Diagonal 34 # 56-78
## 6 F Calle 45 # 90-23
## 7 M Carrera 20 # 123-45
## 8 F Avenida 12 # 34-56
## 9 M Transversal 23 # 78-90
## 10 M Diagonal 5A # 56-78
## 11 M Calle 67 # 23-45
## 12 F Avenida 34 # 56-78
## 13 M Carrera 56 # 90-23
## 14 F Transversal 7B # 12-34
## 15 M Diagonal 23 # 45-67
## 16 F Calle 89 # 56-78
## 17 M Avenida 45 # 90-23
## 18 F Transversal 8A # 12-34
## 19 F Diagonal 12 # 45-67
## 20 M Calle 34 # 56-78
## Identidad_Pacientes.Ciudad Identidad_Pacientes.Departamento
## 1 Bogota Cundinamarca
## 2 Medellin Antioquia
## 3 Cali Valle del Cauca
## 4 Barranquilla Atlantico
## 5 Cartagena Bolivar
## 6 Cucuta Norte de Santander
## 7 Cali Valle del Cauca
## 8 Pereira Risaralda
## 9 Santa Marta Magdalena
## 10 Villavicencio Meta
## 11 Bogota Cundinamarca
## 12 Manizales Caldas
## 13 Barranquilla Atlantico
## 14 Medellin Antioquia
## 15 Cali Valle del Cauca
## 16 Monteria Cordoba
## 17 Medellin Antioquia
## 18 Neiva Huila
## 19 Bogota Cundinamarca
## 20 Armenia Quindio
## Identidad_Pacientes.Telefono Identidad_Pacientes.Historial_Clinico
## 1 3041234567 102547
## 2 3212345678 365874
## 3 3183456789 982145
## 4 3144567890 785634
## 5 3105678901 452789
## 6 3176789012 798632
## 7 3117890123 214578
## 8 3048901234 876543
## 9 3219012345 563248
## 10 3180123456 458712
## 11 3140987654 325478
## 12 3109876543 897452
## 13 3178765432 321654
## 14 3117654321 874563
## 15 3046543210 746392
## 16 3215432109 698745
## 17 3184321098 487963
## 18 3143210987 965847
## 19 3102109876 632574
## 20 3171098765 258634
## Identidad_Pacientes.Fumante Proceso_Ingreso_Entidad.Procedencia
## 1 N EPS
## 2 S EPS
## 3 S EPS
## 4 N Particular
## 5 N EPS
## 6 N EPS
## 7 S EPS
## 8 S Particular
## 9 S EPS
## 10 N Particular
## 11 N EPS
## 12 N EPS
## 13 S EPS
## 14 N Particular
## 15 N EPS
## 16 N EPS
## 17 S EPS
## 18 N EPS
## 19 N EPS
## 20 N Particular
## Proceso_Ingreso_Entidad.Fecha_Ingreso Proceso_Ingreso_Entidad.Piso
## 1 2019-01-01 2
## 2 2019-03-15 3
## 3 2020-05-20 3
## 4 2020-09-10 1
## 5 2021-02-28 1
## 6 2021-06-05 1
## 7 2022-08-15 2
## 8 2022-10-30 3
## 9 2023-01-25 2
## 10 2023-05-12 2
## 11 2019-07-08 1
## 12 2020-11-03 2
## 13 2021-04-17 3
## 14 2022-12-22 3
## 15 2023-09-07 3
## 16 2019-08-11 1
## 17 2020-04-23 2
## 18 2021-10-01 3
## 19 2022-07-19 1
## 20 2023-11-14 2
## Proceso_Ingreso_Entidad.Cama Proceso_Ingreso_Entidad.Causa
## 1 202 Fractura de hueso
## 2 301 Acidente de transito
## 3 303 Neumonía
## 4 102 Acidente de transito
## 5 106 Fractura de hueso
## 6 105 Intoxicación alimentaria
## 7 203 Quemaduras
## 8 304 Convulsiones
## 9 205 Intoxicación alimentaria
## 10 206 Intoxicación alimentaria
## 11 103 Convulsiones
## 12 204 Fractura de hueso
## 13 305 Neumonía
## 14 306 Neumonía
## 15 307 Fractura de hueso
## 16 104 Quemaduras
## 17 207 Fractura de hueso
## 18 302 Convulsiones
## 19 101 Acidente de transito
## 20 201 Quemaduras2.2. Por medio de informe gráfico clasifique por:
- Pacientes mujeres y Hombres
pacientes_sexo = table(historias_clinicas$Identidad_Pacientes.Sexo)
barplot(pacientes_sexo, main = "Pacientes Mujeres y Hombres", xlab = "Sexo", ylab = "Pacientes", col = c("pink", "lightblue"), legend = c("Mujer", "Hombre"))
- edad y si es fumante o no
boxplot(historias_clinicas$Identidad_Pacientes.Edad ~ historias_clinicas$Identidad_Pacientes.Fumante, main = "Edad y Fumador", xlab = "Fumador", ylab = "Edad", col = c("lightgreen", "darkred"))
- Pacientes por piso divididos por sexo
pacientes_piso_sexo = table(historias_clinicas$Identidad_Pacientes.Sexo, historias_clinicas$Proceso_Ingreso_Entidad.Piso)
barplot(pacientes_piso_sexo, main = "Pacientes por Piso y Sexo", xlab = "Piso", ylab = "Cantidad", col = c("pink", "lightblue"), legend = c("Mujer", "Hombre"))
- Edad y causa de ingreso
barplot(table(historias_clinicas$Proceso_Ingreso_Entidad.Causa, historias_clinicas$Identidad_Pacientes.Edad), beside = TRUE, legend.text = TRUE, xlab = "Edad", ylab = "Cantidad de pacientes por Causa", main = "Relación entre Edad y Causa de Ingreso", col = rainbow(6))
- Promedio de edad (M,H)
promedio_edad = tapply(historias_clinicas$Identidad_Pacientes.Edad, historias_clinicas$Identidad_Pacientes.Sexo, mean)
plot(promedio_edad, main = "Promedio de Edad por Género", xlab = "Género", ylab = "Edad", xlim = c(0.5, 2.5), ylim = c(21, 45), col = c("violet", "darkblue"), pch = 16)
text(1, promedio_edad[1], paste("F:", round(promedio_edad[1], 3)), pos = 3)
text(2, promedio_edad[2], paste("M:", round(promedio_edad[2], 3)), pos = 1)
- Datos independientes de 3 pacientes
set.seed(Sys.time())
indices_aleatorios = sample(1:nrow(historias_clinicas), 3, replace = FALSE)
pacientes_aleatorios = historias_clinicas[indices_aleatorios, ]
pacientes_aleatorios## Identidad_Pacientes.Cedula Identidad_Pacientes.Nombres
## 16 100698745 Isabella
## 5 104527896 Karol
## 3 92145736 Evelyn
## Identidad_Pacientes.Apellidos Identidad_Pacientes.Edad
## 16 Devia 39
## 5 Gonzalez 42
## 3 Barrero 42
## Identidad_Pacientes.Sexo Identidad_Pacientes.Domicilio
## 16 F Calle 89 # 56-78
## 5 F Diagonal 34 # 56-78
## 3 F Carrera 15 # 78-90
## Identidad_Pacientes.Ciudad Identidad_Pacientes.Departamento
## 16 Monteria Cordoba
## 5 Cartagena Bolivar
## 3 Cali Valle del Cauca
## Identidad_Pacientes.Telefono Identidad_Pacientes.Historial_Clinico
## 16 3215432109 698745
## 5 3105678901 452789
## 3 3183456789 982145
## Identidad_Pacientes.Fumante Proceso_Ingreso_Entidad.Procedencia
## 16 N EPS
## 5 N EPS
## 3 S EPS
## Proceso_Ingreso_Entidad.Fecha_Ingreso Proceso_Ingreso_Entidad.Piso
## 16 2019-08-11 1
## 5 2021-02-28 1
## 3 2020-05-20 3
## Proceso_Ingreso_Entidad.Cama Proceso_Ingreso_Entidad.Causa
## 16 104 Quemaduras
## 5 106 Fractura de hueso
## 3 303 Neumonía- Datos de 3 pacientes por identidad
pacientes_por_identidad = subset(historias_clinicas, historias_clinicas$Identidad_Pacientes.Cedula %in% c(10796321, 100458712, 108746392))
pacientes_por_identidad## Identidad_Pacientes.Cedula Identidad_Pacientes.Nombres
## 6 10796321 Laura
## 10 100458712 Santiago
## 15 108746392 Alejandro
## Identidad_Pacientes.Apellidos Identidad_Pacientes.Edad
## 6 Hernandez 30
## 10 Escobar 45
## 15 Vargas 36
## Identidad_Pacientes.Sexo Identidad_Pacientes.Domicilio
## 6 F Calle 45 # 90-23
## 10 M Diagonal 5A # 56-78
## 15 M Diagonal 23 # 45-67
## Identidad_Pacientes.Ciudad Identidad_Pacientes.Departamento
## 6 Cucuta Norte de Santander
## 10 Villavicencio Meta
## 15 Cali Valle del Cauca
## Identidad_Pacientes.Telefono Identidad_Pacientes.Historial_Clinico
## 6 3176789012 798632
## 10 3180123456 458712
## 15 3046543210 746392
## Identidad_Pacientes.Fumante Proceso_Ingreso_Entidad.Procedencia
## 6 N EPS
## 10 N Particular
## 15 N EPS
## Proceso_Ingreso_Entidad.Fecha_Ingreso Proceso_Ingreso_Entidad.Piso
## 6 2021-06-05 1
## 10 2023-05-12 2
## 15 2023-09-07 3
## Proceso_Ingreso_Entidad.Cama Proceso_Ingreso_Entidad.Causa
## 6 105 Intoxicación alimentaria
## 10 206 Intoxicación alimentaria
## 15 307 Fractura de hueso- Lista de causas de ingreso
unique_causas = unique(historias_clinicas$Proceso_Ingreso_Entidad.Causa)
print(unique_causas)## [1] "Fractura de hueso" "Acidente de transito"
## [3] "Neumonía" "Intoxicación alimentaria"
## [5] "Quemaduras" "Convulsiones"2.3. Exportar base de datos a Excel
historias_clinicas$Proceso_Ingreso_Entidad.Fecha_Ingreso = as.Date(historias_clinicas$Proceso_Ingreso_Entidad.Fecha_Ingreso)
historias_clinicas$Proceso_Ingreso_Entidad.Piso = as.integer(historias_clinicas$Proceso_Ingreso_Entidad.Piso)
historias_clinicas$Proceso_Ingreso_Entidad.Cama = as.integer(historias_clinicas$Proceso_Ingreso_Entidad.Cama)
historias_clinicas$Identidad_Pacientes.Edad = as.integer(historias_clinicas$Identidad_Pacientes.Edad)
historias_clinicas$Identidad_Pacientes.Historial_Clinico = as.integer(historias_clinicas$Identidad_Pacientes.Historial_Clinico)
historias_clinicas$Identidad_Pacientes.Cedula = as.numeric(historias_clinicas$Identidad_Pacientes.Cedula)
historias_clinicas$Identidad_Pacientes.Telefono = as.numeric(historias_clinicas$Identidad_Pacientes.Telefono)
library(xlsx)
write.xlsx(historias_clinicas, "historias_clinicas.xlsx", row.names = FALSE)