Base de datos de 20 pacientes
cc = c("10075436297", "112792998", "1010075284", "65734438", "675488962", "10054896325", "10023569874", "10045236987", "68952324", "10023214785", "10075426398", "10063214565", "10023569874", "10056235478", "10045236987", "10034587965", "10036589874", "10005698745", "10098754122", "10045236975")
nombre = c("Maria", "Jose", "Ana", "Natalia", "Josue", "Valeria", "Jorge", "Jairo", "Nohora", "Rosalba", "Stella", "Fredy", "Carlos", "Kenner", "Nicol", "Sofia", "Elian", "Alejandra", "Jackeline", "Sara")
apellido = c("Londoño Sanchez", "Sanchez Hernandez", "Alegrias Alzate", "Sanchez Villanueva", "Daza Castañeda", "Vasquez Garcia", "Gonzalez Sanchez", "Varela Gutierrez", "Rodriguez Cruz", "Ordoñez Olarte", "Mendez Sanchez", "Vasquez Olaya", "Pineda Gomez", "Londoño Gomez", "Gonzalez Cruz", "Parra Arango", "Rojas perez", "Castillo Torres", "Mendoza Gil", "Dorado Betancur")
edad = c(22,30,21,52,62,32,45,58,74,54,62,56,53,51,41,24,25,36,14,15)
Sexo = c("F","M","F","F","M","F","M","M","F","F","F","M","M","M","F","F","M","F","F","F")
domicilio = c("Calle 10 # 5-51","Calle 25 # 6-08","Calle 53 # 25A-35","Carrera 21 # 17 -63","Calle 25 # 6-08","Calle 10 # 8-07","Calle 16 # 3-28","Calle 37 # 42-12","Calle 17 # 29-70","Avenida 1 # 28-57","Carrera 10 # 3-92","Carrera 11 # 41-13","Calle 53 No 10-60/46","Calle 9 # 9 2","Calle 19 # 80A-40","Carrera 42 # 54-77","Calle 100 # 11B-27","Carrera 20 B # 29-18","Carrera 20 B # 29-18","Calle 4 norte # 10B-66")
ciudad = c("Cali","Cali","Palmira","Cali","Cali","Jamundi","Cali","Cali","Cali","Palmira","Cali","Cali","Cali","Cali","Jamundi","Cali","Cali","Darien","Cali","Cali")
departamento = c("Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca","Valle del Cauca")
numero_telefono = c(3016274020,3036275020,3036275921,3046575320,3136276020,3096275023,3106377020,3036276070,3005274030,3004275070,3026275540,3006278090,3004276070,3086295240,3004276040,3046265060,3056274026,3004276026,3026475120,3036274050)
numero_historial = c(1001,1002,1003,1004,1005,1006,1007,1008,1009,1010,1011,1012,1013,1014,1015,1016,1017,1018,1019,1020)
fumante = c("N","S","N","N","N","N","N","N","N","S","N","N","S","S","N","S","N","N","N","N")
procedencia = c("Casa","Clinica Imbanaco","Clinica Dime","Trabajo","Casa","Casa","Accidende de transito","Trabajo","Casa","Casa","Clinica Colombia","Dime","Clinica Imbanaco","Casa","Trabajo","casa","Casa","Casa","Trabajo","Casa")
fecha_ingreso = c("10/03/22","12/03/22","15/03/22","20/03/22","01/04/22","10/02/22","09/03/22","21/03/22","01/04/22","02/03/22","06/03/22","05/04/22","10/03/22","09/03/22","10/03/22","14/03/22","18/03/22","19/03/22","06/04/22","10/03/22")
numero_piso = c(2,2,2,2,1,2,1,2,2,1,2,1,2,1,2,2,2,1,1,2)
numero_cama = c(01,05,06,07,10,15,13,16,14,17,25,12,03,02,11,18,20,22,09,08)
causa_ingreso = c("Infeccion Urinaria","Dificultad Respiratoria","Fiebre","Migraña","Dificultad Respiratoria","Fiebre","Fractura de tibia","Covid 19","Dificultad Respiratoria","Amigdalitis","Vomito","Hemorragia","Infarto","Paralisis Facial","ACV","Parto","Aneurisma Abdominal","Quemadura de II grado","Asfixia","Cefalea")
personas = data.frame(cc,nombre,apellido,edad,Sexo,domicilio,ciudad,departamento,numero_telefono,numero_historial,fumante,procedencia,fecha_ingreso,numero_piso,numero_cama,causa_ingreso)
personas
## cc nombre apellido edad Sexo domicilio
## 1 10075436297 Maria Londoño Sanchez 22 F Calle 10 # 5-51
## 2 112792998 Jose Sanchez Hernandez 30 M Calle 25 # 6-08
## 3 1010075284 Ana Alegrias Alzate 21 F Calle 53 # 25A-35
## 4 65734438 Natalia Sanchez Villanueva 52 F Carrera 21 # 17 -63
## 5 675488962 Josue Daza Castañeda 62 M Calle 25 # 6-08
## 6 10054896325 Valeria Vasquez Garcia 32 F Calle 10 # 8-07
## 7 10023569874 Jorge Gonzalez Sanchez 45 M Calle 16 # 3-28
## 8 10045236987 Jairo Varela Gutierrez 58 M Calle 37 # 42-12
## 9 68952324 Nohora Rodriguez Cruz 74 F Calle 17 # 29-70
## 10 10023214785 Rosalba Ordoñez Olarte 54 F Avenida 1 # 28-57
## 11 10075426398 Stella Mendez Sanchez 62 F Carrera 10 # 3-92
## 12 10063214565 Fredy Vasquez Olaya 56 M Carrera 11 # 41-13
## 13 10023569874 Carlos Pineda Gomez 53 M Calle 53 No 10-60/46
## 14 10056235478 Kenner Londoño Gomez 51 M Calle 9 # 9 2
## 15 10045236987 Nicol Gonzalez Cruz 41 F Calle 19 # 80A-40
## 16 10034587965 Sofia Parra Arango 24 F Carrera 42 # 54-77
## 17 10036589874 Elian Rojas perez 25 M Calle 100 # 11B-27
## 18 10005698745 Alejandra Castillo Torres 36 F Carrera 20 B # 29-18
## 19 10098754122 Jackeline Mendoza Gil 14 F Carrera 20 B # 29-18
## 20 10045236975 Sara Dorado Betancur 15 F Calle 4 norte # 10B-66
## ciudad departamento numero_telefono numero_historial fumante
## 1 Cali Valle del Cauca 3016274020 1001 N
## 2 Cali Valle del Cauca 3036275020 1002 S
## 3 Palmira Valle del Cauca 3036275921 1003 N
## 4 Cali Valle del Cauca 3046575320 1004 N
## 5 Cali Valle del Cauca 3136276020 1005 N
## 6 Jamundi Valle del Cauca 3096275023 1006 N
## 7 Cali Valle del Cauca 3106377020 1007 N
## 8 Cali Valle del Cauca 3036276070 1008 N
## 9 Cali Valle del Cauca 3005274030 1009 N
## 10 Palmira Valle del Cauca 3004275070 1010 S
## 11 Cali Valle del Cauca 3026275540 1011 N
## 12 Cali Valle del Cauca 3006278090 1012 N
## 13 Cali Valle del Cauca 3004276070 1013 S
## 14 Cali Valle del Cauca 3086295240 1014 S
## 15 Jamundi Valle del Cauca 3004276040 1015 N
## 16 Cali Valle del Cauca 3046265060 1016 S
## 17 Cali Valle del Cauca 3056274026 1017 N
## 18 Darien Valle del Cauca 3004276026 1018 N
## 19 Cali Valle del Cauca 3026475120 1019 N
## 20 Cali Valle del Cauca 3036274050 1020 N
## procedencia fecha_ingreso numero_piso numero_cama
## 1 Casa 10/03/22 2 1
## 2 Clinica Imbanaco 12/03/22 2 5
## 3 Clinica Dime 15/03/22 2 6
## 4 Trabajo 20/03/22 2 7
## 5 Casa 01/04/22 1 10
## 6 Casa 10/02/22 2 15
## 7 Accidende de transito 09/03/22 1 13
## 8 Trabajo 21/03/22 2 16
## 9 Casa 01/04/22 2 14
## 10 Casa 02/03/22 1 17
## 11 Clinica Colombia 06/03/22 2 25
## 12 Dime 05/04/22 1 12
## 13 Clinica Imbanaco 10/03/22 2 3
## 14 Casa 09/03/22 1 2
## 15 Trabajo 10/03/22 2 11
## 16 casa 14/03/22 2 18
## 17 Casa 18/03/22 2 20
## 18 Casa 19/03/22 1 22
## 19 Trabajo 06/04/22 1 9
## 20 Casa 10/03/22 2 8
## causa_ingreso
## 1 Infeccion Urinaria
## 2 Dificultad Respiratoria
## 3 Fiebre
## 4 Migraña
## 5 Dificultad Respiratoria
## 6 Fiebre
## 7 Fractura de tibia
## 8 Covid 19
## 9 Dificultad Respiratoria
## 10 Amigdalitis
## 11 Vomito
## 12 Hemorragia
## 13 Infarto
## 14 Paralisis Facial
## 15 ACV
## 16 Parto
## 17 Aneurisma Abdominal
## 18 Quemadura de II grado
## 19 Asfixia
## 20 Cefalea
Informe Gráfico
Pacientes Hombres-Mujeres
tablaA = table(Sexo)
barplot(tablaA, main="Pacientes Hombres y Mujeres", xlab = "Sexo", ylab = "Cantidad")
Edad y si es Fumante o No
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
edad_fumante = select(personas, edad, fumante)
fumanteSi = filter(edad_fumante, fumante == "S")
edad_fumantes = select(fumanteSi, edad) %>% unlist
promedio_edad_fumantes = mean(edad_fumantes)
promedio_edad_fumantes
## [1] 42.4
fumanteNo = filter(edad_fumante, fumante == "N")
edad_nofumantes = select(fumanteNo, edad) %>% unlist
promedio_edad_nofumantes = mean(edad_nofumantes)
promedio_edad_nofumantes
## [1] 41
Fumante = c(promedio_edad_fumantes)
No_fumante = c(promedio_edad_nofumantes)
tablaB = data.frame(Fumante,No_fumante)
tablaB
## Fumante No_fumante
## 1 42.4 41
datosfumantes = as.matrix(tablaB)
barplot(datosfumantes, main="Promedio de edades de pacientes fumantes y no fumantes", xlab = "Paciente", ylab = "Promedio de edad" )
library(ggplot2)
ggplot(personas,aes(x=edad))+geom_bar(aes(fill=fumante))+labs(title="Edad de pacientes fumantes y No fumantes")
Pacientes por piso divididos por sexo
tablaC = table(Sexo,numero_piso)
barplot(tablaC, main="Pacientes por piso divididos por sexo", xlab = "Número de piso", ylab = "Cantidad de pacientes",beside =TRUE,legend.text = c("Femenino","masculino"))
Edad y causa de ingreso
library(ggplot2)
edad_ingreso = select(personas, edad, causa_ingreso)
edad_ingreso
## edad causa_ingreso
## 1 22 Infeccion Urinaria
## 2 30 Dificultad Respiratoria
## 3 21 Fiebre
## 4 52 Migraña
## 5 62 Dificultad Respiratoria
## 6 32 Fiebre
## 7 45 Fractura de tibia
## 8 58 Covid 19
## 9 74 Dificultad Respiratoria
## 10 54 Amigdalitis
## 11 62 Vomito
## 12 56 Hemorragia
## 13 53 Infarto
## 14 51 Paralisis Facial
## 15 41 ACV
## 16 24 Parto
## 17 25 Aneurisma Abdominal
## 18 36 Quemadura de II grado
## 19 14 Asfixia
## 20 15 Cefalea
ggplot(personas,aes(x=edad))+geom_bar(aes(fill=causa_ingreso))+labs(title="Edad y Causa de Ingreso de Los Pacientes")
Promedio de edad (M,H)
femenino = filter(personas, Sexo=="F")
edadf = select(femenino, edad) %>% unlist
Mujeres = mean(edadf)
hist(edadf, main = "Edad Mujeres", xlab = "Edad", ylab = "Frecuencia")
Masculino = filter(personas, Sexo=="M")
edadM = select(Masculino, edad) %>% unlist
Hombres = mean(edadM)
hist(edadM, main = "Edad Hombres", xlab = "Edad", ylab = "Frecuencia")
femenino = c(Mujeres)
masculino = c(Hombres)
tablaE = data.frame(femenino,masculino)
tablaE
## femenino masculino
## 1 37.25 47.5
datos = as.matrix(tablaE)
barplot(datos, main="Promedio de edad Hombres y Mujeres", xlab = "Género", ylab = "Promedio" )
Datos de 3 pacientes por identidad
library(dplyr)
pacientes_identidad = personas[substr(personas$cc, 1, 4) == "1002",]
pacientes_identidad
## cc nombre apellido edad Sexo domicilio ciudad
## 7 10023569874 Jorge Gonzalez Sanchez 45 M Calle 16 # 3-28 Cali
## 10 10023214785 Rosalba Ordoñez Olarte 54 F Avenida 1 # 28-57 Palmira
## 13 10023569874 Carlos Pineda Gomez 53 M Calle 53 No 10-60/46 Cali
## departamento numero_telefono numero_historial fumante
## 7 Valle del Cauca 3106377020 1007 N
## 10 Valle del Cauca 3004275070 1010 S
## 13 Valle del Cauca 3004276070 1013 S
## procedencia fecha_ingreso numero_piso numero_cama
## 7 Accidende de transito 09/03/22 1 13
## 10 Casa 02/03/22 1 17
## 13 Clinica Imbanaco 10/03/22 2 3
## causa_ingreso
## 7 Fractura de tibia
## 10 Amigdalitis
## 13 Infarto
Datos de 3 pacientes independientes
pacientes_independientes = filter(personas, causa_ingreso == "Dificultad Respiratoria")
pacientes_independientes
## cc nombre apellido edad Sexo domicilio ciudad
## 1 112792998 Jose Sanchez Hernandez 30 M Calle 25 # 6-08 Cali
## 2 675488962 Josue Daza Castañeda 62 M Calle 25 # 6-08 Cali
## 3 68952324 Nohora Rodriguez Cruz 74 F Calle 17 # 29-70 Cali
## departamento numero_telefono numero_historial fumante procedencia
## 1 Valle del Cauca 3036275020 1002 S Clinica Imbanaco
## 2 Valle del Cauca 3136276020 1005 N Casa
## 3 Valle del Cauca 3005274030 1009 N Casa
## fecha_ingreso numero_piso numero_cama causa_ingreso
## 1 12/03/22 2 5 Dificultad Respiratoria
## 2 01/04/22 1 10 Dificultad Respiratoria
## 3 01/04/22 2 14 Dificultad Respiratoria
Lista causas ingreso
causas_ingreso = select(personas, causa_ingreso)
causas_ingreso
## causa_ingreso
## 1 Infeccion Urinaria
## 2 Dificultad Respiratoria
## 3 Fiebre
## 4 Migraña
## 5 Dificultad Respiratoria
## 6 Fiebre
## 7 Fractura de tibia
## 8 Covid 19
## 9 Dificultad Respiratoria
## 10 Amigdalitis
## 11 Vomito
## 12 Hemorragia
## 13 Infarto
## 14 Paralisis Facial
## 15 ACV
## 16 Parto
## 17 Aneurisma Abdominal
## 18 Quemadura de II grado
## 19 Asfixia
## 20 Cefalea