title: “PRACTICA 3 INFORMATICA MEDICA” author: “CARLOS ALBERTO OBANDO” date: “2022-10-05” output: html_document
```r
##2.1 Construya una base de datos de veinte (20) historias clínicas
library(readxl)
datos <- read_excel("C:/Users/Carlos/Desktop/BASEDEDATOS.xlsx")## New names:
## • `` -> `...1`datos## # A tibble: 20 × 17
## ...1 numero de c…¹ nombre apell…² edad sexo domic…³ ciudad depar…⁴ Telef…⁵
## <dbl> <dbl> <chr> <chr> <dbl> <chr> <chr> <chr> <chr> <dbl>
## 1 1 1543001401 Joyce Rojas 19 F Calle … Valle Cali 2.13e 8
## 2 2 1498725844 Gabri… Cabrera 20 F Carrer… Valle Cali 2.13e10
## 3 3 1394291949 Juan Bonilla 23 M Carrer… Valle Cali 1.23e 6
## 4 4 1045702009 Camilo Navia 21 M Carrer… Valle Cali 1.23e 5
## 5 5 1158066032 Sebas… Marcil… 22 M Calle … Valle Cali 1.23e 6
## 6 6 1476171425 Danie… Ibarra 20 F Calle … Valle Cali 1.24e 9
## 7 7 1448405605 Kathe… Pretel 24 F Calle … Valle Cali 1.23e 8
## 8 8 1108541022 Valen… Franco 17 F Calle … Valle Cali 1.23e11
## 9 9 1075469785 Lina Rojas 18 F Carrer… Valle Cali 1.23e 7
## 10 10 1547521496 Maris… Perdomo 21 F Calle … Valle Cali 1.24e 8
## 11 11 1223898215 Lorena Diaz 25 F Calle … Valle Cali 3.21e 5
## 12 12 1021921315 Kevin Gonzal… 30 M Carrer… Valle Cali 1.23e 8
## 13 13 1337974155 Leona… Meneses 25 M Calle … Valle Cali 2.32e 7
## 14 14 1023971790 Jose Millan 27 M Carrer… Valle Cali 3.12e 6
## 15 15 1083739041 Daniel Rios 21 M Calle … Valle Cali 1.24e 7
## 16 16 1051417413 Aleja… Correa 28 M Carrer… Valle Cali 3.12e 5
## 17 17 1076122306 Danna Torres 39 F Carrer… Valle Cali 1.23e 8
## 18 18 1073839039 Andres Flores 26 M Calle … Valle Cali 1.23e 7
## 19 19 1246466518 Isabe… Varela 21 F Calle … Valle Cali 1.24e 2
## 20 20 1072442771 Maria Obando 22 F Carrer… Valle Cali 1.23e 7
## # … with 7 more variables: `Historial clinico` <dbl>, `Fumante (S/N)` <chr>,
## # Procedencia <lgl>, `Fecha de ingreso` <lgl>, `Numero de piso` <dbl>,
## # `Numero de cama` <dbl>, `Causa de ingreso` <chr>, and abbreviated variable
## # names ¹`numero de cedula`, ²apellido, ³domicilio, ⁴departamento, ⁵Telefono##a) Pacientes mujeres y Hombres
barplot(table(datos$sexo),main = "Pacientes mujeres y Hombres", names.arg=c("Mujer", "Hombre"), ylab="No. personas", xlab="sexo", col=c("pink","purple"))
##c) Pacientes por piso divididos por sexo
barplot(table(datos$sexo,datos$`Numero de piso`), main = "Pacientes de cada piso divididos por sexo", ylab="No. personas", xlab="Piso", las=1, col = c("#CD6889", "#96CDCD"))
legend(x = "topright", legend = c("F", "M"), fill = c("#CD6889", "#96CDCD"), title = "Sexo")
##d) Edad y causa de ingreso
barplot(table(datos$`Causa de ingreso`,datos$edad), col = c("#FF34B3", "#CD1076", "#EE6AA7", "#8B0A50") ,main = "Edad y causa de ingreso", ylab="No. personas", xlab="Edad", las=1)
legend(x = "topright", legend = c("Consulta", "Terapia", "Cita medica", "Cirugía"), fill = c("#FF34B3", "#CD1076", "#EE6AA7", "#8B0A50"), title = "Causa de ingreso")
##e) Promedio de edad (M,H)
barplot(c(mean(datos$edad[datos$sexo=="M"]), mean(datos$edad[datos$sexo=="F"])), main = "Promedio de edad Mujeres y Hombres", names.arg=c("M", "F"), col=c("#00E5EE","#EE3A8C"), ylab="Edad promedio", xlab="Sexo", las=1, ylim=c(0,90))
##f) Datos independientes de 3 pacientes
barplot(c(datos$edad[datos$`nombre`=="Joyce"],datos$`Numero de cama`[datos$`nombre`=="Camilo"],datos$`Numero de piso`[datos$`nombre`=="Juan"]), main = "Datos independientes de 3 pacientes",names.arg=c("Edad de Joyce","Número de Cama de Camilo","Número de piso de Juan"),col=c("#4F94CD","#698B22","#FF82AB"), ylab="Datos", xlab="Nombre", las=1, ylim=c(0,20))
##g) Datos de 3 pacientes por identidad
barplot(c(datos$`Historial clinico`[datos$`nombre`=="Danna"],datos$`Historial clinico`[datos$`nombre`=="Marisol"],datos$`Historial clinico`[datos$`nombre`=="Lorena"]),main = "Datos de la identidad de 3 pacientes", names.arg=c("Danna", " Marisol", "Lorena"),col=c("#9A32CD","#CD2626","#CDAD00"), ylab="#Historia clinica", xlab="Nombre", )
##h) Lista de causas de ingreso
barplot(table(datos$`Causa de ingreso`),main = " Causas de ingreso", ylab="No. personas", xlab="Causa de ingreso", col=c("#68228B", "#EEAEEE", "#CD1076", "#8B668B"))
##2.3. Exportar base de datos a Excel
library(xlsx)
write.xlsx(datos, "base de datos.xlsx")