R Markdown
bd=read.table("PRACTICA02.csv",header=TRUE, sep=";",row.names=1)
bd
## No.CEDULA NOMBRE APELLIDO EDAD SEXO DOMICILIO CIUDAD
## 1 1144072089 DIANA PAZ 22 FEMENINO CANEY CALI
## 2 1144086327 ANDRES NARVAEZ 24 MASCULINO CIUDAD 2000 CALI
## 3 1144015098 ANDREA GARCIA 21 FEMENINO UNION CALI
## 4 1144021456 KAROL LOPEZ 22 FEMENINO REPUBLICA CALI
## 5 1144765324 NIKOLL OSPINA 24 FEMENINO GUABAL CALI
## 6 1144232123 PEDRO OSORIO 26 MASCULINO CIUDADELA CALI
## 7 1144098789 ALVARO MARQUEZ 23 MASCULINO CANEY CALI
## 8 1144098090 MARIO MARTINES 22 MASCULINO CANEY CALI
## 9 1143231245 CATALINA SIERRA 21 FEMENINO LIMONAR CALI
## 10 1144423543 VALENTINA PEREZ 21 FEMENINO MARIANO RAOMOS CALI
## 11 1144210213 JESUS VALENCIA 26 FEMENINO VILLA DEL SUR CALI
## 12 1144089345 MARIA PATIÑO 27 FEMENINO CIUDADELA CALI
## 13 1144032908 DAVID VEGA 25 MASCULINO CIUDADELA CALI
## 14 1144092228 RICHARD VILLEGAS 24 MASCULINO CANEY CALI
## 15 1143893234 CARLOS SANDOVAL 23 MASCULINO CORDOBA CALI
## 16 1144098234 RUBEN ITTER 26 MASCULINO RIVERA CALI
## 17 1143234156 LIZETH CARABALI 27 FEMENINO NAPOLES CALI
## 18 1143563231 NATALIA FLOREZ 22 FEMENINO MELENDEZ CALI
## 19 1144097654 SEBASTIAN MINA 20 MASCULINO MELENDEZ CALI
## 20 1144234345 HECTOR ROJAS 24 MASCULINO NAPOLES CALI
## DEPARTAMENTO TELEFONO No.HISTORIA.CLINICA FUMA PROCEDENCIA
## 1 VALLE DEL CAUCA 313153433 3243546456 SI ARL
## 2 VALLE DEL CAUCA 312344344 2348757257 NO EPS
## 3 VALLE DEL CAUCA 312443434 4343213455 NO ARL
## 4 VALLE DEL CAUCA 313243232 2897322544 NO ARL
## 5 VALLE DEL CAUCA 328332345 4354624123 SI PARTICULAR
## 6 VALLE DEL CAUCA 315432654 3467765532 SI PARTICULAR
## 7 VALLE DEL CAUCA 312453756 6753289342 SI ARL
## 8 VALLE DEL CAUCA 311764343 8436657238 SI EPS
## 9 VALLE DEL CAUCA 310663452 7295461777 NO EPS
## 10 VALLE DEL CAUCA 310353567 1298531864 NO EPS
## 11 VALLE DEL CAUCA 321543789 8375195482 NO EPS
## 12 VALLE DEL CAUCA 310676894 9314468140 SI EPS
## 13 VALLE DEL CAUCA 314564345 1095285186 NO ARL
## 14 VALLE DEL CAUCA 313567324 1852711094 SI ARL
## 15 VALLE DEL CAUCA 312567324 8562356788 SI PARTICULAR
## 16 VALLE DEL CAUCA 310653452 3251682924 NO PARTICULAR
## 17 VALLE DEL CAUCA 312045678 4397153235 SI EPS
## 18 VALLE DEL CAUCA 314562216 5147852176 SI PARTICULAR
## 19 VALLE DEL CAUCA 317843463 4698085165 SI ARL
## 20 VALLE DEL CAUCA 312045788 1856388892 SI EPS
## FECHA.DE.INGRESO PISO CAMA CAUSA.INGRESO
## 1 7/04/2021 3 301 PARTICULAR
## 2 7/04/2021 4 403 PARTICULAR
## 3 7/04/2021 1 123 COVID 19
## 4 7/04/2021 3 310 COVID 19
## 5 7/04/2021 1 121 PARTICULAR
## 6 7/04/2021 4 404 PARTICULAR
## 7 7/04/2021 2 231 CONSULTA
## 8 7/04/2021 1 118 PARTICULAR
## 9 7/04/2021 4 422 COVID 19
## 10 7/04/2021 3 315 COVID 19
## 11 7/04/2021 2 220 CONSULTA
## 12 7/04/2021 3 307 CONSULTA
## 13 7/04/2021 4 401 CONSULTA
## 14 7/04/2021 2 228 COVID 19
## 15 7/04/2021 3 312 COVID 19
## 16 7/04/2021 4 410 PARTICULAR
## 17 7/04/2021 5 520 PARTICULAR
## 18 7/04/2021 1 112 CONSULTA
## 19 7/04/2021 3 330 CONSULTA
## 20 7/04/2021 2 200 COVID 19
barplot(table(bd$SEXO),main = "practica02",ylab="No. personas", xlab="Sexo", col=c("orange","green"), las=1)
barplot(table(bd$FUMA,bd$EDAD), main = "practica02", ylab="No. personas", xlab="Edad", las=1, col = c("red", "blue"))
legend(x = "topright", legend = c("No", "Si"), fill = c("red", "blue"), title = "Fuma")
barplot(table(bd$SEXO,bd$PISO), main = "practica02", ylab="No. personas", xlab="Piso", las=1, col = c("blue", "red"))
legend(x = "topright", legend = c("Mujer", "Hombre"), fill = c("red", "blue"), title = "Sexo")
barplot(table(bd$CAUSA.INGRESO,bd$EDAD), col = c("red", "green", "blue", "gray") ,main = "practica02", ylab="No. personas", xlab="Edad", las=1)
legend(x = "topright", legend = c("Consulta", "Covid-19", "particular"), fill = c("red", "green", "blue"), title = "Causa de ingreso")
barplot(c(mean(bd$EDAD[bd$SEXO=="MASCULINO"]), mean(bd$EDAD[bd$SEXO=="FEMENINO"])), main = "PRACTICA02", names.arg=c("Hombre", "Mujer"), col=c("RED","BLACK"), ylab="Edad promedio", xlab="Sexo", las=1, ylim=c(0,60))
barplot(table(bd$CAUSA.INGRESO),main = "PRACTICA02", ylab="No. personas", xlab="Causa de ingreso", col=c("RED","ORANGE","GREEN"), las=1)
