Consolidado de medallas obtenidas en juegos nacionales de 2018 IDERQUI

A continuacion observaremos el avance del proyecto, en esta ocasion estaremos presentando nuestra base de datos sobre los puestos obtenidos en las diferentes disciplinas en los juegos nacionales

Puesto/Evento = Diferentes Categorias
Disciplina = Deporte especifico

Cantidad de categorias por deporte

Muestra la cantidad de sub eventos que existen por deporte

## 
##                  Atletismo                  Badminton 
##                          8                          3 
##                       Bolo Bolo discapacidad auditiva 
##                         10                          1 
##               Ciclismo BMX               Ciclismo MTB 
##                          4                          9 
##     Levantamiento de pesas      Tenis Silla de ruedas 
##                          9                          5 
##                   Triatlon 
##                         11

Grafico de Barras

Indica la cantidad de puestos/eventos por deporte Grafica de barras de la cantidad de puesto/evento por deportes El deporte con mas categorias es el Triatlon El deporte con menos categorias es de bolos discapacidad auditiva

barplot(table(BaseData$`DEPORTE / DISCIPLINA`))

Tabla de Frecuencia para primeros puestos

Cantidad de medallas ORO obtenidas por evento Relacion(Fila superior= Cant medallas de ORO, Los datos representan la cantidad de eventos que han logrado esa cantidad de ORO en primeros puesto)

table(BaseData$`DEPORTE / DISCIPLINA`,BaseData$`PRIMEROS PUESTOS (OROS OBTENIDOS)`)

##                             
##                              0 1 2 3
##   Atletismo                  5 3 0 0
##   Badminton                  2 1 0 0
##   Bolo                       3 5 1 1
##   Bolo discapacidad auditiva 1 0 0 0
##   Ciclismo BMX               1 3 0 0
##   Ciclismo MTB               1 8 0 0
##   Levantamiento de pesas     5 4 0 0
##   Tenis Silla de ruedas      3 2 0 0
##   Triatlon                   7 4 0 0

Tabla de Frecuencia para segundos puestos

Cantidad de medallas PLATA obtenidas por evento Relacion(Fila superior= Cant medallas de ORO, Los datos representan la cantidad de eventos que han logrado esa cantidad de ORO en primeros puesto) RESALTAR: Ninguna disciplina obtuvo exactamente 2 medallas de plata

table(BaseData$`DEPORTE / DISCIPLINA`,BaseData$`SEGUNDOS PUESTOS (PLATAS OBTENIDOS)`)

##                             
##                              0 1 3
##   Atletismo                  7 1 0
##   Badminton                  1 1 1
##   Bolo                       9 1 0
##   Bolo discapacidad auditiva 1 0 0
##   Ciclismo BMX               3 1 0
##   Ciclismo MTB               9 0 0
##   Levantamiento de pesas     3 6 0
##   Tenis Silla de ruedas      3 2 0
##   Triatlon                   7 4 0

Tabla de Frecuencia para segundos puestos

Cantidad de medallas ORO obtenidas por evento Relacion(Fila superior= Cant medallas de ORO, Los datos representan la cantidad de eventos que han logrado esa cantidad de ORO en primeros puesto) RESALTAR: Ningun puesto/evento obtuvo exactamente 3 medallas de bronce

table(BaseData$`DEPORTE / DISCIPLINA`,BaseData$`TERCEROS PUESTOS (BRONCES OBTENIDOS)`)

##                             
##                              0 1 2
##   Atletismo                  4 4 0
##   Badminton                  3 0 0
##   Bolo                       6 3 1
##   Bolo discapacidad auditiva 0 1 0
##   Ciclismo BMX               4 0 0
##   Ciclismo MTB               8 1 0
##   Levantamiento de pesas     7 2 0
##   Tenis Silla de ruedas      4 1 0
##   Triatlon                   8 3 0

Cantidad de primeros puestos obtenidos en todos los deportes

colSums(BaseData[,c(3,4,5)])

##    PRIMEROS PUESTOS (OROS OBTENIDOS)  SEGUNDOS PUESTOS (PLATAS OBTENIDOS) 
##                                   35                                   19 
## TERCEROS PUESTOS (BRONCES OBTENIDOS) 
##                                   17

Suma total de todos los puestos obtenidos en las 3 diferentes calificaciones(Bronce, plata, oro)

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.