Paciente <- data.frame(
NumeroDeCédula = c(8845352, 6676521, 9833585, 9240267, 8019600, 7686616, 2386876, 8126344, 4944305, 1473259, 6649615, 6785550, 1230898, 2843804, 7934765, 7788027, 6311189, 7755317, 2839744, 1505793),
NombresDelPaciente = c("nora", "carla", "mohamed", "larry", "lily", "nubia", "Jonathan", "Seamus", "Rajan", "Clara", "Tara", "Brooke", "Chloe", "Ronnie", "Nadine", "Trinity", "Esha", "Sebastian", "Henrietta", "Cayden"),
ApellidosDelPaciente = c("rodriguez", "cooper", "Edwards", "O'Doherty", "Howard", "Richard", "Buck", "Montoya", "Carr", "Bonner", "Garza", "Dunn", "Gill", "Goodwin", "Colon", "Odling", "Thomas", "O'Reilly", "Hunter", "Solomon"),
Edad = c(44, 44, 59, 59, 77, 33, 96, 98, 71, 4, 12, 51, 3, 10, 62, 48, 62, 58, 27, 3),
Sexo = c("F", "F", "F", "F", "M", "M", "M", "F", "F", "F", "F", "M", "F", "M", "M", "F", "F", "F", "F", "F"),
Domicilio = c("Calle 11 Numero 89", "Calle 36 Numero 66", "Calle 3 Numero 38", "Calle 80 Numero 1", "Calle 33 Numero 124", "Calle 44 Numero 76", "Calle 90 Numero 82", "Calle 56 Numero 90", "Calle 71 Numero 67", "Calle 94 Numero 50", "Calle 16 Numero 64", "Calle 33 Numero 20", "Calle 22 Numero 7", "Calle 15 Numero 100", "Calle 65 Numero 56", "Calle 64 Numero 106", "Calle 14 Numero 57", "Calle 10 Numero 29", "Calle 8 Numero 55", "Calle 59 Numero 76"),
Ciudad = c("Cali", "Bogota", "Bogota", "Jamundi", "jamundi", "jamundi", "Cali", "Cali", "Cali", "Cali", "Cali", "Cali", "Cali", "Cali", "Cali", "Cali", "Cali", "Bogota", "Medellin", "Medellin"),
Departamento = c("valle", "valle", "valle", "cundinamarca", "cundinamarca", "valle", "valle", "valle", "valle", "valle", "guaviare", "valle", "Colombia", "valle", "valle", "valle", "valle", "amazonas", "vichada", "Colombia"),
NúmeroDeTeléfono = c(8961021097, 1727069264, 7325087578, 1383858126, 9941503822, 6420217642, 3487772594, 2992182506, 5819673889, 8820229259, 9209013140, 7898253303, 4451282098, 8251156618, 7097964646, 1054371088, 4364975902, 5129394276, 4269828570, 7173475570),
NúmeroDeHistorialClÃnico = c(18086, 58588, 11328, 52492, 64401, 75852, 87407, 44588, 40239, 33976, 45846, 40013, 57856, 38832, 67278, 89097, 42688, 15372, 83644, 88968),
Fumante= c("S", "S", "S", "S", "S", "S", "S", "N", "S", "N", "S", "N", "N", "N", "N", "S", "S", "S", "S", "S"),
Procedencia = c("Cirugia", "Diagnostico", "Diagnostico", "Cita medico general", "Cirugia", "Cita medico general", "Cirugia", "Cita medico general", "Cita medico general", "Cirugia", "Cita medico general", "Cita medico general", "Diagnostico", "Cita medico general", "Diagnostico", "Cita medico general", "Cita medico general", "Diagnostico", "Cirugia", "Cirugia"),
FechaDeIngreso = c("07-02-2024", "25-06-2023", "28-01-2024", "03-12-2023", "27-09-2023", "27-06-2023", "03-09-2023", "25-06-2023", "13-02-2023", "11-07-2023", "14-03-2024", "21-03-2024", "15-02-2024", "11-08-2023", "14-04-2023", "07-04-2024", "17-09-2023", "06-11-2024", "19-01-2023", "05-03-2023"),
NumeroDePiso =c(1, 1, 2, 2, 2, 3, 3, 3, 2, 1, 3, 2, 3, 4, 4, 4, 5, 5, 5, 5),
NumeroDeCama =c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20),
CausaDeIngreso =c("Accidente", "Accidente", "Accidente", "Accidente", "Accidente", "Accidente", "Accidente", "Accidente", "Accidente", "Consulta", "Accidente", "Consulta", "Accidente", "Consulta", "Consulta", "Consulta", "Accidente", "Accidente", "Consulta", "Accidente")
)
edit(Paciente)
## NumeroDeCédula NombresDelPaciente ApellidosDelPaciente Edad Sexo
## 1 8845352 nora rodriguez 44 F
## 2 6676521 carla cooper 44 F
## 3 9833585 mohamed Edwards 59 F
## 4 9240267 larry O'Doherty 59 F
## 5 8019600 lily Howard 77 M
## 6 7686616 nubia Richard 33 M
## 7 2386876 Jonathan Buck 96 M
## 8 8126344 Seamus Montoya 98 F
## 9 4944305 Rajan Carr 71 F
## 10 1473259 Clara Bonner 4 F
## 11 6649615 Tara Garza 12 F
## 12 6785550 Brooke Dunn 51 M
## 13 1230898 Chloe Gill 3 F
## 14 2843804 Ronnie Goodwin 10 M
## 15 7934765 Nadine Colon 62 M
## 16 7788027 Trinity Odling 48 F
## 17 6311189 Esha Thomas 62 F
## 18 7755317 Sebastian O'Reilly 58 F
## 19 2839744 Henrietta Hunter 27 F
## 20 1505793 Cayden Solomon 3 F
## Domicilio Ciudad Departamento NúmeroDeTeléfono
## 1 Calle 11 Numero 89 Cali valle 8961021097
## 2 Calle 36 Numero 66 Bogota valle 1727069264
## 3 Calle 3 Numero 38 Bogota valle 7325087578
## 4 Calle 80 Numero 1 Jamundi cundinamarca 1383858126
## 5 Calle 33 Numero 124 jamundi cundinamarca 9941503822
## 6 Calle 44 Numero 76 jamundi valle 6420217642
## 7 Calle 90 Numero 82 Cali valle 3487772594
## 8 Calle 56 Numero 90 Cali valle 2992182506
## 9 Calle 71 Numero 67 Cali valle 5819673889
## 10 Calle 94 Numero 50 Cali valle 8820229259
## 11 Calle 16 Numero 64 Cali guaviare 9209013140
## 12 Calle 33 Numero 20 Cali valle 7898253303
## 13 Calle 22 Numero 7 Cali Colombia 4451282098
## 14 Calle 15 Numero 100 Cali valle 8251156618
## 15 Calle 65 Numero 56 Cali valle 7097964646
## 16 Calle 64 Numero 106 Cali valle 1054371088
## 17 Calle 14 Numero 57 Cali valle 4364975902
## 18 Calle 10 Numero 29 Bogota amazonas 5129394276
## 19 Calle 8 Numero 55 Medellin vichada 4269828570
## 20 Calle 59 Numero 76 Medellin Colombia 7173475570
## NúmeroDeHistorialClÃnico Fumante Procedencia FechaDeIngreso
## 1 18086 S Cirugia 07-02-2024
## 2 58588 S Diagnostico 25-06-2023
## 3 11328 S Diagnostico 28-01-2024
## 4 52492 S Cita medico general 03-12-2023
## 5 64401 S Cirugia 27-09-2023
## 6 75852 S Cita medico general 27-06-2023
## 7 87407 S Cirugia 03-09-2023
## 8 44588 N Cita medico general 25-06-2023
## 9 40239 S Cita medico general 13-02-2023
## 10 33976 N Cirugia 11-07-2023
## 11 45846 S Cita medico general 14-03-2024
## 12 40013 N Cita medico general 21-03-2024
## 13 57856 N Diagnostico 15-02-2024
## 14 38832 N Cita medico general 11-08-2023
## 15 67278 N Diagnostico 14-04-2023
## 16 89097 S Cita medico general 07-04-2024
## 17 42688 S Cita medico general 17-09-2023
## 18 15372 S Diagnostico 06-11-2024
## 19 83644 S Cirugia 19-01-2023
## 20 88968 S Cirugia 05-03-2023
## NumeroDePiso NumeroDeCama CausaDeIngreso
## 1 1 1 Accidente
## 2 1 2 Accidente
## 3 2 3 Accidente
## 4 2 4 Accidente
## 5 2 5 Accidente
## 6 3 6 Accidente
## 7 3 7 Accidente
## 8 3 8 Accidente
## 9 2 9 Accidente
## 10 1 10 Consulta
## 11 3 11 Accidente
## 12 2 12 Consulta
## 13 3 13 Accidente
## 14 4 14 Consulta
## 15 4 15 Consulta
## 16 4 16 Consulta
## 17 5 17 Accidente
## 18 5 18 Accidente
## 19 5 19 Consulta
## 20 5 20 Accidente
barplot(table(Paciente$Sexo))
attach(Paciente)
table(Fumante,Edad)
## Edad
## Fumante 3 4 10 12 27 33 44 48 51 58 59 62 71 77 96 98
## N 1 1 1 0 0 0 0 0 1 0 0 1 0 0 0 1
## S 1 0 0 1 1 1 2 1 0 1 2 1 1 1 1 0
barplot(table(Fumante, Edad),main="edad",beside=TRUE)
table(NumeroDePiso,Sexo)
## Sexo
## NumeroDePiso F M
## 1 3 0
## 2 3 2
## 3 3 2
## 4 1 2
## 5 4 0
barplot(table(NumeroDePiso, Sexo),main="piso",beside=TRUE)
table(Edad,CausaDeIngreso)
## CausaDeIngreso
## Edad Accidente Consulta
## 3 2 0
## 4 0 1
## 10 0 1
## 12 1 0
## 27 0 1
## 33 1 0
## 44 2 0
## 48 0 1
## 51 0 1
## 58 1 0
## 59 2 0
## 62 1 1
## 71 1 0
## 77 1 0
## 96 1 0
## 98 1 0
barplot(table(Edad, CausaDeIngreso),main="edad",beside=TRUE)
table(Edad)
## Edad
## 3 4 10 12 27 33 44 48 51 58 59 62 71 77 96 98
## 2 1 1 1 1 1 2 1 1 1 2 2 1 1 1 1
mean(Edad,na.rm = FALSE)
## [1] 46.05
barplot(table(Edad),main="promedio edad = 46.05",beside=TRUE)
barplot(table(CausaDeIngreso),main="Causas de ingreso",beside=TRUE)
