ID=c(sample(1000000000:9999999999, 20))
sex=sample(c(0,1), replace=TRUE, size=20)
edad= sample(c(10:80),replace=TRUE,size=20)


nombres=c(randomNames::randomNames(20,ethnicity=4,which.names="first"))

apellidos=c(randomNames::randomNames(20,ethnicity=4,which.names="last"))
domicilio=sample(c("Carrera 36 # 17 B 54","Calle 86 # 42-71","Carrera 2 # 24-97",
"Carrera 68C No. 10A-65","Carrera 1 No. 24-47"),size=20,replace=TRUE)
ciudad=sample(c("CALI","MEDELLIN","BOGOTA","PASTO"), size = 20, replace = TRUE)
dpto=ciudad


telefono=generator::r_phone_numbers(20)

id_clinico=sample(c(0:30), size = 20, replace =FALSE)
fumar<-sample(c("S","N"), size = 20, replace = TRUE)

procedencia=sample(c("AFILIADO","PARTICULAR","DESCONOCIDO"), size = 20, replace = TRUE)

fecha=sample(seq(as.Date('2005/01/01'), as.Date('2020/01/01'), by="day"), 20)
fecha
##  [1] "2006-11-25" "2019-02-06" "2017-09-25" "2011-09-14" "2010-11-14"
##  [6] "2016-05-17" "2011-07-22" "2019-08-07" "2015-01-12" "2007-05-12"
## [11] "2011-08-28" "2008-05-02" "2008-10-08" "2011-07-03" "2013-09-20"
## [16] "2015-10-02" "2006-03-01" "2017-12-10" "2019-06-12" "2011-07-31"
num_piso=sample(c(0:5), size = 20, replace = TRUE)
num_cama=sample(c(0:20), size = 20, replace = TRUE)
causa_ingreso=sample(c("hueso roto","gripe","diarrea y fiebre","otro",
"accidente de transito"),size = 20, replace = TRUE)

data=data.frame(ID,nombres,apellidos,edad,ciudad,domicilio, dpto,sex,
telefono, id_clinico,fumar,fecha,num_piso,num_cama,causa_ingreso,procedencia)

data$dpto[data$dpto == "CALI"] <- "VALLE"
data$dpto[data$dpto == "MEDELLIN"] <- "ANTIOQUIA"
data$dpto[data$dpto == "BOGOTA"] <- "CUNDINAMARCA"
data$dpto[data$dpto == "PASTO"] <-"NARINO"
data$sex[data$sex == 0] <- "F"
data$sex[data$sex == 1] <- "M"
attach(data)
## The following objects are masked _by_ .GlobalEnv:
## 
##     apellidos, causa_ingreso, ciudad, domicilio, dpto, edad, fecha,
##     fumar, ID, id_clinico, nombres, num_cama, num_piso, procedencia,
##     sex, telefono

Segunda parte a) Pacientes mujeres y Hombres

barplot(table(sex),main = "Genero de los pacientes",  
names.arg=c("FEMENINO", "MASCULINO"), ylab="No. personas", xlab="GENERO", col=c("red","green"), las=1)

  1. edad y si es fumante o no
table(fumar)
## fumar
##  N  S 
## 11  9
barplot(table(fumar,edad), main = "rango de edad de fumadores", ylab="No. personas", xlab="Edad", las=1, col = c("green", "blue"))
legend(x = "topright", legend = c("No", "Si"), fill = c("green", "blue"), title = "Fuma")

  1. Pacientes por piso divididos por sexo
barplot(table(sex,num_piso), main = "Pacientes por piso divididos por sexo", ylab="No. personas", xlab="Piso", las=1, col = c("red", "yellow"))
legend(x = "topright", legend = c("Mujer", "Hombre"), fill = c("red", "yellow"), title = "Sexo")

  1. Edad y causa de ingreso
barplot(table(causa_ingreso,edad), col = c("red", "yellow", "blue", "green","black") ,main = "Edad y causa de ingreso", ylab="No. personas", xlab="Edad", las=1)
legend(x = "topleft", legend = c("hueso roto","gripe","diarrea y fiebre","otro",
"accidente de transito"), fill = c("red", "yellow", "blue", "green","black"), title = "Causa de ingreso")

  1. Promedio de edad (M,H)
barplot(c(mean(edad[sex==0]), mean(edad[sex=="1"])),
main = "Promedio de edad Mujeres y Hombres", names.arg=c("FEMENINO", "MASCULINO"),
col=c("pink","red"), ylab="Edad promedio", xlab="Sexo", las=1, ylim=c(0,90))

  1. Datos independientes de 3 pacientes
a=sample(c(1:17), size = 1, replace = TRUE)
b=a+2
datos_independientes=data.frame(ID[a],nombres[b],causa_ingreso[a+1])
  1. Datos de la identidad de 3 pacientes
data_random=data.frame((data[a:b,]))
  1. Lista de causas de ingreso
table(causa_ingreso)
## causa_ingreso
## accidente de transito      diarrea y fiebre                 gripe 
##                     4                     4                     3 
##            hueso roto                  otro 
##                     4                     5
barplot(table(causa_ingreso),main = " Lista de causas de ingreso",
ylab="No. personas", xlab="Causa de ingreso")

library(openxlsx)
## Warning: package 'openxlsx' was built under R version 4.0.5
write.xlsx(data, "nombre.xlsx")