HISTO_CLINICA = data.frame(
NRO_CEDULA = c(1005966801, 1005966802, 1005966803, 1005966804, 1005966805, 1005966806, 1005966807, 1005966808, 1005966809, 1005966810, 1005966811, 1005966812, 1005966813, 1005966814, 1005966815, 1005966816, 1005966817, 1005966818, 1005966819, 1005966820),
NOMBRE_PX = c("Jessica", "Natalia", "Jean", "Carlos", "Karen", "Tatiana", "Maria", "Victoria", "Simon", "Valentina", "Andres", "Mauricio", "Katherine", "Monica", "Isabella", "Pedro", "Juan", "Ricardo", "Esteban", "Pamela"),
APELLIDO_PX = c("Valencia", "Rojas", "Lara", "Prado", "Garcia", "Sandoval", "Ramirez", "Asprilla", "Florez", "Castro", "Vallecilla", "Torres", "Jimenez", "Ruiz", "Cabezas", "Hernandez", "Araujo", "Gonzalez", "Idrobo", "Paz"),
EDAD_PX= c(13, 35, 45, 20, 22, 81, 15, 65, 78, 56, 16, 57, 54, 39, 76, 25, 46, 5, 35, 18),
SEXO_PX = c("Femenino", "Femenino", "Masculino", "Masculino", "Femenino", "Femenino", "Femenino", "Femenino", "Masculino", "Femenino", "Masculino", "Masculino", "Femenino", "Femenino", "Femenino", "Masculino", "Masculino", "Masculino", "Masculino", "Femenino"),
DOMICILIO_PX = c("Casa", "Apto", "casa", "Apto", "Finca", "Casa", "Apto", "Casa", "Casa", "Finca", "Apto", "Apto", "Casa", "Finca", "Casa", "Apto", "Finca", "Finca", "Casa", "Casa"),
CIUDAD_PX = c("Cali", "Barranquilla", "Medellin", "Bogota", "Cali", "Cali", "Santa Marta", "Medellin", "Cali", "Cartagena", "Bogota", "Neiva", "Cucuta", "Medellin", "Cali", "Bogota", "Barrnquilla", "Medellin", "Cali", "Bogota"),
DEPARTAMENTO_PX = c("Valle del Cauca", "Atlantico", "Antioquia.", "Bogota D.C", "Valle del Cauca", "Valle del Cauca", "Magdalena.", "Antioquia", "Valle del Cauca", "Bolivar", "Bogota, D.C.", "Huila", "Norte de Santander", "Antioquia", "Valle del Cauca", "Bogota, D.C.", "Atlantico", "Antioquia", "Valle del Cauca", "Bogota D.C"),
TELEFONO_PX = c(3053614088, 3053614089, 3053614010, 3053614011, 3053614012, 3053614013, 3053614014, 3053614015, 3053614016, 3053614017, 3053614018, 3053614019, 3053614020, 3053614021, 3053614022, 3053614023, 3053614024, 3053614025, 3053614026, 3053614027),
NRO_HISTORIAL = c(10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29),
fUMA_PX = c("No", "Si", "No", "No", "Si", "No", "No", "Si", "Si", "Si", "Si", "No", "No", "No", "No", "No", "Si", "No", "No", "No"),
PROCEDENCIA_PX = c("Accidentelaboral","Trasalado","AccidenteTransito","Domicilio","Accidente","Accidente","Domicilio","Accidentelaboral","Accidente","Accidente","Accidente","Traslado","Traslado","Accidente","Accidentelaboral","Reubicacion","AccidenteTransito","AccidenteTransito","Domicilio","Reubicacion"),
INGRESO_PX = c("2024-04-01", "2024-04-02", "2024-04-03", "2024-04-04", "2024-04-05","2024-04-06","2024-04-07","2024-04-08","2024-04-09","2024-04-10","2024-04-11","2024-04-12","2024-04-13","2024-04-14","2024-04-15","2024-04-16","2024-04-17","2024-04-18","2024-04-19","2024-04-20"),
NRO_PISO_PX = c(1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4,1,2,3,4),
NRO_CAMA_PX = c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20),
CAUSA_INGRE_PX = c("Consulta Ext", "Consulta Ext", "Cita General", "Cirugia", "Terapia", "Consulta Ext", "Cita General", "Terapia", "Cirugia", "Cita General", "Consulta Ext", "Cirugia", "Cita General", "Cirugia", "Cita General", "Terapia", "Consulta", "Cita General", "Cirugia", "Cita General"))
HISTO_CLINICA
## NRO_CEDULA NOMBRE_PX APELLIDO_PX EDAD_PX SEXO_PX DOMICILIO_PX CIUDAD_PX
## 1 1005966801 Jessica Valencia 13 Femenino Casa Cali
## 2 1005966802 Natalia Rojas 35 Femenino Apto Barranquilla
## 3 1005966803 Jean Lara 45 Masculino casa Medellin
## 4 1005966804 Carlos Prado 20 Masculino Apto Bogota
## 5 1005966805 Karen Garcia 22 Femenino Finca Cali
## 6 1005966806 Tatiana Sandoval 81 Femenino Casa Cali
## 7 1005966807 Maria Ramirez 15 Femenino Apto Santa Marta
## 8 1005966808 Victoria Asprilla 65 Femenino Casa Medellin
## 9 1005966809 Simon Florez 78 Masculino Casa Cali
## 10 1005966810 Valentina Castro 56 Femenino Finca Cartagena
## 11 1005966811 Andres Vallecilla 16 Masculino Apto Bogota
## 12 1005966812 Mauricio Torres 57 Masculino Apto Neiva
## 13 1005966813 Katherine Jimenez 54 Femenino Casa Cucuta
## 14 1005966814 Monica Ruiz 39 Femenino Finca Medellin
## 15 1005966815 Isabella Cabezas 76 Femenino Casa Cali
## 16 1005966816 Pedro Hernandez 25 Masculino Apto Bogota
## 17 1005966817 Juan Araujo 46 Masculino Finca Barrnquilla
## 18 1005966818 Ricardo Gonzalez 5 Masculino Finca Medellin
## 19 1005966819 Esteban Idrobo 35 Masculino Casa Cali
## 20 1005966820 Pamela Paz 18 Femenino Casa Bogota
## DEPARTAMENTO_PX TELEFONO_PX NRO_HISTORIAL fUMA_PX PROCEDENCIA_PX
## 1 Valle del Cauca 3053614088 10 No Accidentelaboral
## 2 Atlantico 3053614089 11 Si Trasalado
## 3 Antioquia. 3053614010 12 No AccidenteTransito
## 4 Bogota D.C 3053614011 13 No Domicilio
## 5 Valle del Cauca 3053614012 14 Si Accidente
## 6 Valle del Cauca 3053614013 15 No Accidente
## 7 Magdalena. 3053614014 16 No Domicilio
## 8 Antioquia 3053614015 17 Si Accidentelaboral
## 9 Valle del Cauca 3053614016 18 Si Accidente
## 10 Bolivar 3053614017 19 Si Accidente
## 11 Bogota, D.C. 3053614018 20 Si Accidente
## 12 Huila 3053614019 21 No Traslado
## 13 Norte de Santander 3053614020 22 No Traslado
## 14 Antioquia 3053614021 23 No Accidente
## 15 Valle del Cauca 3053614022 24 No Accidentelaboral
## 16 Bogota, D.C. 3053614023 25 No Reubicacion
## 17 Atlantico 3053614024 26 Si AccidenteTransito
## 18 Antioquia 3053614025 27 No AccidenteTransito
## 19 Valle del Cauca 3053614026 28 No Domicilio
## 20 Bogota D.C 3053614027 29 No Reubicacion
## INGRESO_PX NRO_PISO_PX NRO_CAMA_PX CAUSA_INGRE_PX
## 1 2024-04-01 1 1 Consulta Ext
## 2 2024-04-02 2 2 Consulta Ext
## 3 2024-04-03 3 3 Cita General
## 4 2024-04-04 4 4 Cirugia
## 5 2024-04-05 1 5 Terapia
## 6 2024-04-06 2 6 Consulta Ext
## 7 2024-04-07 3 7 Cita General
## 8 2024-04-08 4 8 Terapia
## 9 2024-04-09 1 9 Cirugia
## 10 2024-04-10 2 10 Cita General
## 11 2024-04-11 3 11 Consulta Ext
## 12 2024-04-12 4 12 Cirugia
## 13 2024-04-13 1 13 Cita General
## 14 2024-04-14 2 14 Cirugia
## 15 2024-04-15 3 15 Cita General
## 16 2024-04-16 4 16 Terapia
## 17 2024-04-17 1 17 Consulta
## 18 2024-04-18 2 18 Cita General
## 19 2024-04-19 3 19 Cirugia
## 20 2024-04-20 4 20 Cita General
#Punto 2.2
#a
# Grafico mujeres y hombres
HM = table(HISTO_CLINICA$SEXO_PX)
barplot(HM,main = "Sexo del Paciente", names.arg=c("Femenino", "Masculino"), ylab="No. Personas", xlab="Sexo", col = c("pink", "blue"))
#b
#Gráfico edad y fumados(si/no)
edad_fuma = table(HISTO_CLINICA$fUMA_PX, HISTO_CLINICA$EDAD_PX)
barplot(edad_fuma, main = "Fumante vs Edad", ylab = "No. Personas", xlab = "Edad", las = 2, col = c("blue", "pink"))
legend(x = "topright", legend = c("No fumador", "Fumador"), fill = c("blue", "pink"), title = "Tipo de PX")
#c
#Gráfico PX piso y sexo
sex_piso = table(HISTO_CLINICA$SEXO_PX, HISTO_CLINICA$NRO_PISO_PX)
barplot(sex_piso, main = "PX por piso", ylab = "No. Persona", xlab = "# piso", col = c("purple", "pink"))
legend(x = "topright", legend = c("Femenino", "Masculino"), fill = c("purple", "pink"), title = "Sexo")
#d
#Gráfico edady causa de ingreso
edad_ingreso = table(HISTO_CLINICA$CAUSA_INGRE_PX, HISTO_CLINICA$EDAD_PX)
barplot(edad_ingreso, main = "EDAD VS CAUSA_INGRESO", ylab = "No. Personas", xlab = "Edad", las = 2, col = c("pink","red","purple","blue"))
legend(x = "right", legend = c("Consulta", "Terapia", "Cita medica", "Cirugia"), fill = c("pink","red","purple","blue"), title = "Causa de ingreso")
#e
#Gráfico promedio por edad de genero (M.H)
prome_man = mean(HISTO_CLINICA$EDAD_PX[HISTO_CLINICA$SEXO_PX == "Masculino"])
prome_women =(HISTO_CLINICA$EDAD_PX[HISTO_CLINICA$SEXO_PX == "Femenino"])
barplot(c(mean(HISTO_CLINICA$EDAD_PX[HISTO_CLINICA$SEXO_PX == "Masculino"]), mean(HISTO_CLINICA$EDAD_PX[HISTO_CLINICA$SEXO_PX=="Femenino"])), main = "Promedio de edad Hombres y Mujeres", names.arg=c("MASCULINO", "FEMENINO"), col=c("blue","pink"), ylab="Edad promedio", xlab="Sexo", las=1, ylim=c(0,80))
#f
#Gráfico datos independientes de 3 px
barplot(c(HISTO_CLINICA$NRO_HISTORIAL[HISTO_CLINICA$NOMBRE_PX == "Jessica"], HISTO_CLINICA$NRO_CAMA_PX[HISTO_CLINICA$NOMBRE_PX == "Victoria"], HISTO_CLINICA$EDAD_PX[HISTO_CLINICA$NOMBRE_PX == "Jean"]), main ="Datos independientes de 3 PX",names.arg=c("Jessica","Victoria","Jean"),col=c("pink","blue","purple"), ylab="Valor", xlab="Nombre", las=1, ylim=c(0,40))
legend(x = "topright", legend = c("No. Historia Clinica", "Ni. cama", "Edad del Px"), fill = c("pink","blue","purple"), title = "Datos")
#g
#datos de 3 Px por ID
Px1= c(HISTO_CLINICA$EDAD_PX[HISTO_CLINICA$NRO_CEDULA == "1005966802"],HISTO_CLINICA$EDAD_PX[HISTO_CLINICA$NRO_CEDULA == "1005966803"],HISTO_CLINICA$EDAD_PX[HISTO_CLINICA$NRO_CEDULA == "1005966804"])
Px2= c(HISTO_CLINICA$NRO_CAMA_PX[HISTO_CLINICA$NRO_CEDULA == "1005966802"],HISTO_CLINICA$NRO_CAMA_PX[HISTO_CLINICA$NRO_CEDULA == "1005966803"],HISTO_CLINICA$NRO_CAMA_PX[HISTO_CLINICA$NRO_CEDULA == "1005966804"])
Px3= c(HISTO_CLINICA$NRO_PISO_PX[HISTO_CLINICA$NRO_CEDULA =="1005966802"],HISTO_CLINICA$NRO_PISO_PX[HISTO_CLINICA$NRO_CEDULA =="1005966803"],HISTO_CLINICA$NRO_PISO_PX[HISTO_CLINICA$NRO_CEDULA =="1005966804"])
ID = matrix(c(Px1,Px2,Px3),nrow=3,byrow=3)
dimnames(ID)=list(c("Edad","No. cama","No. piso"),c("1005966802","1005966803","1005966804"))
barplot(ID,beside= TRUE, col =c("pink", "purple","yellow"), ylab = "Valor", xlab = "ID Px", ylim =c(0,40))
legend(x = "topright", legend = c("Edad","No. de cama","No. de piso"), fill = c("pink", "purple","yellow"), title = "Datos")
#h
#Lista de causa de ingresos
INGRESO = table(HISTO_CLINICA$CAUSA_INGRE_PX)
INGRESO
##
## Cirugia Cita General Consulta Consulta Ext Terapia
## 5 7 1 4 3
#Gráfico
barplot(INGRESO, ylab = "No. Personsas", xlab = "Causa de ingreso", col = c("pink","purple","blue","red"))
# Exportar Base de Datos a excel
import = write.table(HISTO_CLINICA, file = "TALLER NRO 3 EXCEL.csv", sep = ",",qmethod = "double")