# BASE DE DATOS DE 20 HISTORIAS CLINICAS
# PUNTO 1, INFORMACION DE LOS PACIENTES:
# NUMERO DE CEDULA:
CEDULA=c(10537683, 10256615, 31266482, 10542190, 76317155, 1002634002, 1053803562, 75077205, 75079697, 75089649, 75091491, 1053867044, 1053867440, 1053867874, 1136889150, 1152693247, 1193103447, 1193412321, 4414169, 9859830)
CEDULA
## [1] 10537683 10256615 31266482 10542190 76317155 1002634002
## [7] 1053803562 75077205 75079697 75089649 75091491 1053867044
## [13] 1053867440 1053867874 1136889150 1152693247 1193103447 1193412321
## [19] 4414169 9859830
# NOMBRES:
NOMBRE=c("ANGEL SCOOSH", "LULU", "BAILEY", "NATALIA", "SHIRLEY VIVIANA", "STEFANYA", "CAROLINA", "HAMILTON", "FABIAN", "JUAN", "CLAUDIA PATRICIA", "DANNY JIMENA", "KATALINA", "CARLOS ALFONSO", "GLADIZ", "CARLOS MARIO", "ISABELLA", "LAURA SOFIA", "SEBASTIAN", "MATEO")
NOMBRE
## [1] "ANGEL SCOOSH" "LULU" "BAILEY" "NATALIA"
## [5] "SHIRLEY VIVIANA" "STEFANYA" "CAROLINA" "HAMILTON"
## [9] "FABIAN" "JUAN" "CLAUDIA PATRICIA" "DANNY JIMENA"
## [13] "KATALINA" "CARLOS ALFONSO" "GLADIZ" "CARLOS MARIO"
## [17] "ISABELLA" "LAURA SOFIA" "SEBASTIAN" "MATEO"
# APELLIDOS:
APELLIDOS=c("MARTINEZ MARTINEZ", "RENZA DELGADO", "RAMIREZ LOZANO", "CATAÑO VASQUEZ", "MUÑOZ COLLADO", "GUERRA COLLAZOS", "JOYAS POPAYAN", "CASTRO VALDEZ", "ORTIZ HERNANDEZ", "BAHOS MONTENEGRO", "BETANCOURT MILLAN", "PAYAN BUENO", "JIMENEZ CASTILLO", "MONTES CORTEZ", "PALACIOS JIMENEZ", "NAVARRETE MENA", "ENRIQUEZ PRECIADO", "OJEDA MORA", "RODRIGUEZ PRIETO", "ZAMBRANO GARCIA")
APELLIDOS
## [1] "MARTINEZ MARTINEZ" "RENZA DELGADO" "RAMIREZ LOZANO"
## [4] "CATAÑO VASQUEZ" "MUÑOZ COLLADO" "GUERRA COLLAZOS"
## [7] "JOYAS POPAYAN" "CASTRO VALDEZ" "ORTIZ HERNANDEZ"
## [10] "BAHOS MONTENEGRO" "BETANCOURT MILLAN" "PAYAN BUENO"
## [13] "JIMENEZ CASTILLO" "MONTES CORTEZ" "PALACIOS JIMENEZ"
## [16] "NAVARRETE MENA" "ENRIQUEZ PRECIADO" "OJEDA MORA"
## [19] "RODRIGUEZ PRIETO" "ZAMBRANO GARCIA"
# EDAD:
EDAD=c("13 AÑOS", "7 AÑOS", "1 AÑO", "22 AÑOS", "25 AÑOS", "16 AÑOS", "40 AÑOS", "43 AÑOS", "45 AÑOS", "50 AÑOS", "47 AÑOS", "28 AÑOS", "18 AÑOS", "70 AÑOS", "67 AÑOS", "25 AÑOS", "23 AÑOS", "23 AÑOS", "26 AÑOS", "2 AÑOS")
EDAD
## [1] "13 AÑOS" "7 AÑOS" "1 AÑO" "22 AÑOS" "25 AÑOS" "16 AÑOS" "40 AÑOS"
## [8] "43 AÑOS" "45 AÑOS" "50 AÑOS" "47 AÑOS" "28 AÑOS" "18 AÑOS" "70 AÑOS"
## [15] "67 AÑOS" "25 AÑOS" "23 AÑOS" "23 AÑOS" "26 AÑOS" "2 AÑOS"
# SEXO:
GENERO=c("MASCULINO", "FEMENINO", "FEMENINO", "FEMENINO", "FEMENINO", "FEMENINO", "FEMENINO", "MASCULINO", "MASCULINO", "MASCULINO", "FEMENINO", "FEMENINO", "FEMENINO", "MASCULINO", "FEMENINO", "MASCULINO", "FEMENINO", "FEMENINO", "MASCULINO", "MASCULINO")
GENERO
## [1] "MASCULINO" "FEMENINO" "FEMENINO" "FEMENINO" "FEMENINO" "FEMENINO"
## [7] "FEMENINO" "MASCULINO" "MASCULINO" "MASCULINO" "FEMENINO" "FEMENINO"
## [13] "FEMENINO" "MASCULINO" "FEMENINO" "MASCULINO" "FEMENINO" "FEMENINO"
## [19] "MASCULINO" "MASCULINO"
# DOMICILIO:
DIRECCION=c("CALLE 10 # 5-51", "Avenida 19 # 98-03", "CALLE 53 # 10-60/46", "AVENIDA CALLE 26 # 59-51", "CALLE 9 # 9–62", "CALLE 19 # 80A-40", "CARRERA 21 # 17-63", "CARRERA 42 # 54-77", "CALLE 100 # 11B-27", "CARRERA 20B # 29-18", "TRANSVERSAL 9A # 29-29", "CALLE 53 # 25A-35", "CARRERA 20B # 30-12", "CALLE 7 # 19-35", "CALLE 4 NORTE # 10B-66", "CARRERA 8 # 15A-19", "CALLE 28 # 2-27", "CALLE 14C # 56-51", "CARRERA 25 # 33C-71", "CALLE 25 # 6-08")
DIRECCION
## [1] "CALLE 10 # 5-51" "Avenida 19 # 98-03"
## [3] "CALLE 53 # 10-60/46" "AVENIDA CALLE 26 # 59-51"
## [5] "CALLE 9 # 9–62" "CALLE 19 # 80A-40"
## [7] "CARRERA 21 # 17-63" "CARRERA 42 # 54-77"
## [9] "CALLE 100 # 11B-27" "CARRERA 20B # 29-18"
## [11] "TRANSVERSAL 9A # 29-29" "CALLE 53 # 25A-35"
## [13] "CARRERA 20B # 30-12" "CALLE 7 # 19-35"
## [15] "CALLE 4 NORTE # 10B-66" "CARRERA 8 # 15A-19"
## [17] "CALLE 28 # 2-27" "CALLE 14C # 56-51"
## [19] "CARRERA 25 # 33C-71" "CALLE 25 # 6-08"
# CIUDAD:
CIUDAD=c("CALI", "LETICIA", "MEDELLIN", "ARAUCA", "BARRANQUILLA", "CARTAGENA DE INDIAS", "TUNJA", "MANIZALES", "FLORENCIA", "YOPAL", "POPAYAN", "QUIBDO", "MONTERIA", "NEIVA", "SANTA MARTA", "VILLAVICENCIO", "PASTO", "ARMENIA", "PEREIRA", "BUCARAMANGA")
CIUDAD
## [1] "CALI" "LETICIA" "MEDELLIN"
## [4] "ARAUCA" "BARRANQUILLA" "CARTAGENA DE INDIAS"
## [7] "TUNJA" "MANIZALES" "FLORENCIA"
## [10] "YOPAL" "POPAYAN" "QUIBDO"
## [13] "MONTERIA" "NEIVA" "SANTA MARTA"
## [16] "VILLAVICENCIO" "PASTO" "ARMENIA"
## [19] "PEREIRA" "BUCARAMANGA"
# DEPARTAMENTO:
DEPARTAMENTO=c("VALLE DEL CAUCA", "AMAZONAS", "ANTOQUIA", "ARAUCA", "ATLANTICO", "BOLIVAR", "BOYACA", "CALDAS", "CAQUETA", "CASANARE", "CAUCA", "CHOCO", "CORDOBA", "HUILA", "MAGDALENA", "META", "NARIÑO", "QUINDIO", "RISARALDA", "SANTANDER")
DEPARTAMENTO
## [1] "VALLE DEL CAUCA" "AMAZONAS" "ANTOQUIA" "ARAUCA"
## [5] "ATLANTICO" "BOLIVAR" "BOYACA" "CALDAS"
## [9] "CAQUETA" "CASANARE" "CAUCA" "CHOCO"
## [13] "CORDOBA" "HUILA" "MAGDALENA" "META"
## [17] "NARIÑO" "QUINDIO" "RISARALDA" "SANTANDER"
# NUMERO DE TELEFONO:
CELULAR=c("3004635044", "3164040811", "3183976390", "3128345189", "3155805380", "3226221978", "3173562714", "3157886226", "3208341442", "3137569948", "3108886344", "3225214485", "3136647521", "3235190385", "3053614088", "3167844924", "3054566800", "3006048028", "3183804152", "3148057506")
CELULAR
## [1] "3004635044" "3164040811" "3183976390" "3128345189" "3155805380"
## [6] "3226221978" "3173562714" "3157886226" "3208341442" "3137569948"
## [11] "3108886344" "3225214485" "3136647521" "3235190385" "3053614088"
## [16] "3167844924" "3054566800" "3006048028" "3183804152" "3148057506"
# NUMERO DE HISTORIAL CLINICO:
ID_CLINICO=c("208001", "208002", "208003", "208004", "208005", "208006", "208007", "208008", "208009", "208010", "208011", "208012", "208013", "208014", "208015", "208016", "208017", "208018", "208019", "208020")
ID_CLINICO
## [1] "208001" "208002" "208003" "208004" "208005" "208006" "208007" "208008"
## [9] "208009" "208010" "208011" "208012" "208013" "208014" "208015" "208016"
## [17] "208017" "208018" "208019" "208020"
# FUMANTE:
FUMA=c("NO", "NO", "SI", "NO", "NO", "NO", "NO", "SI", "SI", "SI", "NO", "NO", "NO", "SI", "NO", "NO", "NO", "NO", "NO", "NO")
FUMA
## [1] "NO" "NO" "SI" "NO" "NO" "NO" "NO" "SI" "SI" "SI" "NO" "NO" "NO" "SI" "NO"
## [16] "NO" "NO" "NO" "NO" "NO"
# PUNTO 2, PROCESO DE INGRESO A LA ENTIDAD:
INFORMACION_PERSONAL=data.frame(Numero_de_cedula=CEDULA, Nombres_del_paciente=NOMBRE, Apellidos_del_paciente=APELLIDOS, Edad=EDAD, Sexo=GENERO, Domicilio=DIRECCION, Ciudad=CIUDAD, Departamento=DEPARTAMENTO, Numero_de_telefono=CELULAR, Numero_de_historial=ID_CLINICO, Fumante=FUMA)
INFORMACION_PERSONAL
## Numero_de_cedula Nombres_del_paciente Apellidos_del_paciente Edad
## 1 10537683 ANGEL SCOOSH MARTINEZ MARTINEZ 13 AÑOS
## 2 10256615 LULU RENZA DELGADO 7 AÑOS
## 3 31266482 BAILEY RAMIREZ LOZANO 1 AÑO
## 4 10542190 NATALIA CATAÑO VASQUEZ 22 AÑOS
## 5 76317155 SHIRLEY VIVIANA MUÑOZ COLLADO 25 AÑOS
## 6 1002634002 STEFANYA GUERRA COLLAZOS 16 AÑOS
## 7 1053803562 CAROLINA JOYAS POPAYAN 40 AÑOS
## 8 75077205 HAMILTON CASTRO VALDEZ 43 AÑOS
## 9 75079697 FABIAN ORTIZ HERNANDEZ 45 AÑOS
## 10 75089649 JUAN BAHOS MONTENEGRO 50 AÑOS
## 11 75091491 CLAUDIA PATRICIA BETANCOURT MILLAN 47 AÑOS
## 12 1053867044 DANNY JIMENA PAYAN BUENO 28 AÑOS
## 13 1053867440 KATALINA JIMENEZ CASTILLO 18 AÑOS
## 14 1053867874 CARLOS ALFONSO MONTES CORTEZ 70 AÑOS
## 15 1136889150 GLADIZ PALACIOS JIMENEZ 67 AÑOS
## 16 1152693247 CARLOS MARIO NAVARRETE MENA 25 AÑOS
## 17 1193103447 ISABELLA ENRIQUEZ PRECIADO 23 AÑOS
## 18 1193412321 LAURA SOFIA OJEDA MORA 23 AÑOS
## 19 4414169 SEBASTIAN RODRIGUEZ PRIETO 26 AÑOS
## 20 9859830 MATEO ZAMBRANO GARCIA 2 AÑOS
## Sexo Domicilio Ciudad Departamento
## 1 MASCULINO CALLE 10 # 5-51 CALI VALLE DEL CAUCA
## 2 FEMENINO Avenida 19 # 98-03 LETICIA AMAZONAS
## 3 FEMENINO CALLE 53 # 10-60/46 MEDELLIN ANTOQUIA
## 4 FEMENINO AVENIDA CALLE 26 # 59-51 ARAUCA ARAUCA
## 5 FEMENINO CALLE 9 # 9–62 BARRANQUILLA ATLANTICO
## 6 FEMENINO CALLE 19 # 80A-40 CARTAGENA DE INDIAS BOLIVAR
## 7 FEMENINO CARRERA 21 # 17-63 TUNJA BOYACA
## 8 MASCULINO CARRERA 42 # 54-77 MANIZALES CALDAS
## 9 MASCULINO CALLE 100 # 11B-27 FLORENCIA CAQUETA
## 10 MASCULINO CARRERA 20B # 29-18 YOPAL CASANARE
## 11 FEMENINO TRANSVERSAL 9A # 29-29 POPAYAN CAUCA
## 12 FEMENINO CALLE 53 # 25A-35 QUIBDO CHOCO
## 13 FEMENINO CARRERA 20B # 30-12 MONTERIA CORDOBA
## 14 MASCULINO CALLE 7 # 19-35 NEIVA HUILA
## 15 FEMENINO CALLE 4 NORTE # 10B-66 SANTA MARTA MAGDALENA
## 16 MASCULINO CARRERA 8 # 15A-19 VILLAVICENCIO META
## 17 FEMENINO CALLE 28 # 2-27 PASTO NARIÑO
## 18 FEMENINO CALLE 14C # 56-51 ARMENIA QUINDIO
## 19 MASCULINO CARRERA 25 # 33C-71 PEREIRA RISARALDA
## 20 MASCULINO CALLE 25 # 6-08 BUCARAMANGA SANTANDER
## Numero_de_telefono Numero_de_historial Fumante
## 1 3004635044 208001 NO
## 2 3164040811 208002 NO
## 3 3183976390 208003 SI
## 4 3128345189 208004 NO
## 5 3155805380 208005 NO
## 6 3226221978 208006 NO
## 7 3173562714 208007 NO
## 8 3157886226 208008 SI
## 9 3208341442 208009 SI
## 10 3137569948 208010 SI
## 11 3108886344 208011 NO
## 12 3225214485 208012 NO
## 13 3136647521 208013 NO
## 14 3235190385 208014 SI
## 15 3053614088 208015 NO
## 16 3167844924 208016 NO
## 17 3054566800 208017 NO
## 18 3006048028 208018 NO
## 19 3183804152 208019 NO
## 20 3148057506 208020 NO
# PROCEDENCIA:
PROCEDENCIA=c("CASA", "COMFENALCO", "NUESTRA DE CALI", "IMBANACO", "CLUB NOEL", "COLOMBIA", "CASA", "COMFENALCO", "CRISTO REY", "REY DAVID", "CRISTO REY", "CLINICA NUEVA DE CALI", "VERSALLES", "CLUB NOEL", "REY DAVID", "HOSPITAL UNIVERSITARIO DEL VALLE", "FARALLONES", "VERSALLES", "CASA", "HOSPITAL UNIVERSITARIO DEL VALLE")
PROCEDENCIA
## [1] "CASA" "COMFENALCO"
## [3] "NUESTRA DE CALI" "IMBANACO"
## [5] "CLUB NOEL" "COLOMBIA"
## [7] "CASA" "COMFENALCO"
## [9] "CRISTO REY" "REY DAVID"
## [11] "CRISTO REY" "CLINICA NUEVA DE CALI"
## [13] "VERSALLES" "CLUB NOEL"
## [15] "REY DAVID" "HOSPITAL UNIVERSITARIO DEL VALLE"
## [17] "FARALLONES" "VERSALLES"
## [19] "CASA" "HOSPITAL UNIVERSITARIO DEL VALLE"
# FECHA DE INGRESO:
FECHA_DE_INGRESO=c("ENERO 10 DEL 2023", "FEBRERO 08 DEL 2023", "MARZO 25 DEL 2023", "ABRIL 06 DEL 2023", "MAYO 07 DEL 2023", "JUNIO 09 DEL 2023", "JULIO 17 DEL 2023", "AGOSTO 29 DEL 2023", "SEPTIEMBRE 10 DEL 2023", "OCTUBRE 03 DEL 2022", "NOVIEMBRE 06 DEL 2022", "DICIEMBRE 01 DEL 2022", "ENERO 15 DEL 2021", "FEBRERO 24 DEL 2021", "MARZO 23 DEL 2021", "ABRIL 17 DEL 2021", "MAYO 30 DEL 2021", "JUNIO 05 DEL 2021", "JULIO 31 DEL 2021", "AGOSTO 25 DEL 2021")
FECHA_DE_INGRESO
## [1] "ENERO 10 DEL 2023" "FEBRERO 08 DEL 2023" "MARZO 25 DEL 2023"
## [4] "ABRIL 06 DEL 2023" "MAYO 07 DEL 2023" "JUNIO 09 DEL 2023"
## [7] "JULIO 17 DEL 2023" "AGOSTO 29 DEL 2023" "SEPTIEMBRE 10 DEL 2023"
## [10] "OCTUBRE 03 DEL 2022" "NOVIEMBRE 06 DEL 2022" "DICIEMBRE 01 DEL 2022"
## [13] "ENERO 15 DEL 2021" "FEBRERO 24 DEL 2021" "MARZO 23 DEL 2021"
## [16] "ABRIL 17 DEL 2021" "MAYO 30 DEL 2021" "JUNIO 05 DEL 2021"
## [19] "JULIO 31 DEL 2021" "AGOSTO 25 DEL 2021"
# NUMERO DE PISO:
PISO=c(1, 2, 3, 4, 5, 6, 6, 5, 4, 3, 2, 1, 1, 2, 3, 4, 5, 6, 7, 8)
PISO
## [1] 1 2 3 4 5 6 6 5 4 3 2 1 1 2 3 4 5 6 7 8
# NUMERO DE CAMA:
CAMA=c(01, 02, 03, 04, 05, 06, 07, 08, 09, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
CAMA
## [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
# CAUSA DE INGRESO:
CAUSAS=c("RAYOS X", "URGENCIAS", "CIRUGIA", "PADECIMIENTO COMUN LEVE", "TERAPIA", "RESONANCIA", "CONSULTA CON EL ESPECIALISTA", "ODONTOLOGIA", "RAYOS X", "RESONANCIA", "ODONTOLOGIA", "CIRUGIA", "CONSULTA CON EL ESPECIALISTA", "URGENCIAS", "ONCOLOGIA", "ONCOLOGIA", "PADECIMIENTO COMUN LEVE", "FRACTURA", "URGENCIAS", "TERAPIA")
CAUSAS
## [1] "RAYOS X" "URGENCIAS"
## [3] "CIRUGIA" "PADECIMIENTO COMUN LEVE"
## [5] "TERAPIA" "RESONANCIA"
## [7] "CONSULTA CON EL ESPECIALISTA" "ODONTOLOGIA"
## [9] "RAYOS X" "RESONANCIA"
## [11] "ODONTOLOGIA" "CIRUGIA"
## [13] "CONSULTA CON EL ESPECIALISTA" "URGENCIAS"
## [15] "ONCOLOGIA" "ONCOLOGIA"
## [17] "PADECIMIENTO COMUN LEVE" "FRACTURA"
## [19] "URGENCIAS" "TERAPIA"
PROCESO_DE_INGRESO_DEL_PACIENTE=data.frame(Procedencia=PROCEDENCIA, Fecha_de_ingreso_del_paciente_a_las_instalaciones=FECHA_DE_INGRESO,Numero_de_piso=PISO, Numero_de_cama=CAMA, Causa_de_ingreso=CAUSAS)
PROCESO_DE_INGRESO_DEL_PACIENTE
## Procedencia
## 1 CASA
## 2 COMFENALCO
## 3 NUESTRA DE CALI
## 4 IMBANACO
## 5 CLUB NOEL
## 6 COLOMBIA
## 7 CASA
## 8 COMFENALCO
## 9 CRISTO REY
## 10 REY DAVID
## 11 CRISTO REY
## 12 CLINICA NUEVA DE CALI
## 13 VERSALLES
## 14 CLUB NOEL
## 15 REY DAVID
## 16 HOSPITAL UNIVERSITARIO DEL VALLE
## 17 FARALLONES
## 18 VERSALLES
## 19 CASA
## 20 HOSPITAL UNIVERSITARIO DEL VALLE
## Fecha_de_ingreso_del_paciente_a_las_instalaciones Numero_de_piso
## 1 ENERO 10 DEL 2023 1
## 2 FEBRERO 08 DEL 2023 2
## 3 MARZO 25 DEL 2023 3
## 4 ABRIL 06 DEL 2023 4
## 5 MAYO 07 DEL 2023 5
## 6 JUNIO 09 DEL 2023 6
## 7 JULIO 17 DEL 2023 6
## 8 AGOSTO 29 DEL 2023 5
## 9 SEPTIEMBRE 10 DEL 2023 4
## 10 OCTUBRE 03 DEL 2022 3
## 11 NOVIEMBRE 06 DEL 2022 2
## 12 DICIEMBRE 01 DEL 2022 1
## 13 ENERO 15 DEL 2021 1
## 14 FEBRERO 24 DEL 2021 2
## 15 MARZO 23 DEL 2021 3
## 16 ABRIL 17 DEL 2021 4
## 17 MAYO 30 DEL 2021 5
## 18 JUNIO 05 DEL 2021 6
## 19 JULIO 31 DEL 2021 7
## 20 AGOSTO 25 DEL 2021 8
## Numero_de_cama Causa_de_ingreso
## 1 1 RAYOS X
## 2 2 URGENCIAS
## 3 3 CIRUGIA
## 4 4 PADECIMIENTO COMUN LEVE
## 5 5 TERAPIA
## 6 6 RESONANCIA
## 7 7 CONSULTA CON EL ESPECIALISTA
## 8 8 ODONTOLOGIA
## 9 9 RAYOS X
## 10 10 RESONANCIA
## 11 11 ODONTOLOGIA
## 12 12 CIRUGIA
## 13 13 CONSULTA CON EL ESPECIALISTA
## 14 14 URGENCIAS
## 15 15 ONCOLOGIA
## 16 16 ONCOLOGIA
## 17 17 PADECIMIENTO COMUN LEVE
## 18 18 FRACTURA
## 19 19 URGENCIAS
## 20 20 TERAPIA
DATOS_COMPLETOS=data.frame(INFORMACION_PERSONAL, PROCESO_DE_INGRESO_DEL_PACIENTE)
DATOS_COMPLETOS
## Numero_de_cedula Nombres_del_paciente Apellidos_del_paciente Edad
## 1 10537683 ANGEL SCOOSH MARTINEZ MARTINEZ 13 AÑOS
## 2 10256615 LULU RENZA DELGADO 7 AÑOS
## 3 31266482 BAILEY RAMIREZ LOZANO 1 AÑO
## 4 10542190 NATALIA CATAÑO VASQUEZ 22 AÑOS
## 5 76317155 SHIRLEY VIVIANA MUÑOZ COLLADO 25 AÑOS
## 6 1002634002 STEFANYA GUERRA COLLAZOS 16 AÑOS
## 7 1053803562 CAROLINA JOYAS POPAYAN 40 AÑOS
## 8 75077205 HAMILTON CASTRO VALDEZ 43 AÑOS
## 9 75079697 FABIAN ORTIZ HERNANDEZ 45 AÑOS
## 10 75089649 JUAN BAHOS MONTENEGRO 50 AÑOS
## 11 75091491 CLAUDIA PATRICIA BETANCOURT MILLAN 47 AÑOS
## 12 1053867044 DANNY JIMENA PAYAN BUENO 28 AÑOS
## 13 1053867440 KATALINA JIMENEZ CASTILLO 18 AÑOS
## 14 1053867874 CARLOS ALFONSO MONTES CORTEZ 70 AÑOS
## 15 1136889150 GLADIZ PALACIOS JIMENEZ 67 AÑOS
## 16 1152693247 CARLOS MARIO NAVARRETE MENA 25 AÑOS
## 17 1193103447 ISABELLA ENRIQUEZ PRECIADO 23 AÑOS
## 18 1193412321 LAURA SOFIA OJEDA MORA 23 AÑOS
## 19 4414169 SEBASTIAN RODRIGUEZ PRIETO 26 AÑOS
## 20 9859830 MATEO ZAMBRANO GARCIA 2 AÑOS
## Sexo Domicilio Ciudad Departamento
## 1 MASCULINO CALLE 10 # 5-51 CALI VALLE DEL CAUCA
## 2 FEMENINO Avenida 19 # 98-03 LETICIA AMAZONAS
## 3 FEMENINO CALLE 53 # 10-60/46 MEDELLIN ANTOQUIA
## 4 FEMENINO AVENIDA CALLE 26 # 59-51 ARAUCA ARAUCA
## 5 FEMENINO CALLE 9 # 9–62 BARRANQUILLA ATLANTICO
## 6 FEMENINO CALLE 19 # 80A-40 CARTAGENA DE INDIAS BOLIVAR
## 7 FEMENINO CARRERA 21 # 17-63 TUNJA BOYACA
## 8 MASCULINO CARRERA 42 # 54-77 MANIZALES CALDAS
## 9 MASCULINO CALLE 100 # 11B-27 FLORENCIA CAQUETA
## 10 MASCULINO CARRERA 20B # 29-18 YOPAL CASANARE
## 11 FEMENINO TRANSVERSAL 9A # 29-29 POPAYAN CAUCA
## 12 FEMENINO CALLE 53 # 25A-35 QUIBDO CHOCO
## 13 FEMENINO CARRERA 20B # 30-12 MONTERIA CORDOBA
## 14 MASCULINO CALLE 7 # 19-35 NEIVA HUILA
## 15 FEMENINO CALLE 4 NORTE # 10B-66 SANTA MARTA MAGDALENA
## 16 MASCULINO CARRERA 8 # 15A-19 VILLAVICENCIO META
## 17 FEMENINO CALLE 28 # 2-27 PASTO NARIÑO
## 18 FEMENINO CALLE 14C # 56-51 ARMENIA QUINDIO
## 19 MASCULINO CARRERA 25 # 33C-71 PEREIRA RISARALDA
## 20 MASCULINO CALLE 25 # 6-08 BUCARAMANGA SANTANDER
## Numero_de_telefono Numero_de_historial Fumante
## 1 3004635044 208001 NO
## 2 3164040811 208002 NO
## 3 3183976390 208003 SI
## 4 3128345189 208004 NO
## 5 3155805380 208005 NO
## 6 3226221978 208006 NO
## 7 3173562714 208007 NO
## 8 3157886226 208008 SI
## 9 3208341442 208009 SI
## 10 3137569948 208010 SI
## 11 3108886344 208011 NO
## 12 3225214485 208012 NO
## 13 3136647521 208013 NO
## 14 3235190385 208014 SI
## 15 3053614088 208015 NO
## 16 3167844924 208016 NO
## 17 3054566800 208017 NO
## 18 3006048028 208018 NO
## 19 3183804152 208019 NO
## 20 3148057506 208020 NO
## Procedencia
## 1 CASA
## 2 COMFENALCO
## 3 NUESTRA DE CALI
## 4 IMBANACO
## 5 CLUB NOEL
## 6 COLOMBIA
## 7 CASA
## 8 COMFENALCO
## 9 CRISTO REY
## 10 REY DAVID
## 11 CRISTO REY
## 12 CLINICA NUEVA DE CALI
## 13 VERSALLES
## 14 CLUB NOEL
## 15 REY DAVID
## 16 HOSPITAL UNIVERSITARIO DEL VALLE
## 17 FARALLONES
## 18 VERSALLES
## 19 CASA
## 20 HOSPITAL UNIVERSITARIO DEL VALLE
## Fecha_de_ingreso_del_paciente_a_las_instalaciones Numero_de_piso
## 1 ENERO 10 DEL 2023 1
## 2 FEBRERO 08 DEL 2023 2
## 3 MARZO 25 DEL 2023 3
## 4 ABRIL 06 DEL 2023 4
## 5 MAYO 07 DEL 2023 5
## 6 JUNIO 09 DEL 2023 6
## 7 JULIO 17 DEL 2023 6
## 8 AGOSTO 29 DEL 2023 5
## 9 SEPTIEMBRE 10 DEL 2023 4
## 10 OCTUBRE 03 DEL 2022 3
## 11 NOVIEMBRE 06 DEL 2022 2
## 12 DICIEMBRE 01 DEL 2022 1
## 13 ENERO 15 DEL 2021 1
## 14 FEBRERO 24 DEL 2021 2
## 15 MARZO 23 DEL 2021 3
## 16 ABRIL 17 DEL 2021 4
## 17 MAYO 30 DEL 2021 5
## 18 JUNIO 05 DEL 2021 6
## 19 JULIO 31 DEL 2021 7
## 20 AGOSTO 25 DEL 2021 8
## Numero_de_cama Causa_de_ingreso
## 1 1 RAYOS X
## 2 2 URGENCIAS
## 3 3 CIRUGIA
## 4 4 PADECIMIENTO COMUN LEVE
## 5 5 TERAPIA
## 6 6 RESONANCIA
## 7 7 CONSULTA CON EL ESPECIALISTA
## 8 8 ODONTOLOGIA
## 9 9 RAYOS X
## 10 10 RESONANCIA
## 11 11 ODONTOLOGIA
## 12 12 CIRUGIA
## 13 13 CONSULTA CON EL ESPECIALISTA
## 14 14 URGENCIAS
## 15 15 ONCOLOGIA
## 16 16 ONCOLOGIA
## 17 17 PADECIMIENTO COMUN LEVE
## 18 18 FRACTURA
## 19 19 URGENCIAS
## 20 20 TERAPIA
# PUNTO 3, GRAFICO DE LA INFORMACION:
# PUNTO 3A)
SEXO=table(INFORMACION_PERSONAL$Sexo)
barplot(SEXO, main= "REPRESENTACION GRAFICA DE PACIENTES MASCULINO Y FEMENINOS", names.arg=c("MAS", "FEM"), ylab="NUMERO DE PACIENTES", xlab="GENERO", col=c("olivedrab1", "yellow1"), las=1, horiz=TRUE)
# EN LA REPRESENTACION GRAFICA, SE PUEDE OBSERVAR QUE HAY MAS PACIENTES MASCULINOS QUE FEMENINOS
# PUNTO 3B)
EDAD_FUMANTE=table(INFORMACION_PERSONAL$Fumante,INFORMACION_PERSONAL$Edad)
barplot(EDAD_FUMANTE, main= "REPRESENTACION GRAFICA DE LA EDAD DE LOS PACIENTES Y SI SON FUMANTES O NO", ylab="NUMERO DE PACIENTES", xlab="EDAD", las=1, col=c("salmon1", "lightgoldenrod1"))
legend(x="topright", legend=c("NO", "SI"), fill=c("salmon1", "lightgoldenrod1"), title="FUMANTE")
#EN LA REPRESENTACION GRAFICA, SE PUEDE OBSERVAR QUE HAY MAS PACIENTES QUE NO FUMAN (CON LA EDAD DE 2, 13, DE 16 A 18, DE 22 A 23, DE 25 A 26, 28, 40, 47 Y 67) QUE LOS QUE SI (CON LA EDAD DE 10, 43, 45, 50 Y 70 AÑOS)
# PUNTO 3C)
SEXO_PISO=table(INFORMACION_PERSONAL$Sexo,PROCESO_DE_INGRESO_DEL_PACIENTE$Numero_de_piso)
barplot(SEXO_PISO, main= "REPRESENTACION GRAFICA DEl GENERO Y NUMERO DE PISO DE LOS PACIENTES", ylab="NUMERO DE PACIENTES", xlab="NUMERO DE PISO", las=1, col=c("red1", "steelblue1"))
legend(x="topright", legend=c("FEMENINO", "MASCULINO"), fill=c("red1", "steelblue1"), title="GENERO")
#EN LA REPRESENTACION GRAFICA, SE PUEDE OBSERVAR QUE EL GENERO FEMENINO ESTA DISTRIBUIDO DEL PISO 1 AL 6, MIENTRAS QUE EL MASCULINO ESTA DIVIDIDO EN TODOS LOS PISOS DEL 1 AL 8, POR ENDE EN EL PISO 7 Y 8 SOLO HAY GENERO MASCULINO
# PUNTO 3D)
EDAD_CAUSAS=table(INFORMACION_PERSONAL$Edad,PROCESO_DE_INGRESO_DEL_PACIENTE$Causa_de_ingreso)
barplot(EDAD_CAUSAS, col=c("violet", "aquamarine1", "lightsteelblue1", "mistyrose", "slateblue1", "hotpink3", "navajowhite", "olivedrab1", "tan1", "plum"), main= "REPRESENTACION GRAFICA DE LA EDAD Y CAUSA DE INGRESO DE LOS PACIENTES", ylab="NUMERO DE PACIENTES", xlab="EDAD", las=1)
legend(x="topright", legend=c("RAYOS X", "URGENCIAS", "CIRUGIA", "PADECIMIENTO COMUN LEVE", "TERAPIA", "RESONANCIA", "CONSULTA CON EL ESPECIALISTA", "ODONTOLOGIA", "ONCOLOGIA", "FRACTURA"), fill=c("violet", "aquamarine1", "lightsteelblue1", "mistyrose", "slateblue1", "hotpink3", "navajowhite", "olivedrab1", "tan1", "plum"), title="CAUSAS DE INGRESO")
#EN LA REPRESENTACION GRAFICA, SE PUEDE OBSERVAR QUE LOS PACIENTES QUE INGRESARON POR RAYOS X FUERON EL DE 13 Y 45 AÑOS, POR URGENCIAS LOS PACIENTES DE 7, 26 Y 70 AÑOS, EN CIRUGIA INGRESARON 10 Y 28 AÑOS, POR PADECIMIENTO COMUN LEVE ENTRE LOS 22 Y 23 AÑOS, POR TERAPIA LOS PACIENTES DE 2 Y 25 AÑOS, POR RESONANCIA 16 Y 50 AÑOS, CONSULTA CON EL ESPECIALISTA 18 Y 40 AÑOS, ODONTOLOGIA 43 Y 47 AÑOS, ONCOLOGIA 25 Y 67 AÑOS Y POR ULTIMO EL UNICO PACIENTE QUE INGRESO POR FRACTURA FUE EL DE 23 AÑOS
# PUNTO 3E)
GAFRIACA_PROMEDIO_EDAD= table(EDAD,GENERO)
GAFRIACA_PROMEDIO_EDAD
## GENERO
## EDAD FEMENINO MASCULINO
## 1 AÑO 1 0
## 13 AÑOS 0 1
## 16 AÑOS 1 0
## 18 AÑOS 1 0
## 2 AÑOS 0 1
## 22 AÑOS 1 0
## 23 AÑOS 2 0
## 25 AÑOS 1 1
## 26 AÑOS 0 1
## 28 AÑOS 1 0
## 40 AÑOS 1 0
## 43 AÑOS 0 1
## 45 AÑOS 0 1
## 47 AÑOS 1 0
## 50 AÑOS 0 1
## 67 AÑOS 1 0
## 7 AÑOS 1 0
## 70 AÑOS 0 1
PROMEDIO_FEMENINO=c(1, 7, 16, 18, 22, 23, 23, 25, 28, 40, 47, 67)
mean(PROMEDIO_FEMENINO)
## [1] 26.41667
PROMEDIO_MASCULINO=c(13, 2, 25, 26, 43, 45, 50, 70)
mean(PROMEDIO_MASCULINO)
## [1] 34.25
GRAFICA_PROMEDIO_EDAD=c(FEMENINO=26,MASCULINO=34)
PROEDIO_EDAD=table(GRAFICA_PROMEDIO_EDAD)
barplot(GRAFICA_PROMEDIO_EDAD, main= "REPRESENTACION GRAFICA DEL PROMEDIO DE EDADES DE LOS PACIENTES MASCULINO Y FEMENINOS", names.arg=c("FEMENINO", "MASCULINO"), ylab="NUMERO DE PACIENTES", xlab="GENERO", col=c("turquoise1", "pink1"), las=1, horiz=TRUE, legend=c("FEMENINO", "MASCULINO"))
# PUNTO 3H)
CAUSAS_INGRESO=table(PROCESO_DE_INGRESO_DEL_PACIENTE$Causa_de_ingreso)
barplot((CAUSAS_INGRESO),main = "LISTA DE CAUSAS DE INGRESO DE LOS PACIENTES", ylab="NUMERO DE PACIENTES", xlab="CAUSAS DE INGRESO", col=rainbow(4), las=1)
#EN LA REPRESENTACION GRAFICA, SE PUEDE OBSERVAR LOS DIFERENTES MOTIVOS CON LOS QUE INGRESARON LOS PACIENTES, EL INDICE MAS ALTO FUE POR MOTIVO DE URGENCIAS Y EL MAS BAJO POR FRACTURA.