taller_3
Alejandro Bernal
2024-04-26
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(
Numero_cedula = c("1234567890", "2345678901", "3456789012", "4567890123", "5678901234", "6789012345", "7890123456", "8901234567", "9012345678", "0123456789", "1122334455", "2233445566", "3344556677", "4455667788", "5566778899", "6677889900", "7788990011", "8899001122", "9900112233", "0011223344"),
Nombres = c("Juan", "María", "Carlos", "Ana", "Luis", "Laura", "Pedro", "Sofía", "Diego", "Elena", "Miguel", "Valeria", "Martín", "Camila", "Javier", "Lucía", "Fernando", "Daniela", "Gabriel", "Gabriela"),
Apellidos = c("Pérez", "González", "Rodríguez", "Gómez", "Fernández", "Díaz", "Martínez", "López", "Hernández", "Pereira", "Alvarez", "Torres", "Vargas", "Ruiz", "Sánchez", "Ramírez", "Flores", "Castro", "Morales", "Ortega"),
Edad = c(30, 25, 40, 35, 28, 32, 45, 50, 22, 27, 39, 33, 31, 29, 42, 36, 26, 41, 37, 38),
Sexo = c("F", "F", "M", "F", "M", "F", "M", "F", "M", "F", "M", "F", "M", "F", "M", "F", "F", "F", "M", "F"),
Domicilio = c("Calle 123", "Av. Principal", "Carrera 45", "Calle 67", "Calle 89", "Carrera 10", "Av. Libertador", "Carrera 30", "Calle 50", "Carrera 20", "Calle 34", "Av. Bolívar", "Calle 78", "Av. 19", "Carrera 12", "Av. Boyacá", "Calle 56", "Carrera 5", "Calle 90", "Carrera 15"),
Ciudad = c("Bogotá", "Medellín", "Cali", "Barranquilla", "Cartagena", "Pereira", "Manizales", "Bucaramanga", "Cúcuta", "Villavicencio", "Pasto", "Neiva", "Tunja", "Popayán", "Santa Marta", "Armenia", "Ibagué", "Sincelejo", "Riohacha", "Valledupar"),
Departamento = c("Cundinamarca", "Antioquia", "Valle del Cauca", "Atlántico", "Bolívar", "Risaralda", "Caldas", "Santander", "Norte de Santander", "Meta", "Nariño", "Huila", "Boyacá", "Cauca", "Magdalena", "Quindío", "Tolima", "Sucre", "La Guajira", "Cesar"),
Telefono = c("1234567", "2345678", "3456789", "4567890", "5678901", "6789012", "7890123", "8901234", "9012345", "0123456", "1122334", "2233445", "3344556", "4455667", "5566778", "6677889", "7788990", "8899001", "9900112", "0011223"),
Numero_historial = c("H001", "H002", "H003", "H004", "H005", "H006", "H007", "H008", "H009", "H010", "H011", "H012", "H013", "H014", "H015", "H016", "H017", "H018", "H019", "H020"),
Fumante = c("S", "N", "S", "N", "S", "N", "S", "N", "S", "N", "S", "N", "S", "N", "S", "N", "S", "N", "S", "N")
),
Proceso_Ingreso_Entidad = data.frame(
Procedencia = c("Emergencia", "Consulta externa", "Referido", "Programado", "Urgencias", "Consulta externa", "Emergencia", "Referido", "Programado", "Urgencias", "Emergencia", "Consulta externa", "Referido", "Programado", "Urgencias", "Emergencia", "Consulta externa", "Referido", "Programado", "Urgencias"),
Fecha_ingreso = as.Date(c("2023-01-01", "2023-02-03", "2023-03-15", "2023-04-20", "2023-05-10", "2023-06-12", "2023-07-18", "2023-08-25", "2023-09-30", "2023-10-05", "2023-11-11", "2023-12-19", "2024-01-22", "2024-02-28", "2024-03-05", "2024-04-10", "2024-05-15", "2024-06-20", "2024-07-25", "2024-08-30")),
Numero_piso = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10),
Numero_cama = c(101, 202, 303, 404, 505, 606, 707, 808, 909, 1010, 111, 212, 313, 414, 515, 616, 717, 818, 919, 1020),
Causa_ingreso = 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.Numero_cedula Identidad_Pacientes.Nombres
## 1 1234567890 Juan
## 2 2345678901 María
## 3 3456789012 Carlos
## 4 4567890123 Ana
## 5 5678901234 Luis
## 6 6789012345 Laura
## 7 7890123456 Pedro
## 8 8901234567 Sofía
## 9 9012345678 Diego
## 10 0123456789 Elena
## 11 1122334455 Miguel
## 12 2233445566 Valeria
## 13 3344556677 Martín
## 14 4455667788 Camila
## 15 5566778899 Javier
## 16 6677889900 Lucía
## 17 7788990011 Fernando
## 18 8899001122 Daniela
## 19 9900112233 Gabriel
## 20 0011223344 Gabriela
## Identidad_Pacientes.Apellidos Identidad_Pacientes.Edad
## 1 Pérez 30
## 2 González 25
## 3 Rodríguez 40
## 4 Gómez 35
## 5 Fernández 28
## 6 Díaz 32
## 7 Martínez 45
## 8 López 50
## 9 Hernández 22
## 10 Pereira 27
## 11 Alvarez 39
## 12 Torres 33
## 13 Vargas 31
## 14 Ruiz 29
## 15 Sánchez 42
## 16 Ramírez 36
## 17 Flores 26
## 18 Castro 41
## 19 Morales 37
## 20 Ortega 38
## Identidad_Pacientes.Sexo Identidad_Pacientes.Domicilio
## 1 F Calle 123
## 2 F Av. Principal
## 3 M Carrera 45
## 4 F Calle 67
## 5 M Calle 89
## 6 F Carrera 10
## 7 M Av. Libertador
## 8 F Carrera 30
## 9 M Calle 50
## 10 F Carrera 20
## 11 M Calle 34
## 12 F Av. Bolívar
## 13 M Calle 78
## 14 F Av. 19
## 15 M Carrera 12
## 16 F Av. Boyacá
## 17 F Calle 56
## 18 F Carrera 5
## 19 M Calle 90
## 20 F Carrera 15
## Identidad_Pacientes.Ciudad Identidad_Pacientes.Departamento
## 1 Bogotá Cundinamarca
## 2 Medellín Antioquia
## 3 Cali Valle del Cauca
## 4 Barranquilla Atlántico
## 5 Cartagena Bolívar
## 6 Pereira Risaralda
## 7 Manizales Caldas
## 8 Bucaramanga Santander
## 9 Cúcuta Norte de Santander
## 10 Villavicencio Meta
## 11 Pasto Nariño
## 12 Neiva Huila
## 13 Tunja Boyacá
## 14 Popayán Cauca
## 15 Santa Marta Magdalena
## 16 Armenia Quindío
## 17 Ibagué Tolima
## 18 Sincelejo Sucre
## 19 Riohacha La Guajira
## 20 Valledupar Cesar
## Identidad_Pacientes.Telefono Identidad_Pacientes.Numero_historial
## 1 1234567 H001
## 2 2345678 H002
## 3 3456789 H003
## 4 4567890 H004
## 5 5678901 H005
## 6 6789012 H006
## 7 7890123 H007
## 8 8901234 H008
## 9 9012345 H009
## 10 0123456 H010
## 11 1122334 H011
## 12 2233445 H012
## 13 3344556 H013
## 14 4455667 H014
## 15 5566778 H015
## 16 6677889 H016
## 17 7788990 H017
## 18 8899001 H018
## 19 9900112 H019
## 20 0011223 H020
## Identidad_Pacientes.Fumante Proceso_Ingreso_Entidad.Procedencia
## 1 S Emergencia
## 2 N Consulta externa
## 3 S Referido
## 4 N Programado
## 5 S Urgencias
## 6 N Consulta externa
## 7 S Emergencia
## 8 N Referido
## 9 S Programado
## 10 N Urgencias
## 11 S Emergencia
## 12 N Consulta externa
## 13 S Referido
## 14 N Programado
## 15 S Urgencias
## 16 N Emergencia
## 17 S Consulta externa
## 18 N Referido
## 19 S Programado
## 20 N Urgencias
## Proceso_Ingreso_Entidad.Fecha_ingreso Proceso_Ingreso_Entidad.Numero_piso
## 1 2023-01-01 1
## 2 2023-02-03 2
## 3 2023-03-15 3
## 4 2023-04-20 4
## 5 2023-05-10 5
## 6 2023-06-12 6
## 7 2023-07-18 7
## 8 2023-08-25 8
## 9 2023-09-30 9
## 10 2023-10-05 10
## 11 2023-11-11 1
## 12 2023-12-19 2
## 13 2024-01-22 3
## 14 2024-02-28 4
## 15 2024-03-05 5
## 16 2024-04-10 6
## 17 2024-05-15 7
## 18 2024-06-20 8
## 19 2024-07-25 9
## 20 2024-08-30 10
## Proceso_Ingreso_Entidad.Numero_cama Proceso_Ingreso_Entidad.Causa_ingreso
## 1 101 Fractura de hueso
## 2 202 Acidente de transito
## 3 303 Neumonía
## 4 404 Acidente de transito
## 5 505 Fractura de hueso
## 6 606 Intoxicación alimentaria
## 7 707 Quemaduras
## 8 808 Convulsiones
## 9 909 Intoxicación alimentaria
## 10 1010 Intoxicación alimentaria
## 11 111 Convulsiones
## 12 212 Fractura de hueso
## 13 313 Neumonía
## 14 414 Neumonía
## 15 515 Fractura de hueso
## 16 616 Quemaduras
## 17 717 Fractura de hueso
## 18 818 Convulsiones
## 19 919 Acidente de transito
## 20 1020 Quemaduras//2.2. Por medio de informe gráfico clasifique por://
- Pacientes mujeres y Hombres.
pacientes_genero = table(historias_clinicas$Identidad_Pacientes.Sexo)
barplot(pacientes_genero, main = "Pacientes Mujeres y Hombres", xlab = "Sexo", ylab = "Pacientes", col = c("green", "blue"), 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 Fumante", xlab = "Fumador", ylab = "Edad", col = c("red", "blue"))
//Pacientes por piso divididos por sexo//
pacientes_piso_sexo = table(historias_clinicas$Identidad_Pacientes.Sexo, historias_clinicas$Proceso_Ingreso_Entidad.Numero_piso)
barplot(pacientes_piso_sexo, main = "Pacientes por Piso y Sexo", xlab = "Piso", ylab = "Cantidad", col = c("red", "blue"), 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))
e.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("red", "blue"), pch = 17)
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
datos_pacientes <- historias_clinicas[1:3, ]
datos_pacientes## Identidad_Pacientes.Numero_cedula Identidad_Pacientes.Nombres
## 1 1234567890 Juan
## 2 2345678901 María
## 3 3456789012 Carlos
## Identidad_Pacientes.Apellidos Identidad_Pacientes.Edad
## 1 Pérez 30
## 2 González 25
## 3 Rodríguez 40
## Identidad_Pacientes.Sexo Identidad_Pacientes.Domicilio
## 1 F Calle 123
## 2 F Av. Principal
## 3 M Carrera 45
## Identidad_Pacientes.Ciudad Identidad_Pacientes.Departamento
## 1 Bogotá Cundinamarca
## 2 Medellín Antioquia
## 3 Cali Valle del Cauca
## Identidad_Pacientes.Telefono Identidad_Pacientes.Numero_historial
## 1 1234567 H001
## 2 2345678 H002
## 3 3456789 H003
## Identidad_Pacientes.Fumante Proceso_Ingreso_Entidad.Procedencia
## 1 S Emergencia
## 2 N Consulta externa
## 3 S Referido
## Proceso_Ingreso_Entidad.Fecha_ingreso Proceso_Ingreso_Entidad.Numero_piso
## 1 2023-01-01 1
## 2 2023-02-03 2
## 3 2023-03-15 3
## Proceso_Ingreso_Entidad.Numero_cama Proceso_Ingreso_Entidad.Causa_ingreso
## 1 101 Fractura de hueso
## 2 202 Acidente de transito
## 3 303 Neumonía- Datos de 3 pacientes por identidad
pacientes_por_identidad = subset(historias_clinicas, historias_clinicas$Identidad_Pacientes.Numero_cedula%in% c(6789012345, 2233445566, 6677889900))
pacientes_por_identidad## Identidad_Pacientes.Numero_cedula Identidad_Pacientes.Nombres
## 6 6789012345 Laura
## 12 2233445566 Valeria
## 16 6677889900 Lucía
## Identidad_Pacientes.Apellidos Identidad_Pacientes.Edad
## 6 Díaz 32
## 12 Torres 33
## 16 Ramírez 36
## Identidad_Pacientes.Sexo Identidad_Pacientes.Domicilio
## 6 F Carrera 10
## 12 F Av. Bolívar
## 16 F Av. Boyacá
## Identidad_Pacientes.Ciudad Identidad_Pacientes.Departamento
## 6 Pereira Risaralda
## 12 Neiva Huila
## 16 Armenia Quindío
## Identidad_Pacientes.Telefono Identidad_Pacientes.Numero_historial
## 6 6789012 H006
## 12 2233445 H012
## 16 6677889 H016
## Identidad_Pacientes.Fumante Proceso_Ingreso_Entidad.Procedencia
## 6 N Consulta externa
## 12 N Consulta externa
## 16 N Emergencia
## Proceso_Ingreso_Entidad.Fecha_ingreso Proceso_Ingreso_Entidad.Numero_piso
## 6 2023-06-12 6
## 12 2023-12-19 2
## 16 2024-04-10 6
## Proceso_Ingreso_Entidad.Numero_cama Proceso_Ingreso_Entidad.Causa_ingreso
## 6 606 Intoxicación alimentaria
## 12 212 Fractura de hueso
## 16 616 QuemadurasH.Lista de causas de ingreso
unique(historias_clinicas$Proceso_Ingreso_Entidad.Causa_ingreso)## [1] "Fractura de hueso" "Acidente de transito"
## [3] "Neumonía" "Intoxicación alimentaria"
## [5] "Quemaduras" "Convulsiones"2.3. Exportar base de datos a Excel