historias_clinicas <- data.frame(
Numero_Cedula = c(1004510790, 1004510791, 1004510792, 1004510793, 1004510794,
1004510795, 1004510796, 1004510797, 1004510798, 1004510799,
1004510781, 1004510782, 1004510780, 1004510783, 100510784,
1004510785, 1004510786, 1004510787, 1004510788, 1004510789),
Nombres_Paciente = c("Juan", "Samir", "Pedro", "Luis", "Matias",
"Hansel", "Carlos", "Brynner", "Jorge", "Johan",
"Andres", "Gabriel", "Diego", "Valentina", "Abril",
"Isabella", "Sara", "Camila", "Veronica", "Valeria"),
Apellidos_Paciente = c("Perez", "Gonzalez", "Lopez", "Martinez", "Rodriguez",
"Sanchez", "Ramirez", "Torres", "Flores", "Diaz",
"Ruiz", "Hernandez", "Gomez", "Vasquez", "Acosta",
"Garcia", "Moreno", "Castro", "Alvarez", "Jimenez"),
Edad = c(35, 45, 28, 52, 19, 63, 41, 37, 49, 30,
56, 22, 39, 47, 25, 33, 42, 29, 50, 18),
Sexo = c(rep("M", 13), rep("F", 7)), # 13 hombres y 7 mujeres
Domicilio = c("Calle 123", "Av. Principal", "Carrera 45", "Cra. 78", "Av. Central",
"Calle 67", "Cra. 23", "Calle 89", "Av. Norte", "Cra. 56",
"Calle 12", "Cra. 34", "Av. Sur", "Calle 56", "Cra. 67",
"Av. Este", "Cra. Oeste", "Calle Central", "Av. Sur", "Cra. Norte"),
Ciudad = c("Bogota", "Medellin", "Cali", "Barranquilla", "Cartagena",
"Bucaramanga", "Pereira", "Manizales", "Cucuta", "Santa Marta",
"Villavicencio", "Pasto", "Ibague", "Neiva", "Popayan",
"Valledupar", "Monteria", "Bello", "Buenaventura", "Sincelejo"),
Departamento = c("Cundinamarca", "Antioquia", "Valle del Cauca", "Atlantico", "Bolivar",
"Santander", "Risaralda", "Caldas", "Norte de Santander", "Magdalena",
"Meta", "Narino", "Tolima", "Huila", "Cauca", "Cesar", "Cordoba",
"Antioquia", "Valle del Cauca", "Sucre"),
Telefono = c("324567854", "3235190385", "3236748909", "3236547865", "3216549870",
"3165467895", "3128148366", "3344378976", "3123691470", "3123697410",
"3048529630", "3028527410", "3232581470", "3167419630", "3339638520",
"3231237890", "3124561230", "3127894560", "3219876540", "3233219870"),
Numero_Historial_Clinico = c(1001, 1002, 1003, 1004, 1005,
1006, 1007, 1008, 1009, 1010,
1011, 1012, 1013, 1014, 1015,
1016, 1017, 1018, 1019, 1020),
Fumante = c(rep("S", 13), rep("N", 7)), # 13 fumadores y 7 no fumadores
Procedencia = c("Urgencias", "Consulta Externa", "Urgencias", "Urgencias", "Consulta Externa",
"Consulta Externa", "Urgencias", "Consulta Externa", "Urgencias", "Consulta Externa",
"Consulta Externa", "Urgencias", "Consulta Externa", "Urgencias", "Consulta Externa",
"Urgencias", "Consulta Externa", "Urgencias", "Consulta Externa", "Urgencias"),
Fecha_Ingreso = as.Date(c("2024-01-15", "2024-02-20", "2024-03-10", "2024-04-05", "2024-05-12",
"2024-06-18", "2024-07-22", "2024-08-30", "2024-09-14", "2024-10-25",
"2024-11-08", "2024-12-19", "2024-01-02", "2024-02-09", "2024-03-16",
"2024-04-29", "2024-05-04", "2024-06-11", "2024-07-30", "2024-08-19")),
Numero_Piso = c(3, 2, 4, 1, 2, 3, 4, 1, 2, 3,
4, 1, 2, 3, 4, 1, 2, 3, 4, 1),
Numero_Cama = c(301, 205, 412, 103, 210, 315, 420, 108, 217, 322,
430, 115, 223, 331, 440, 122, 230, 342, 450, 130),
Causa_Ingreso = c("Dolor abdominal", "Fractura de brazo", "Fiebre alta", "Accidente de transito",
"Consulta rutinaria", "Dolor de cabeza", "Dolor lumbar", "Gripe", "Herida en pierna",
"Dolor en pecho", "Lesion deportiva", "Infeccion respiratoria", "Problemas digestivos",
"Esguince de tobillo", "Quemadura leve", "Dolor de espalda", "Golpe en la cabeza",
"Infeccion urinaria", "Picadura de insecto", "Dolor en rodilla")
)
print(historias_clinicas)
## Numero_Cedula Nombres_Paciente Apellidos_Paciente Edad Sexo Domicilio
## 1 1004510790 Juan Perez 35 M Calle 123
## 2 1004510791 Samir Gonzalez 45 M Av. Principal
## 3 1004510792 Pedro Lopez 28 M Carrera 45
## 4 1004510793 Luis Martinez 52 M Cra. 78
## 5 1004510794 Matias Rodriguez 19 M Av. Central
## 6 1004510795 Hansel Sanchez 63 M Calle 67
## 7 1004510796 Carlos Ramirez 41 M Cra. 23
## 8 1004510797 Brynner Torres 37 M Calle 89
## 9 1004510798 Jorge Flores 49 M Av. Norte
## 10 1004510799 Johan Diaz 30 M Cra. 56
## 11 1004510781 Andres Ruiz 56 M Calle 12
## 12 1004510782 Gabriel Hernandez 22 M Cra. 34
## 13 1004510780 Diego Gomez 39 M Av. Sur
## 14 1004510783 Valentina Vasquez 47 F Calle 56
## 15 100510784 Abril Acosta 25 F Cra. 67
## 16 1004510785 Isabella Garcia 33 F Av. Este
## 17 1004510786 Sara Moreno 42 F Cra. Oeste
## 18 1004510787 Camila Castro 29 F Calle Central
## 19 1004510788 Veronica Alvarez 50 F Av. Sur
## 20 1004510789 Valeria Jimenez 18 F Cra. Norte
## Ciudad Departamento Telefono Numero_Historial_Clinico Fumante
## 1 Bogota Cundinamarca 324567854 1001 S
## 2 Medellin Antioquia 3235190385 1002 S
## 3 Cali Valle del Cauca 3236748909 1003 S
## 4 Barranquilla Atlantico 3236547865 1004 S
## 5 Cartagena Bolivar 3216549870 1005 S
## 6 Bucaramanga Santander 3165467895 1006 S
## 7 Pereira Risaralda 3128148366 1007 S
## 8 Manizales Caldas 3344378976 1008 S
## 9 Cucuta Norte de Santander 3123691470 1009 S
## 10 Santa Marta Magdalena 3123697410 1010 S
## 11 Villavicencio Meta 3048529630 1011 S
## 12 Pasto Narino 3028527410 1012 S
## 13 Ibague Tolima 3232581470 1013 S
## 14 Neiva Huila 3167419630 1014 N
## 15 Popayan Cauca 3339638520 1015 N
## 16 Valledupar Cesar 3231237890 1016 N
## 17 Monteria Cordoba 3124561230 1017 N
## 18 Bello Antioquia 3127894560 1018 N
## 19 Buenaventura Valle del Cauca 3219876540 1019 N
## 20 Sincelejo Sucre 3233219870 1020 N
## Procedencia Fecha_Ingreso Numero_Piso Numero_Cama
## 1 Urgencias 2024-01-15 3 301
## 2 Consulta Externa 2024-02-20 2 205
## 3 Urgencias 2024-03-10 4 412
## 4 Urgencias 2024-04-05 1 103
## 5 Consulta Externa 2024-05-12 2 210
## 6 Consulta Externa 2024-06-18 3 315
## 7 Urgencias 2024-07-22 4 420
## 8 Consulta Externa 2024-08-30 1 108
## 9 Urgencias 2024-09-14 2 217
## 10 Consulta Externa 2024-10-25 3 322
## 11 Consulta Externa 2024-11-08 4 430
## 12 Urgencias 2024-12-19 1 115
## 13 Consulta Externa 2024-01-02 2 223
## 14 Urgencias 2024-02-09 3 331
## 15 Consulta Externa 2024-03-16 4 440
## 16 Urgencias 2024-04-29 1 122
## 17 Consulta Externa 2024-05-04 2 230
## 18 Urgencias 2024-06-11 3 342
## 19 Consulta Externa 2024-07-30 4 450
## 20 Urgencias 2024-08-19 1 130
## Causa_Ingreso
## 1 Dolor abdominal
## 2 Fractura de brazo
## 3 Fiebre alta
## 4 Accidente de transito
## 5 Consulta rutinaria
## 6 Dolor de cabeza
## 7 Dolor lumbar
## 8 Gripe
## 9 Herida en pierna
## 10 Dolor en pecho
## 11 Lesion deportiva
## 12 Infeccion respiratoria
## 13 Problemas digestivos
## 14 Esguince de tobillo
## 15 Quemadura leve
## 16 Dolor de espalda
## 17 Golpe en la cabeza
## 18 Infeccion urinaria
## 19 Picadura de insecto
## 20 Dolor en rodilla
pacientes_sexo <- table(historias_clinicas$Sexo)
barplot(pacientes_sexo, main = "Pacientes Mujeres y Hombres", xlab = "Sexo", ylab = "Cantidad", col = c("pink", "lightblue"), legend = c("Femenino", "Masculino"))
edad_fumante <- table(historias_clinicas$Edad, historias_clinicas$Fumante)
barplot(edad_fumante, main = "Edad y Fumante/No Fumante", xlab = "Edad", ylab = "Cantidad", col = c("lightgreen", "lightcoral"), legend = c("No Fumante", "Fumante"))
pacientes_piso_sexo <- table(historias_clinicas$Numero_Piso, historias_clinicas$Sexo)
barplot(pacientes_piso_sexo, main = "Pacientes por Piso Divididos por Sexo", xlab = "Piso", ylab = "Cantidad", col = c("pink", "lightblue"), legend = c("Femenino", "Masculino"), beside = TRUE)
edad_causa_ingreso <- table(historias_clinicas$Edad, historias_clinicas$Causa_Ingreso)
barplot(edad_causa_ingreso, main = "Edad y Causa de Ingreso", xlab = "Edad", ylab = "Cantidad", col = rainbow(nrow(edad_causa_ingreso)))
promedio_edad <- aggregate(Edad ~ Sexo, data = historias_clinicas, FUN = mean)
promedio_edad
## Sexo Edad
## 1 F 34.85714
## 2 M 39.69231
datos_pacientes <- historias_clinicas[1:3, ]
datos_pacientes
## Numero_Cedula Nombres_Paciente Apellidos_Paciente Edad Sexo Domicilio
## 1 1004510790 Juan Perez 35 M Calle 123
## 2 1004510791 Samir Gonzalez 45 M Av. Principal
## 3 1004510792 Pedro Lopez 28 M Carrera 45
## Ciudad Departamento Telefono Numero_Historial_Clinico Fumante
## 1 Bogota Cundinamarca 324567854 1001 S
## 2 Medellin Antioquia 3235190385 1002 S
## 3 Cali Valle del Cauca 3236748909 1003 S
## Procedencia Fecha_Ingreso Numero_Piso Numero_Cama Causa_Ingreso
## 1 Urgencias 2024-01-15 3 301 Dolor abdominal
## 2 Consulta Externa 2024-02-20 2 205 Fractura de brazo
## 3 Urgencias 2024-03-10 4 412 Fiebre alta
datos_pacientes_id <- subset(historias_clinicas, Numero_Cedula %in% c(1004510790, 1004510791, 1004510792))
datos_pacientes_id
## Numero_Cedula Nombres_Paciente Apellidos_Paciente Edad Sexo Domicilio
## 1 1004510790 Juan Perez 35 M Calle 123
## 2 1004510791 Samir Gonzalez 45 M Av. Principal
## 3 1004510792 Pedro Lopez 28 M Carrera 45
## Ciudad Departamento Telefono Numero_Historial_Clinico Fumante
## 1 Bogota Cundinamarca 324567854 1001 S
## 2 Medellin Antioquia 3235190385 1002 S
## 3 Cali Valle del Cauca 3236748909 1003 S
## Procedencia Fecha_Ingreso Numero_Piso Numero_Cama Causa_Ingreso
## 1 Urgencias 2024-01-15 3 301 Dolor abdominal
## 2 Consulta Externa 2024-02-20 2 205 Fractura de brazo
## 3 Urgencias 2024-03-10 4 412 Fiebre alta
unique(historias_clinicas$Causa_Ingreso)
## [1] "Dolor abdominal" "Fractura de brazo" "Fiebre alta"
## [4] "Accidente de transito" "Consulta rutinaria" "Dolor de cabeza"
## [7] "Dolor lumbar" "Gripe" "Herida en pierna"
## [10] "Dolor en pecho" "Lesion deportiva" "Infeccion respiratoria"
## [13] "Problemas digestivos" "Esguince de tobillo" "Quemadura leve"
## [16] "Dolor de espalda" "Golpe en la cabeza" "Infeccion urinaria"
## [19] "Picadura de insecto" "Dolor en rodilla"