nombres <- c("Juan", "Maria", "Pedro", "Ana", "Luis", "Carla", "Marta", "Diego", "Sofia", "Mariana", "Javier", "Lucia")
apellidos <- c("Perez", "Gomez", "Gonzalez", "Castro", "Ramirez", "Garcia", "Rodriguez", "Torres", "Santos", "Diaz")

set.seed(123) 
pacientes <- data.frame(
  Numero_Cedula = sample(100000000:999999999, 20),
  Nombres = sample(nombres, 20, replace = TRUE),
  Apellidos = sample(apellidos, 20, replace = TRUE),
  Edad = sample(18:80, 20, replace = TRUE),
  Sexo = sample(c("M", "F"), 20, replace = TRUE),
  Domicilio = paste0("Calle ", sample(1:100, 20, replace = TRUE)),
 Ciudad = sample(c("Bogota", "Medellin", "Cali", "Barranquilla", "Cartagena"), 20, replace = TRUE),
 Departamento = sample(c("Cundinamarca", "Antioquia", "Valle del Cauca", "Atlantico", "Bolivar"), 20, replace = TRUE),
  Numero_Telefono = sample(3000000:3999999, 20),
 Historial_Clinico = paste0("H", sample(100:999, 20, replace = TRUE)),
  Fumante = sample(c("S", "N"), 20, replace = TRUE)
)

write.table(pacientes,file = "data.frame1.csv", sep = ",", col.names = NA, qmethod = "double")
procedencia <- c("Emergencia", "Remisión de otro centro médico", "Consulta externa", "Hospitalización previa")

causa_ingreso <- c("Accidente de tráfico", "Problema cardiovascular", "Cáncer", "Infección", "Lesión deportiva", "Otro")

fecha_ingreso <- sample(seq(as.Date("2023-01-01"), as.Date("2023-03-30"), by="day"), 20)

num_piso <- sample(1:5, 20, replace=TRUE)

num_cama <- sample(1:20, 20, replace=TRUE)

causa_ingreso <- sample(causa_ingreso, 20, replace=TRUE)


proceso_ingreso <- data.frame(
  Procedencia = sample(procedencia, 20, replace=TRUE),
  Fecha_ingreso = fecha_ingreso,
  Num_piso = num_piso,
  Num_cama = num_cama,
  Causa_ingreso = causa_ingreso
)


write.table(proceso_ingreso,file = "data.frame2.csv", sep = ",", col.names = NA, qmethod = "double")
tabla <- data.frame(
  Pacientes = pacientes,
  Proceso_ingreso = proceso_ingreso
)
barplot(table(pacientes$Sexo), main="Pacientes mujeres y hombres")

p1 <- barplot(table(pacientes$Edad), main="Distribución de Edad")

p2 <- barplot(table(pacientes$Fumante,pacientes$Edad), main="Edad y si es fumante o no")

punto 4

promedio_hombres=mean(pacientes$Edad[pacientes$Sexo=="M"])


promedio_mujeres=mean(pacientes$Edad[pacientes$Sexo=="F"])


barplot(c(promedio_hombres,promedio_mujeres),xlab="Sexo",ylab="Promedio",main="Promedio edad mujeres y hombres",names=c("Hombres","Mujeres"),col=c("brown","orange"))

punto 6

datos4=c(pacientes$Numero_Cedula[pacientes$Nombres=="Maria"],pacientes$Numero_Cedula[pacientes$Nombres=="Mariana"],pacientes$Numero_Cedula[pacientes$Nombres=="Pedro"])

barplot(datos4,main="Datos de identidad de 3 pacientes-Base de datos",xlab="Datos",names=c("Cedula-Maria","Cedula-Mariana","Cedula-Pedro"),col=c("violet","Gray","sky blue"))