Taller 3

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(cedula, nombres, apellidos, edad, sexo, domicilio, ciudad, departamento, telefono, HistorialClinico, fumante, procedencia, fechaIngreso, numeroPiso, numeroCama, causaIngreso)

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")

#E Promedio de edad (M,H) 
barplot(c(mean(historias_clinicas_df$edad[historias_clinicas_df$sexo == "Masculino"]), 
          mean(historias_clinicas_df$edad[historias_clinicas_df$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, 90))

# 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("cedula", "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:

summary(cars)

##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

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.

Taller 3

Valeria Preciado Ramirez

2024-04-25

R Markdown

Including Plots