historias_clinicas <- data.frame(
Numero_Cedula = c (7715737272, 8402043485, 6681918728, 7644769144, 8793567848, 11148432886, 9778309483, 5199575936, 6202199930, 1170671097, 7118590891, 1707689263, 7893429732, 9272989948, 6040616143, 3575082319, 4378507365, 2535075868, 1223454116, 7279321174),
Nombres = c ("Juan", "Maria", "Pedro", "Ana", "Luisa","Carlos", "Laura ", "Sofia", "Miguel", "Fernando","Isabel", "Raul", "Lucia", "Gabriel", "Olivia ","Julio", "Carla", "Diego", "Elena", "Pablo"),
Apellidos = c ("Perez", "Garcia", "Rodriguez", "Sanchez", "Jimenez","Gomez", "Fernandez", "Lopez", "Torres", "Diaz","Moreno", "Castro", "Gomez", "Ramirez", "Gonzalez","Medina", "Quintero", "Hernandez", "Home", "Ortiz"),
Edad = c(28, 10, 74, 59, 80, 27, 64, 8, 70, 85, 72, 59, 47, 66, 68, 13, 52, 77, 87, 38),
Sexo = c("M","F","M","F","F","M","F","F","M","M","F","M","F","M","F","M","F","M","F","M"),
Domicilio = c("CRA 26E#78-26","CRA 26A2#78-52","CRA 01#4-25","CRA 26B2#76-70","CRA 24 CL#75B-162","CALLE 80BIS#26-55","CALLE 77#26C-26","CALLE 124C#28C-59","CRA 26B3#76-18","CRA 23A#76-36","CALLE 80A#26D-101","CALLE 80BIS#26-60","CALLE 80BIS#26-60","CRA 80A#26-40","CRA 23#75B-62","CRA 26B1#77-67","CALLE 80A#26-89","CRA 26B1#80-37","CALLE 80ACRA26D-76","CALLE 80A#26D-101"),
Ciudad = c("Cali","Popayan","Yumbo","Jamundi","LA","santander","riohacha","Tulua","Villavicencio","Medellin","Quimbaya","Quibdo","Armenia","Salento","Filandia","Buga","Santander","Neiva","Pitalito","Rivera"),
Departamento = c("valle del cauca", "cauca", "valle del cauca", "valle del cauca", "California", "Bucaramanga", "Guajira", "Valle del cauca", "meta", "antioquia", "quindio", "choco", "quindio", "quindio", "quindio","valle del cauca", "Norte de santander", "huila", "huila", "huila"),
Telefono = c(3064595438, 3070456640, 3063296369, 3102610977, 3093262777, 3084999401, 3072888673, 3087071219, 3087234318, 3079284029, 3111201280, 3104352938, 3104590014, 3096009799, 3104105929, 3059463680, 3080789305, 3104146836, 3094930047, 3113323946),
Historial_clinico = c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20),
Fumante = c("SI","NO","NO","SI","SI","NO","NO","NO","NO","NO","SI","SI","NO","NO","SI","NO","SI","NO","SI","SI"),
Procedencia = c("calle", "casa", "hotel", "motel", "finca", "casa", "piscina", "montaña", "casa", "taller", "trabajo", "oficina", "calle", "casa", "hotel", "motel", "finca", "casa", "piscina", "montaña"),
Fecha_ingreso = c("11-ene-2022","12-feb-2022","23-abr-2022","13-mar-2022","14-abr-2022","14-feb-2022","21-mar-2022","18-feb-2022","18-ene-2022","20-feb-2022","21-mayo-2022","22-mar-2022","23-may-2022","25-mar-2022","23-jun-2022","26-feb-2022","24-may-2022","8-abr-2022","9-jun-2022","27-jun-2022"),
Numero_Piso = c(1, 4, 4, 4, 3, 3, 1, 4, 5, 3, 4, 1, 3, 2, 1, 1, 4, 4, 1, 2),
Numero_Cama = c(87, 52, 161, 164, 120, 168, 105, 29, 90, 160, 51, 57, 108, 71, 137, 40, 70, 153, 163, 27),
Causa_ingreso = c("covid","cirugia","terapia","caida","cortada","ictericia","vomito","diarrea","dialisis","pancreatitis","quemadura","quimioterapia","cirugia","rayos x","ahogamiento","rayos x","toma de muestra","cirugia","caida","examen")
)
x = write.table(historias_clinicas, file = "PracticaBasededatos.csv", sep = ",",col.names = NA, qmethod = "double")
#Pacientes mujeres y Hombres
n=table(historias_clinicas$Sexo)
barplot(n,main = "Pacientes mujeres y Hombres", names.arg=c("Mujer", "Hombre"), ylab="Numeros de personas", xlab="Sexo")
#edad y si es fumante o no
m=table(historias_clinicas$Fumante, historias_clinicas$Edad)
barplot(m,main = "Edad de los pacientes y si es fumandor o no", ylab="Cantidad de pacientes", xlab="Edad", col = c("blue", "red"))
legend(x = "topright", legend = c("No", "Si"), fill = c("blue", "red"), title = "Fumador")
#Pacientes por piso divididos por sexo
l=table(historias_clinicas$Sexo,historias_clinicas$Numero_Piso)
barplot(l, main ="Pacientes por piso divididos por sexo", ylab="Pacientes", xlab="Piso",las=1, col = c("yellow2", "green"))
legend(x = "topright", legend = c("Mujer", "Hombre"), fill = c("yellow2", "green"), title = "Sexo")
#Edad y causa de ingreso
o=table(historias_clinicas$Causa_ingreso,historias_clinicas$Edad)
barplot(o, col = c( "red", "white","yellow2","green") ,main = "Edad y causa de ingreso", ylab="No. personas", xlab="Edad", las=1)
legend(x = "topright", legend = c("terapia", "covid", "Cirugia","vomito"), fill = c("red", "white","yellow2","green"), title = "Causa de ingreso")
#Promedio de edad (M,H)
barplot(c(mean(historias_clinicas$Edad[historias_clinicas$Sexo=="F"]), mean(historias_clinicas$Edad[historias_clinicas$Sexo=="M"])),main = "Promedio de edad Mujeres y Hombres", names.arg=c("Hombre", "Mujer"), col=c("blue","red"), ylab="Edad promedio", xlab="Sexo", las=1, ylim=c(0,60))
#Datos independientes de 3 pacientes
barplot(c(historias_clinicas$Edad[historias_clinicas$Nombres=="Juan"],historias_clinicas$Historial_clinico[historias_clinicas$Nombres=="Lucia"],historias_clinicas$Numero_Piso[historias_clinicas$Nombres=="Pedro"]), main ="Datos independientes de 3 pacientes", names.arg=c("Edad Juan", "Historial Lucia","Piso de Pedro"), col=c("blue","pink","green"), ylab="Datos", xlab="Nombre", las=1, ylim=c(0,25))
#Datos de 3 pacientes por identidad
barplot(c(historias_clinicas$Historial_clinico[historias_clinicas$Nombres =="Isabel"],historias_clinicas$Historial_clinico[historias_clinicas$Nombres=="Raul"],historias_clinicas$Historial_clinico[historias_clinicas$Nombres=="Gabriel"]),main = "Datos de la identidad de 3 pacientes", names.arg=c("Isabel", "Raul", "Gabriel"),col=c("pink","green","blue"), ylab="Historia clinica", xlab="Nombre", las=1, ylim=c(0,14))
#Lista de causas de ingreso
p=table(historias_clinicas$Causa)
barplot((p),main = " Lista de causas de ingreso", ylab="No. personas", xlab="Causa de ingreso", col=rainbow(4), las=1)
