Taller 3
Valeria Preciado Ramirez
2024-04-25
- ACTIVIDADES
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))
cedula = c(1045278643,1478954785,1457845178,1234567890,987654321,2345678901,3456789012,4567890123,5678901234,6789012345,2023847562,3028475610,4023856710,5029384761,6023847561,7028475613,7080901020,9010203040,2030405060,4050607080
)
nombres = c("Juan","María","Manuel", "Mariana","Valeria","Viviana","Jhon Keylor","Isabella","Pedro","Sofía","Ricardo","Carlos","johan","Luis","Jhon jairo","Michael","Laura","Andrés","Nagles","Camilo")
apellidos = c("Orozco","Acosta","Preciado","Pérez","García","González","Rodríguez","Martínez","Sánchez","Ramírez","Gómez","Otero","Giraldo","Ortiz","Hernández","López","Bedoya","Hernández","Díaz","Vargas"
)
edad=c(25,45,24,42,27,35,55,48,61,23,56,45,28,67,42,52,28,65,39,56)
sexo=c("M","F","M","F","F","F","M","F","M","F","M","M","M","M","M","M","F","M","F","M")
domicilio=c("Calle 83C#22-90","Calle 5 #7-85","Calle 7#58-96","Calle 1 # 12-34","Carrera 2 # 23-45","Avenida 7 # 12-23","Calle 3 # 45-67","Carrera 4 # 34-56","Avenida 8 # 45-56","Calle 5 # 23-45","Carrera 7 # 12-23","Calle 10 # 32-21","Avenida 3 # 45-12","Carrera 8 # 21-43","Calle 15 # 34-21","Avenida 10 # 56-32","Calle 8 # 15-40","Carrera 12 # 30-50","Calle 15 # 5-15","Carrera 30 # 40-20"
)
ciudad = c("Cali", "Bogota", "Cali", "Barranquilla", "Santa Marta", "Cali", "Bogotá", "Medellín", "Barranquilla", "Santa Marta",
"Cali", "Bogotá", "Medellín", "Barranquilla", "Santa Marta", "Cali", "Cali", "Medellín", "Barranquilla", "Cali")
departamento = c("Valle del Cauca", "Cundinamarca", "Valle del Cauca", "Atlántico", "Magdalena", "Valle del Cauca", "Cundinamarca", "Antioquia", "Atlántico", "Magdalena",
"Valle del Cauca", "Cundinamarca", "Antioquia", "Atlántico", "Magdalena", "Valle del Cauca", "Valle del Cauca", "Antioquia", "Atlántico", "Valle del Cauca")
telefono= c(3147854789,3147841457,3478547145,3125551234,3104445678,3186667890,3207778901,3158889012,3179990123,3131112345,3108765432,3157891234,3187654321,3112345678,3108765432,3157891234,3004567890,3106785432,3159876543,3507896543
)
HistorialClinico = c(14578,10001,10002,1234,5678,9012,2345,6789,123,3456,2,3,4,5,6,7,1004,1005,1006,1007
)
fumante=c("S","N","S","N","S","N","N","S","S","N","N","S","N","N","N","S","S","N","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)
procedencia=c("Cali","Pereira","Medellin","Bogotá","Cartago","Bogotá","Palmira","Cali","Bogotá","Barranquilla","Villavicencio","Bogotá","Cali","Cesar","Medellín","Bogotá","Santa Marta","Pereira","Bogotá","Cartagena")
fechaIngreso= c("12/02/2022","1/02/2023","25/03/2023","24/01/2023","7/01/2022","6/01/2022","4/01/2022","5/01/2022","1/06/2022","5/07/2022","13/01/2023","16/01/2023","20/01/2023","24/01/2023","2/02/2023","10/02/2023","4/01/2022","5/01/2022","6/01/2022","7/01/2022"
)
numeroPiso=c(5,3,7,3,6,4,7,5,2,6,6,5,3,8,7,2,6,4,1,3)
numeroCama=c(501,302,705,205,403,308,507,403,102,402,503,305,209,708,605,102,17,14,1,10
)
causaIngreso=c("Covid","Accidente de tráfico","Infección respiratoria","Dolor abdominal","Fractura de pierna","Infección urinaria","Hipertensión","Asma","Infarto de miocardio","Conjuntiv","Dolor de espalda","Diabetes","Conjuntivitis","Dolor de cabeza","Dolor de espalda","Infarto de miocardio","Asma","Dolor abdominal","Gripe","Fractura de brazo"
)historias_clinicas_df = data.frame(nombres, apellidos, edad, sexo, domicilio, ciudad, departamento, telefono, HistorialClinico, fumante, procedencia, fechaIngreso, numeroPiso, numeroCama, causaIngreso)
historias_clinicas_df = cbind(nombres, apellidos, edad, sexo, domicilio, ciudad, departamento, telefono, HistorialClinico, fumante, procedencia, fechaIngreso, numeroPiso, numeroCama, causaIngreso)
historias_clinicas_df## nombres apellidos edad sexo domicilio ciudad
## [1,] "Juan" "Orozco" "25" "M" "Calle 83C#22-90" "Cali"
## [2,] "María" "Acosta" "45" "F" "Calle 5 #7-85" "Bogota"
## [3,] "Manuel" "Preciado" "24" "M" "Calle 7#58-96" "Cali"
## [4,] "Mariana" "Pérez" "42" "F" "Calle 1 # 12-34" "Barranquilla"
## [5,] "Valeria" "García" "27" "F" "Carrera 2 # 23-45" "Santa Marta"
## [6,] "Viviana" "González" "35" "F" "Avenida 7 # 12-23" "Cali"
## [7,] "Jhon Keylor" "Rodríguez" "55" "M" "Calle 3 # 45-67" "Bogotá"
## [8,] "Isabella" "Martínez" "48" "F" "Carrera 4 # 34-56" "Medellín"
## [9,] "Pedro" "Sánchez" "61" "M" "Avenida 8 # 45-56" "Barranquilla"
## [10,] "Sofía" "Ramírez" "23" "F" "Calle 5 # 23-45" "Santa Marta"
## [11,] "Ricardo" "Gómez" "56" "M" "Carrera 7 # 12-23" "Cali"
## [12,] "Carlos" "Otero" "45" "M" "Calle 10 # 32-21" "Bogotá"
## [13,] "johan" "Giraldo" "28" "M" "Avenida 3 # 45-12" "Medellín"
## [14,] "Luis" "Ortiz" "67" "M" "Carrera 8 # 21-43" "Barranquilla"
## [15,] "Jhon jairo" "Hernández" "42" "M" "Calle 15 # 34-21" "Santa Marta"
## [16,] "Michael" "López" "52" "M" "Avenida 10 # 56-32" "Cali"
## [17,] "Laura" "Bedoya" "28" "F" "Calle 8 # 15-40" "Cali"
## [18,] "Andrés" "Hernández" "65" "M" "Carrera 12 # 30-50" "Medellín"
## [19,] "Nagles" "Díaz" "39" "F" "Calle 15 # 5-15" "Barranquilla"
## [20,] "Camilo" "Vargas" "56" "M" "Carrera 30 # 40-20" "Cali"
## departamento telefono HistorialClinico fumante procedencia
## [1,] "Valle del Cauca" "3147854789" "14578" "S" "Cali"
## [2,] "Cundinamarca" "3147841457" "10001" "N" "Pereira"
## [3,] "Valle del Cauca" "3478547145" "10002" "S" "Medellin"
## [4,] "Atlántico" "3125551234" "1234" "N" "Bogotá"
## [5,] "Magdalena" "3104445678" "5678" "S" "Cartago"
## [6,] "Valle del Cauca" "3186667890" "9012" "N" "Bogotá"
## [7,] "Cundinamarca" "3207778901" "2345" "N" "Palmira"
## [8,] "Antioquia" "3158889012" "6789" "S" "Cali"
## [9,] "Atlántico" "3179990123" "123" "S" "Bogotá"
## [10,] "Magdalena" "3131112345" "3456" "N" "Barranquilla"
## [11,] "Valle del Cauca" "3108765432" "2" "N" "Villavicencio"
## [12,] "Cundinamarca" "3157891234" "3" "S" "Bogotá"
## [13,] "Antioquia" "3187654321" "4" "N" "Cali"
## [14,] "Atlántico" "3112345678" "5" "N" "Cesar"
## [15,] "Magdalena" "3108765432" "6" "N" "Medellín"
## [16,] "Valle del Cauca" "3157891234" "7" "S" "Bogotá"
## [17,] "Valle del Cauca" "3004567890" "1004" "S" "Santa Marta"
## [18,] "Antioquia" "3106785432" "1005" "N" "Pereira"
## [19,] "Atlántico" "3159876543" "1006" "S" "Bogotá"
## [20,] "Valle del Cauca" "3507896543" "1007" "N" "Cartagena"
## fechaIngreso numeroPiso numeroCama causaIngreso
## [1,] "12/02/2022" "5" "501" "Covid"
## [2,] "1/02/2023" "3" "302" "Accidente de tráfico"
## [3,] "25/03/2023" "7" "705" "Infección respiratoria"
## [4,] "24/01/2023" "3" "205" "Dolor abdominal"
## [5,] "7/01/2022" "6" "403" "Fractura de pierna"
## [6,] "6/01/2022" "4" "308" "Infección urinaria"
## [7,] "4/01/2022" "7" "507" "Hipertensión"
## [8,] "5/01/2022" "5" "403" "Asma"
## [9,] "1/06/2022" "2" "102" "Infarto de miocardio"
## [10,] "5/07/2022" "6" "402" "Conjuntiv"
## [11,] "13/01/2023" "6" "503" "Dolor de espalda"
## [12,] "16/01/2023" "5" "305" "Diabetes"
## [13,] "20/01/2023" "3" "209" "Conjuntivitis"
## [14,] "24/01/2023" "8" "708" "Dolor de cabeza"
## [15,] "2/02/2023" "7" "605" "Dolor de espalda"
## [16,] "10/02/2023" "2" "102" "Infarto de miocardio"
## [17,] "4/01/2022" "6" "17" "Asma"
## [18,] "5/01/2022" "4" "14" "Dolor abdominal"
## [19,] "6/01/2022" "1" "1" "Gripe"
## [20,] "7/01/2022" "3" "10" "Fractura de brazo"2.2. Por medio de informe gráfico clasifique por:
#A Pacientes mujeres y Hombres
barplot(table(historias_clinicas_df = sexo), main = "Pacientes mujeres y Hombres",
names.arg = c("Femenino", "Masculino"), ylab = "No. personas",
xlab = "Sexo", col = c("red", "yellow"), las = 1)
#B edad y si es fumante o no
barplot(table(historias_clinicas_df=fumante, historias_clinicas_df=edad),
main = "Fumadores y edad", ylab = "No. personas", xlab = "Edad", las = 1,
col = c("pink", "purple"))
legend(x = "topright", legend = c("No", "Si"), fill = c("pink", "purple"), title = "Fumante")
#C Pacientes por piso divididos por sexo
barplot(table(historias_clinicas_df=sexo, historias_clinicas_df=numeroPiso),
main = "Pacientes por piso divididos por sexo", ylab = "No. personas",
xlab = "Piso", las = 1, col = c("orange", "green"))
legend(x = "topright", legend = c("Mujer", "Hombre"), fill = c("orange", "green"), title = "Sexo")
#D Edad y causa de ingreso
barplot(table(historias_clinicas_df=causaIngreso, historias_clinicas_df=edad),
col = c("violet", "gray", "red", "blue"),
main = "Edad y causa de ingreso", ylab = "No. personas", xlab = "Edad", las = 1)
legend(x = "topright", legend = c("Consulta", "Terapia", "Cita médica", "Cirugía"),
fill = c("violet", "gray", "red", "blue"), title = "Causa de ingreso")
EdadHombres= (edad [sexo="Masculino"])
promHombres=mean(EdadHombres)
promHombres## [1] NAEdadMujeres= (edad [sexo="Femenino"])
promMujeres=mean(EdadMujeres)
promMujeres## [1] NA#E Promedio de edad (M,H)
barplot(c(mean(edad[sexo == "Masculino"]),
mean(edad[sexo == "Femenino"])),
main = "Promedio de edad Mujeres y Hombres",
names.arg = c("Hombre", "Mujer"), col = c("yellow", "hotpink4"),
ylab = "Edad promedio", xlab = "Sexo", las = 1, ylim = c(0, 70))
# F Datos independientes de 3 pacientes
barplot(c(historias_clinicas_df=edad[historias_clinicas_df=nombres == "Valeria"],
historias_clinicas_df=numeroPiso[historias_clinicas_df=nombres == "johan"],
historias_clinicas_df=numeroCama[historias_clinicas_df=nombres == "Jhon Keylor"]),
main = "Datos independientes de 3 pacientes",
names.arg = c("edad_Valeria", "numeroPiso_Johan", "numeroCama_Jhon Keylor"),
col = c("blue", "yellow", "orange"), ylab = "Datos", xlab = "Pacientes", las = 1, ylim = c(0, 150))
#G Datos de 3 pacientes por identidad
barplot(c(historias_clinicas_df=HistorialClinico[historias_clinicas_df=nombres == "Mariana"],
historias_clinicas_df=HistorialClinico[historias_clinicas_df=nombres == "Laura"],
historias_clinicas_df=HistorialClinico[historias_clinicas_df=nombres == "Michael"]),
main = "Identidad de 3 pacientes",
names.arg = c("Mariana", "Laura", "Michael"),
col = c("green", "red", "gray"), ylab = "No. Historia clínica", xlab = "Nombre", las = 1, ylim = c(0, 20))
#H Lista de causas de ingreso
barplot(table(historias_clinicas_df=causaIngreso), main = "Lista de causas de ingreso",
ylab = "No. personas", xlab = "Causa de ingreso", col = rainbow(4), las = 1)
2.3. Exportar base de datos a Excel
df = data.frame(historias_clinicas_df)
names(df) = c("nombres", "apellidos", "edad", "sexo", "domicilio", "ciudad", "departamento", "telefono", "HistorialClinico", "fumante", "procedencia", "fechaIngreso", "numeroPiso", "numeroCama", "causaIngreso")
write.table(df, file = "historias_clinicas.csv", sep = ",", col.names = NA, qmethod = "double")R Markdown
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
Including Plots
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.