Actividad

El conjunto de datos olimpicos contiene información sobre los Juegos Olímpicos de Verano desde el año en que se iniciaron hasta los últimos Juegos Olímpicos de Verano de Tokio que tuvieron lugar en Tokio. Los datos contienen parámetros como el nombre, el sexo, la edad, el equipo, el juego, el año, la temporada, el deporte y la medalla.

Los parámetros y los títulos de las columnas se explican por sí mismos. La columna Medalla es una columna categórica con valores y referencias como - 0: Sin medalla - 1 :Medalla de bronce - 2 : Medalla de plata - 3 : Medalla de oro

cargue la base de datos

library(dplyr)

## 
## Adjuntando el paquete: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(rio)
library(DT)

olimpicos= rio::import("https://github.com/Wilsonsr/CURSO-R/raw/main/BASES/olimpicos.csv")

head(olimpicos)

##   V1                     Name Sex Age           Team       Games Year Season
## 1  0                A Dijiang   M  24          China 1992 Summer 1992 Summer
## 2  1                 A Lamusi   M  23          China 2012 Summer 2012 Summer
## 3  2      Gunnar Nielsen Aaby   M  24        Denmark 1920 Summer 1920 Summer
## 4  3     Edgar Lindenau Aabye   M  34 Denmark/Sweden 1900 Summer 1900 Summer
## 5  4 Christine Jacoba Aaftink   F  21    Netherlands 1988 Winter 1988 Winter
## 6  5 Christine Jacoba Aaftink   F  21    Netherlands 1988 Winter 1988 Winter
##           Sport Medal
## 1    Basketball     0
## 2          Judo     0
## 3      Football     0
## 4    Tug-Of-War     3
## 5 Speed Skating     0
## 6 Speed Skating     0

Cuantas filas y columnas tiene la base de datos.

dim(olimpicos)

## [1] 275643     10

Cuales son los nombres de las columnas

colnames(olimpicos)

##  [1] "V1"     "Name"   "Sex"    "Age"    "Team"   "Games"  "Year"   "Season"
##  [9] "Sport"  "Medal"

Cuantos deportistas colombianos de genero masculino participaron en tokyo 2020 según la base de datos

olimpicos %>% filter(Team=="Colombia" & Sex == "Male" & Year == "2020")

##      V1                               Name  Sex Age     Team       Games Year
## 1    41       ACOSTA MANJARRES Yamil David Male  23 Colombia 2020 Summer 2020
## 2    43              ACOSTA SOTO Omar Jose Male  20 Colombia 2020 Summer 2020
## 3   161                   ALZATE Guillermo Male  37 Colombia 2020 Summer 2020
## 4   406    BERMUDEZ VILLAR Buinder Brainer Male  24 Colombia 2020 Summer 2020
## 5   417       BETANCOURT QUIROGA Juan Jose Male  21 Colombia 2020 Summer 2020
## 6   632    CASTANEDA VELASQUEZ Jhon Freddy Male  40 Colombia 2020 Summer 2020
## 7   655                         CELY Duban Male  24 Colombia 2020 Summer 2020
## 8   816               CRISPIN CORZO Nelson Male  28 Colombia 2020 Summer 2020
## 9   991                        DIAZ Daniel Male  30 Colombia 2020 Summer 2020
## 10 1056                DUENAS Diego German Male  30 Colombia 2020 Summer 2020
## 11 1057                DUENAS Diego German Male  30 Colombia 2020 Summer 2020
## 12 1146                       ESCOBAR Juan Male  20 Colombia 2020 Summer 2020
## 13 1236                      FLOREZ Andres Male  32 Colombia 2020 Summer 2020
## 14 1277              FUENTES GARCIA Moises Male  46 Colombia 2020 Summer 2020
## 15 1326                      GARCES Hector Male  37 Colombia 2020 Summer 2020
## 16 1390              GIRALDO CORREA Daniel Male  37 Colombia 2020 Summer 2020
## 17 1413           GOMEZ COA Juan Sebastian Male  21 Colombia 2020 Summer 2020
## 18 1454                    GRANADOS Joymar Male  25 Colombia 2020 Summer 2020
## 19 1472                  GRISALES Euclides Male  31 Colombia 2020 Summer 2020
## 20 1609                     HERNANDEZ Jhon Male  28 Colombia 2020 Summer 2020
## 21 1660    HOOKER VELASQUEZ Dixon de Jesus Male  27 Colombia 2020 Summer 2020
## 22 2241                          LEEP Jose Male  42 Colombia 2020 Summer 2020
## 23 2259          LEMOS RIVAS Jose Gregorio Male  29 Colombia 2020 Summer 2020
## 24 2262         LEMUS ROJAS Leider Albeiro Male  33 Colombia 2020 Summer 2020
## 25 2367      LUCUMI VILLEGAS Luis Fernando Male  23 Colombia 2020 Summer 2020
## 26 2514            MATIZ RUIZ Edwin Fabian Male  28 Colombia 2020 Summer 2020
## 27 2515            MATIZ RUIZ Edwin Fabian Male  28 Colombia 2020 Summer 2020
## 28 2587      MENESES MEDINA Diego Fernando Male  22 Colombia 2020 Summer 2020
## 29 2632            MINA APONZA Jean Carlos Male  19 Colombia 2020 Summer 2020
## 30 3015 PALOMEQUE PALACIOS Francisco Tulio Male  53 Colombia 2020 Summer 2020
## 31 3090             PEREA ARANGO Alejandro Male  24 Colombia 2020 Summer 2020
## 32 3091             PEREA ARANGO Alejandro Male  24 Colombia 2020 Summer 2020
## 33 3112                      PEREZ Rodrigo Male  31 Colombia 2020 Summer 2020
## 34 3320        RINCON NARVAEZ Miguel Angel Male  27 Colombia 2020 Summer 2020
## 35 3365          ROJAS OSORNO Luis Eduardo Male  50 Colombia 2020 Summer 2020
## 36 3492                        SANZ Nelson Male  47 Colombia 2020 Summer 2020
## 37 3594       SERRANO ZARATE Carlos Daniel Male  22 Colombia 2020 Summer 2020
## 38 4008                       TORRES Fabio Male  44 Colombia 2020 Summer 2020
## 39 4027     TRIANA HERRERA Brayan Mauricio Male  26 Colombia 2020 Summer 2020
## 40 4099                  VALENCIA Mauricio Male  33 Colombia 2020 Summer 2020
## 41 4147                       VARGAS Jhoan Male  33 Colombia 2020 Summer 2020
## 42 4148                        VARGAS Jose Male  36 Colombia 2020 Summer 2020
## 43 4157        VEGA CORRECHA Richard Mateo Male  20 Colombia 2020 Summer 2020
## 44 4158                          VEGA Raul Male  27 Colombia 2020 Summer 2020
##    Season                 Sport Medal
## 1  Summer             Athletics     0
## 2  Summer             Athletics     0
## 3  Summer Wheelchair Basketball     0
## 4  Summer             Athletics     0
## 5  Summer          Cycling Road     1
## 6  Summer          Powerlifting     0
## 7  Summer                Boccia     0
## 8  Summer              Swimming     3
## 9  Summer Wheelchair Basketball     0
## 10 Summer          Cycling Road     1
## 11 Summer         Cycling Track     1
## 12 Summer Wheelchair Basketball     0
## 13 Summer Wheelchair Basketball     0
## 14 Summer              Swimming     2
## 15 Summer Wheelchair Basketball     0
## 16 Summer              Swimming     0
## 17 Summer             Athletics     0
## 18 Summer Wheelchair Basketball     0
## 19 Summer                Boccia     0
## 20 Summer Wheelchair Basketball     0
## 21 Summer             Athletics     0
## 22 Summer Wheelchair Basketball     0
## 23 Summer             Athletics     3
## 24 Summer              Swimming     0
## 25 Summer             Athletics     1
## 26 Summer          Cycling Road     0
## 27 Summer         Cycling Track     0
## 28 Summer             Athletics     1
## 29 Summer             Athletics     1
## 30 Summer          Powerlifting     0
## 31 Summer          Cycling Road     0
## 32 Summer         Cycling Track     0
## 33 Summer Wheelchair Basketball     0
## 34 Summer              Swimming     0
## 35 Summer              Swimming     0
## 36 Summer Wheelchair Basketball     0
## 37 Summer              Swimming     3
## 38 Summer          Powerlifting     1
## 39 Summer              Swimming     0
## 40 Summer             Athletics     2
## 41 Summer Wheelchair Basketball     0
## 42 Summer          Table Tennis     0
## 43 Summer              Swimming     0
## 44 Summer Wheelchair Basketball     0

Cree un DataFrame llamada base1 que contenga sólo las columnas Sex, Year,Team, Medal en ese orden. Imprima el encabezado.

base1 <- olimpicos %>% select( Sex, Year, Team, Medal)
head(base1)

##   Sex Year           Team Medal
## 1   M 1992          China     0
## 2   M 2012          China     0
## 3   M 1920        Denmark     0
## 4   M 1900 Denmark/Sweden     3
## 5   F 1988    Netherlands     0
## 6   F 1988    Netherlands     0

Cuales han sido los 3 países con mayor cantidad de medallas en la historia de los juegos olimpicos

olimpicos %>% group_by(Team) %>% summarise(sum_medal=sum(Medal)) %>% arrange(desc(sum_medal)) %>% print(n = 3)

## # A tibble: 1,203 × 2
##   Team          sum_medal
##   <chr>             <int>
## 1 United States     11679
## 2 Soviet Union       5283
## 3 Germany            4036
## # ℹ 1,200 more rows

¿Cual fue la edad promedio de los deportistas colombianos, separado para hombres y mujeres en tokyo 2020?

olimpicos %>% filter(Team=="Colombia" & Year == "2020") %>% group_by(Sex) %>% summarise(edad_promedio=mean(Age))

## # A tibble: 2 × 2
##   Sex    edad_promedio
##   <chr>          <dbl>
## 1 Female          28.5
## 2 Male            30.3

¿Cuál ha sido el deportista de menor y mayor edad que ha participado en unos juegos olimpicos de verano?

olimpicos %>% group_by(Name) %>% summarise(menor_edad=min(Age)) %>% arrange(menor_edad) %>% print(n=1)

## # A tibble: 139,156 × 2
##   Name               menor_edad
##   <chr>                   <dbl>
## 1 Dimitrios Loundras         10
## # ℹ 139,155 more rows

olimpicos %>% group_by(Name) %>% summarise(mayor_edad=max(Age)) %>% arrange(desc(mayor_edad)) %>% print(n=1)

## # A tibble: 139,156 × 2
##   Name                   mayor_edad
##   <chr>                       <dbl>
## 1 John Quincy Adams Ward         97
## # ℹ 139,155 more rows

¿Cual deporte ha dado más medallas a Colombia?

olimpicos %>% filter(Team == "Colombia") %>% group_by(Sport) %>% summarise(sum_medal=sum(Medal)) %>% arrange(desc(sum_medal)) %>% print(n = 1)

## # A tibble: 31 × 2
##   Sport     sum_medal
##   <chr>         <int>
## 1 Athletics        20
## # ℹ 30 more rows

Actividad

2025-06-18