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

1. Cuantas filas y columnas tiene la base de datos.

# Escriba su código
dim(olimpicos)

## [1] 275643     10

#10 columnas y 275643 filas

2. Cuales son los nombres de las columnas

# Escriba su código
colnames(olimpicos)

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

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

# Escriba su código
library(dplyr)
col_m_tokyo2020 = olimpicos %>% filter(Team == "Colombia", Sex == "Male", Games == "2020 Summer")%>% distinct(Name)
nrow(col_m_tokyo2020)

## [1] 41

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

# Escriba su código
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

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

# Escriba su código
top_medallas <- olimpicos %>%filter(Medal > 0) %>%group_by(Team) %>%summarise(Total_Medallas = sum(Medal)) %>%arrange(desc(Total_Medallas)) %>%slice_head(n = 3)

top_medallas

## # A tibble: 3 × 2
##   Team          Total_Medallas
##   <chr>                  <int>
## 1 United States          11679
## 2 Soviet Union            5283
## 3 Germany                 4036

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

# Escriba su código
edad_prom_colombia <- olimpicos %>%filter(Team == "Colombia", Games == "2020 Summer") %>%group_by(Sex) %>%summarise(Edad_Promedio = mean(Age, na.rm = TRUE))
edad_prom_colombia

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

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

# Escriba su código
verano <- olimpicos %>%filter(Season == "Summer")
# Menor edad
min_edad <- verano %>% filter(Age == min(Age, na.rm = TRUE))
# Mayor edad
max_edad <- verano %>% filter(Age == max(Age, na.rm = TRUE))

min_edad

##       V1               Name Sex Age                          Team       Games
## 1 142882 Dimitrios Loundras   M  10 Ethnikos Gymnastikos Syllogos 1896 Summer
##   Year Season      Sport Medal
## 1 1896 Summer Gymnastics     1

max_edad

##       V1                   Name Sex Age          Team       Games Year Season
## 1 257054 John Quincy Adams Ward   M  97 United States 1928 Summer 1928 Summer
##              Sport Medal
## 1 Art Competitions     0

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

# Escriba su código
deporte_top <- olimpicos %>%filter(Team == "Colombia", Medal > 0) %>%group_by(Sport) %>%summarise(Medallas = sum(Medal)) %>%
arrange(desc(Medallas)) %>%slice_head(n = 1)

deporte_top

## # A tibble: 1 × 2
##   Sport     Medallas
##   <chr>        <int>
## 1 Athletics       20