bd=read.table("BASEDEDATOS.csv",header=TRUE, sep=";",row.names=1)
bd
## CEDULA NOMBRES APELLIDOS EDAD SEXO DOMICILIO
## 1 10090899 MOISES ZAPATA 24 HOMBRE BOCHALEMA
## 2 10279227 KAROL JOE GUTIERREZ CANALES 18 MUJER PAMPALINDA
## 3 11403692 MONICA DAZA GUZMAN 69 MUJER CORDOBA
## 4 11441396 JESUS BURGOS 30 HOMBRE FLORALIA
## 5 11513278 JAIME ALBERTO GUTIERREZ MUÑOZ 20 HOMBRE SAN LUIS
## 6 12206312 STEPANIA VALLEJO 29 MUJER CIUDAD JARDIN
## 7 12330461 ELISA GOMEZ 28 MUJER LA RIVERA
## 8 12400704 SEGUNDO RUPERTO ARRATIA RIVAS 81 HOMBRE EL DIAMANTE
## 9 12677688 SANTIAGO SUAREZ 73 HOMBRE GUADUALES
## 10 12905274 DIANA CAROLINA ZUÑIGA CERON 33 MUJER SALOMIA
## 11 12943676 TAMMY VERGARA 37 MUJER CALIMA
## 12 14175077 MANUEL TORO 33 HOMBRE REFUGIO
## 13 14844657 ESTEFANIA ZAPATA 31 MUJER CANEY
## 14 15228172 SANTIAGO PANTOJA LARA 36 HOMBRE EL PRADO
## 15 16993209 KAREN TAMAYO 55 MUJER BOCHALEMA
## 16 17510900 JAVIER SIMANCA 63 HOMBRE COMUNEROS
## 17 19236267 FELIPE ANDRES HERRERA ROJAS 60 HOMBRE SAN ANTONIO
## 18 20226998 JOSE LEMA 64 HOMBRE SAN FERNADO
## 19 21248415 ADRIANA ZEA 74 MUJER VALLE DEL LILI
## 20 21842644 LUCERO RICO 52 MUJER VALLE DEL LILI
## CIUDAD DEPARTAMENTO TEL HC FUMA PROCEDENCIA FECHA.INGRESO PISO
## 1 PALMIRA VALLE DEL CAUCA 3307538087 2 NO EPS 30/03/3021 2
## 2 PALMIRA VALLE DEL CAUCA 3047413223 5 SI ARL 30/03/3021 2
## 3 PRADERA VALLE DEL CAUCA 3157823341 4 NO EPS 30/03/3021 1
## 4 CALI VALLE DEL CAUCA 3116241710 16 NO EPS 30/03/3021 2
## 5 CALI VALLE DEL CAUCA 3239467997 12 SI ARL 30/03/3021 3
## 6 CALI VALLE DEL CAUCA 3064767801 3 SI EPS 30/03/3021 2
## 7 PALMIRA VALLE DEL CAUCA 3438488543 17 SI EPS 30/03/3021 2
## 8 CANDELARIA VALLE DEL CAUCA 3010082695 14 NO EPS 30/03/3021 1
## 9 CALI VALLE DEL CAUCA 3113580254 6 NO PARTICULAR 30/03/3021 1
## 10 PRADERA VALLE DEL CAUCA 3103900607 19 NO EPS 30/03/3021 2
## 11 CALI VALLE DEL CAUCA 3429256779 8 NO EPS 30/03/3021 2
## 12 CALI VALLE DEL CAUCA 3165786595 10 NO EPS 30/03/3021 3
## 13 GINEBRA VALLE DEL CAUCA 3066258524 13 NO PARTICULAR 30/03/3021 1
## 14 JAMUNDI VALLE DEL CAUCA 3219158574 15 SI ARL 30/03/3021 2
## 15 YUMBO VALLE DEL CAUCA 3253255434 20 SI EPS 30/03/3021 2
## 16 BUGA VALLE DEL CAUCA 3404807707 21 SI EPS 30/03/3021 1
## 17 BUGA VALLE DEL CAUCA 3094408545 18 NO EPS 30/03/3021 1
## 18 TULUA VALLE DEL CAUCA 3198051763 22 NO EPS 30/03/3021 2
## 19 CALI VALLE DEL CAUCA 3118662239 28 NO EPS 30/03/3021 1
## 20 CALI VALLE DEL CAUCA 3026972318 7 NO EPS 30/03/3021 1
## CAMA CAUSA.INGRESO
## 1 200 CONSULTA
## 2 201 CONSULTA
## 3 100 COVID-19
## 4 203 CONSULTA
## 5 300 CONSULTA
## 6 204 CONSULTA
## 7 205 CONSULTA
## 8 101 COVID-19
## 9 102 COVID-19
## 10 206 CONSULTA
## 11 207 CONSULTA
## 12 301 CONSULTA
## 13 103 CIRUGIA
## 14 208 CONSULTA
## 15 209 CONSULTA
## 16 104 COVID-19
## 17 105 COVID-19
## 18 210 COVID-19
## 19 106 COVID-19
## 20 107 COVID-19
barplot(table(bd$SEXO),main = "Base de datos",ylab="No. personas", xlab="Sexo", col=c("blue","white"), las=1)
barplot(table(bd$FUMA,bd$EDAD), main = "Base de datos", ylab="No. personas", xlab="Edad", las=1, col = c("royalblue", "grey"))
legend(x = "topright", legend = c("No", "Si"), fill = c("royalblue", "grey"), title = "Fuma")
barplot(table(bd$SEXO,bd$PISO), main = "Base de datos", ylab="No. personas", xlab="Piso", las=1, col = c("blue", "white"))
legend(x = "topright", legend = c("Mujer", "Hombre"), fill = c("white", "blue"), title = "Sexo")
barplot(table(bd$CAUSA.INGRESO,bd$EDAD), col = c("white", "cyan", "blue", "gray") ,main = "Base de datos", ylab="No. personas", xlab="Edad", las=1)
legend(x = "topright", legend = c("Consulta", "Covid-19", "Cirugia"), fill = c("white", "cyan", "blue"), title = "Causa de ingreso")
barplot(c(mean(bd$EDAD[bd$SEXO=="HOMBRE"]), mean(bd$EDAD[bd$SEXO=="MUJER"])), main = "Base de datos", names.arg=c("Hombre", "Mujer"), col=c("blue","white"), ylab="Edad promedio", xlab="Sexo", las=1, ylim=c(0,60))
barplot(c(bd$EDAD[bd$NOMBRE=="MANUEL"],bd$HC[bd$NOMBRE=="JOSE"],bd$PISO[bd$NOMBRE=="MONICA"]), main = "Base de datos", names.arg=c("Edad-MANUEL", " #Hc-JOSE", "Piso.MONICA"),col=c("blue","brown","pink"), ylab="Datos", xlab="Nombre", las=1, ylim=c(0,40))
barplot(c(bd$HC[bd$NOMBRE=="JAVIER"],bd$HC[bd$NOMBRE=="KAREN"],bd$HC[bd$NOMBRE=="TAMMY"]),main = "Base de datos", names.arg=c("JAVIER", " #KAREN", "TAMMY"),col=c("blue","brown","pink"), ylab="#Historia clinica", xlab="Nombre", las=1, ylim=c(0,30))
barplot(table(bd$CAUSA.INGRESO),main = "Base de datos", ylab="No. personas", xlab="Causa de ingreso", col=c("blue","white","gray"), las=1)
