Taller # 3
Mayra Gonzalez Montoya
2024-04-24
#PREGUNTA 2.1 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)
#librerias a usar
library(ggplot2)
library(openxlsx)## Warning: package 'openxlsx' was built under R version 4.3.3 histo_clinicas = data.frame(
#Numero de cedula
Num_Ced = sprintf("%010d", sample(10000000:99999999, 20, replace = FALSE)),
#Nombres
Nombres = c("Mayra", "Dora", "Angela", "Sofia", "Andres", "Hector", "Nallely", "Edna", "Paola", "Felipe", "Alicia", "Valentina", "Giovanny", "Paula", "Daniel", "Camila", "Alejandro", "Elena", "Gabriel", "Catalina"),
#Apellidos
Apellidos = c("Gonzalez", "Montoya", "Lopez", "Martinez", "Rodriguez","Calderon", "Valencia", "Sanchez", "Bustamante", "Ramirez", "Torres", "Garcia", "Silva", "Ortega", "Castro", "Vargas", "Jimenez", "Ruiz", "Sosa","Arias"),
#Edades
Edad = c(22, 45, 28, 35, 21, 50, 41, 19, 37, 61, 33, 49, 30, 26, 39, 48, 31, 20, 60, 18),
#Sexo
Sexo = c("F", "M", "M", "F", "M", "F", "F", "F", "F", "F", "F", "F", "F", "F", "M", "F", "M", "F", "F", "F"),
#Domicilio
Domicilio = c("Carrera 62", "Av. Principal", "Carrera 48", "Diagonal 67", "Calle 89", "Av. Libertador", "Carrera 12", "Diagonal 34", "Calle 56", "Av. Bolivar", "Carrera 78", "Diagonal 90", "Calle 22", "Av. Sucre", "Carrera 56", "Diagonal 12", "Calle 45", "Av. Miranda", "Carrera 67", "Diagonal 78"),
#Ciudades
Ciudad = c("Cartago", "Medellin", "Cali", "Barranquilla", "Cartagena", "Santa Marta", "Bucaramanga", "Pereira", "Manizales", "Cucuta", "Ibague", "Pasto", "Villavicencio", "Neiva", "Armenia", "Popayan", "Tunja", "Riohacha", "Valledupar", "Quibdo"),
#Departamentos
Departamento = c("Valle del Cauca", "Antioquia", "Valle del Cauca", "Atlantico", "Bolivar", "Santander", "Risaralda", "Norte de Santander", "Meta", "Magdalena", "Tolima", "Narino", "Caldas", "Huila", "Cesar", "Quindio", "Cauca", "Sucre", "Cordoba", "Boyaca"),
#Numero telefonico
Num_Telefono = paste("3", sample(1000000:9999999, 20), sep = ""),
Num_histo_clini = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,16, 17, 18, 19, 20),
#Fumante
Fumante = sample(c("S", "N"), 20, replace = TRUE),
#Procedencia
Procedencia = c("Consulta Externa", "Referido", "Emergencia", "Consulta Externa", "Emergencia", "Referido", "Emergencia", "Referido", "Emergencia", "Consulta Externa", "Emergencia", "Consulta Externa", "Referido", "Emergencia", "Consulta Externa", "Emergencia", "Referido", "Emergencia", "Referido", "Emergencia"),
#Fecha ingreso
Fecha_ingreso = sample(seq(as.Date('2021/01/01'), as.Date('2024/04/25'), by="day"), 20),
#Numero de piso
Num_piso = sample(1:4, 20, replace = TRUE),
#Numero de cama
Num_cama = sample(1:40, 20, replace = TRUE),
#Causa de ingreso
causa_ingreso = c("Cirugia", "Consulta", "Cita medica", "Cirugia", "Terapia", "Consulta", "Cita medica", "Terapia", "Cirugia", "Cita medica", "Consulta", "Cirugia", "Terapia", "Cita medica", "Cita medica", "Terapia", "Cirugia", "Cita medica", "Cirugia", "Terapia")
)
print( histo_clinicas)## Num_Ced Nombres Apellidos Edad Sexo Domicilio Ciudad
## 1 0044291868 Mayra Gonzalez 22 F Carrera 62 Cartago
## 2 0040470823 Dora Montoya 45 M Av. Principal Medellin
## 3 0019312630 Angela Lopez 28 M Carrera 48 Cali
## 4 0083000507 Sofia Martinez 35 F Diagonal 67 Barranquilla
## 5 0044443786 Andres Rodriguez 21 M Calle 89 Cartagena
## 6 0084663719 Hector Calderon 50 F Av. Libertador Santa Marta
## 7 0068091828 Nallely Valencia 41 F Carrera 12 Bucaramanga
## 8 0032985723 Edna Sanchez 19 F Diagonal 34 Pereira
## 9 0030148419 Paola Bustamante 37 F Calle 56 Manizales
## 10 0058885314 Felipe Ramirez 61 F Av. Bolivar Cucuta
## 11 0010460832 Alicia Torres 33 F Carrera 78 Ibague
## 12 0048981848 Valentina Garcia 49 F Diagonal 90 Pasto
## 13 0093583761 Giovanny Silva 30 F Calle 22 Villavicencio
## 14 0071809893 Paula Ortega 26 F Av. Sucre Neiva
## 15 0031740719 Daniel Castro 39 M Carrera 56 Armenia
## 16 0078859253 Camila Vargas 48 F Diagonal 12 Popayan
## 17 0051282314 Alejandro Jimenez 31 M Calle 45 Tunja
## 18 0055394744 Elena Ruiz 20 F Av. Miranda Riohacha
## 19 0066494686 Gabriel Sosa 60 F Carrera 67 Valledupar
## 20 0063684251 Catalina Arias 18 F Diagonal 78 Quibdo
## Departamento Num_Telefono Num_histo_clini Fumante Procedencia
## 1 Valle del Cauca 39109473 1 S Consulta Externa
## 2 Antioquia 32420474 2 S Referido
## 3 Valle del Cauca 35043271 3 N Emergencia
## 4 Atlantico 32289821 4 N Consulta Externa
## 5 Bolivar 33086691 5 N Emergencia
## 6 Santander 34130476 6 S Referido
## 7 Risaralda 34984047 7 S Emergencia
## 8 Norte de Santander 37149063 8 N Referido
## 9 Meta 39074735 9 N Emergencia
## 10 Magdalena 34297942 10 S Consulta Externa
## 11 Tolima 33552445 11 S Emergencia
## 12 Narino 32245925 12 N Consulta Externa
## 13 Caldas 32454166 13 N Referido
## 14 Huila 34367139 14 N Emergencia
## 15 Cesar 31673747 15 N Consulta Externa
## 16 Quindio 34265635 16 N Emergencia
## 17 Cauca 34235834 17 N Referido
## 18 Sucre 33512072 18 S Emergencia
## 19 Cordoba 38304892 19 S Referido
## 20 Boyaca 33528640 20 N Emergencia
## Fecha_ingreso Num_piso Num_cama causa_ingreso
## 1 2023-09-02 4 27 Cirugia
## 2 2024-01-16 3 13 Consulta
## 3 2022-05-29 2 19 Cita medica
## 4 2023-10-06 1 24 Cirugia
## 5 2023-05-02 4 33 Terapia
## 6 2022-08-24 1 15 Consulta
## 7 2021-10-24 3 12 Cita medica
## 8 2023-09-18 1 9 Terapia
## 9 2022-11-17 4 21 Cirugia
## 10 2022-03-21 3 10 Cita medica
## 11 2023-01-03 1 6 Consulta
## 12 2024-02-05 3 29 Cirugia
## 13 2023-11-07 4 4 Terapia
## 14 2022-04-17 1 25 Cita medica
## 15 2022-07-03 3 10 Cita medica
## 16 2021-05-17 4 19 Terapia
## 17 2021-02-03 2 25 Cirugia
## 18 2024-02-07 1 6 Cita medica
## 19 2022-08-25 2 37 Cirugia
## 20 2022-08-13 3 39 Terapia#PREGUNTA 2.2. Por medio de informe gráfico clasifique por:
- Pacientes mujeres y Hombres
ggplot(histo_clinicas, aes(x = Sexo, fill = Sexo)) +geom_bar() +labs(title = "Cantidad de pacientes por sexo", x = "Sexo", y = "Cantidad de pacientes", )
b) edad y si es fumante o no
ggplot(histo_clinicas, aes(x = Edad, fill = Fumante)) +
geom_histogram(binwidth = 3, position = "dodge") + labs(title = "Distribución de edad por hábito de fumar", x = "Edad", y = "Cantidad de pacientes")
- Pacientes por piso divididos por sexo
ggplot(histo_clinicas, aes(x = factor(Num_piso), fill = Sexo)) +
geom_bar() +labs(title = "Pacientes por piso divididos por sexo",
x = "Número de piso", y = "Cantidad de pacientes", fill = "Sexo") 
- Edad y causa de ingreso
ggplot(histo_clinicas, aes(x = factor(Edad), fill = causa_ingreso)) +
geom_bar() + labs(title = "Relación entre edad y causa de ingreso",
x = "Edad", y = "Numero de personas",
fill = "Causa de ingreso")
- Promedio de edad (M,H)
prome_edad = tapply( histo_clinicas $Edad, histo_clinicas $Sexo, mean)
barplot(prome_edad, main = "Promedio de Edad por Género",
xlab = "Género", ylab = "Promedio de Edad",
col = c("yellow", "violetred3"), names.arg = c("M", "F"))
- Datos independientes de 3 pacientes
pacientes= head(histo_clinicas, 3)
print(pacientes)## Num_Ced Nombres Apellidos Edad Sexo Domicilio Ciudad Departamento
## 1 0044291868 Mayra Gonzalez 22 F Carrera 62 Cartago Valle del Cauca
## 2 0040470823 Dora Montoya 45 M Av. Principal Medellin Antioquia
## 3 0019312630 Angela Lopez 28 M Carrera 48 Cali Valle del Cauca
## Num_Telefono Num_histo_clini Fumante Procedencia Fecha_ingreso Num_piso
## 1 39109473 1 S Consulta Externa 2023-09-02 4
## 2 32420474 2 S Referido 2024-01-16 3
## 3 35043271 3 N Emergencia 2022-05-29 2
## Num_cama causa_ingreso
## 1 27 Cirugia
## 2 13 Consulta
## 3 19 Cita medica- Datos de 3 pacientes por identidad
identi_pacien =histo_clinicas[c(1, 3, 4), ]
print(identi_pacien)## Num_Ced Nombres Apellidos Edad Sexo Domicilio Ciudad
## 1 0044291868 Mayra Gonzalez 22 F Carrera 62 Cartago
## 3 0019312630 Angela Lopez 28 M Carrera 48 Cali
## 4 0083000507 Sofia Martinez 35 F Diagonal 67 Barranquilla
## Departamento Num_Telefono Num_histo_clini Fumante Procedencia
## 1 Valle del Cauca 39109473 1 S Consulta Externa
## 3 Valle del Cauca 35043271 3 N Emergencia
## 4 Atlantico 32289821 4 N Consulta Externa
## Fecha_ingreso Num_piso Num_cama causa_ingreso
## 1 2023-09-02 4 27 Cirugia
## 3 2022-05-29 2 19 Cita medica
## 4 2023-10-06 1 24 Cirugia- Lista de causas de ingreso
causas_ingre= unique(histo_clinicas$causa_ingreso)
print(causas_ingre)## [1] "Cirugia" "Consulta" "Cita medica" "Terapia"#PREGUNTA 2.3 Exportar base de datos a Excel
write.xlsx(histo_clinicas, "histor_clinicas.xlsx")## Warning in file.create(to[okay]): cannot create file 'histor_clinicas.xlsx',
## reason 'Permission denied'