Data 502 Project - Mens 100m
Rochelle rafn
9/30/2021
library(tidyverse)## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──## ✓ ggplot2 3.3.5 ✓ purrr 0.3.4
## ✓ tibble 3.1.5 ✓ dplyr 1.0.7
## ✓ tidyr 1.1.4 ✓ stringr 1.4.0
## ✓ readr 2.0.2 ✓ forcats 0.5.1## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()library(magrittr)##
## Attaching package: 'magrittr'## The following object is masked from 'package:purrr':
##
## set_names## The following object is masked from 'package:tidyr':
##
## extractlibrary(ggplot2)
library(readxl)
library(trackdown)
library(rvest)##
## Attaching package: 'rvest'## The following object is masked from 'package:readr':
##
## guess_encodingmens_100m_1912_2012 <- read_xlsx("/Users/rochellerafn/RStudio Files/501 Project - Olympic Track - 100m.xlsx")summary(mens_100m_1912_2012)## Event Name Country Time
## Length:79 Length:79 Length:79 Min. : 9.630
## Class :character Class :character Class :character 1st Qu.: 9.957
## Mode :character Mode :character Mode :character Median :10.200
## Mean :10.235
## 3rd Qu.:10.400
## Max. :10.900
## NA's :7
## Medal Olympic City Year Record
## Length:79 Length:79 Min. :1912 Length:79
## Class :character Class :character 1st Qu.:1945 Class :character
## Mode :character Mode :character Median :1970 Mode :character
## Mean :1968
## 3rd Qu.:1993
## Max. :2016
## NA's :7 ggplot(mens_100m_1912_2012, aes(Year, Time, color = Medal))+
geom_point()## Warning: Removed 7 rows containing missing values (geom_point).
ggplot(mens_100m_1912_2012, aes(Year, Time, color = Medal))+
geom_point(size = 3, alpha = 0.7)+
geom_line()+
theme(panel.background = element_blank(),
plot.background = element_blank(),
panel.grid.minor.x = element_line(color = "lightgray"),
panel.grid.major.x = element_line(color = "lightgray"),
axis.line = element_line(color = "gray"))## Warning: Removed 7 rows containing missing values (geom_point).## Warning: Removed 7 row(s) containing missing values (geom_path).
ggplot(mens_100m_1912_2012, aes(Time, Year, color = Medal))+
geom_point(size = 2, alpha = 0.7)+
geom_line()+
theme(panel.background = element_blank(),
plot.background = element_blank(),
panel.grid.minor.x = element_line(color = "lightgray"),
panel.grid.major.x = element_line(color = "lightgray"),
axis.line = element_line(color = "gray"))## Warning: Removed 7 rows containing missing values (geom_point).## Warning: Removed 7 row(s) containing missing values (geom_path).
ggplot(mens_100m_1912_2012, aes(Year, Time, color = Medal))+
geom_point(size = 2, alpha = 0.7)+
geom_line()+
theme(panel.background = element_blank(),
plot.background = element_blank(),
panel.grid.minor.x = element_line(color = "lightgray"),
panel.grid.major.x = element_line(color = "lightgray"),
axis.line = element_line(color = "gray"))## Warning: Removed 7 rows containing missing values (geom_point).## Warning: Removed 7 row(s) containing missing values (geom_path).
### I plan to add another column to track change over time.
ggplot(mens_100m_1912_2012, aes(Year, Time, color = Medal))+
geom_point()+
geom_line()+
theme(panel.background = element_blank(),
plot.background = element_blank(),
panel.grid.minor.x = element_line(color = "lightgray"),
panel.grid.major.x = element_line(color = "lightgray"),
axis.line = element_line(color = "gray"),
axis.text.x = element_text(angle=90, vjust=0.5))+
xlab("Year_Range")## Warning: Removed 7 rows containing missing values (geom_point).## Warning: Removed 7 row(s) containing missing values (geom_path).
### This is part of the data I’m working on to review distribution of speed over time. I am also tracking participating countries and historical events that could effect sports performance.
atl_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1996_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-atl_men_100m%>%html_table(fill=TRUE)
atl_men_100m_1<-tables[[6]]
atl_men_100m_2<-tables[[7]]
atl_men_100m_3<-tables[[8]]
atl_men_100m_4<-tables[[9]]
atl_men_100m_5<-tables[[10]]
atl_men_100m_6<-tables[[11]]
atl_men_100m_7<-tables[[12]]
atl_men_100m_8<-tables[[13]]
atl_men_100m_9<-tables[[14]]
atl_men_100m_10<-tables[[15]]
atl_men_100m_11<-tables[[16]]
atl_men_100m_12<-tables[[17]]
atl_men_100m_13<-tables[[18]]
atl_men_100m_14<-tables[[19]]
atl_men_100m_15<-tables[[20]]
atl_men_100m_16<-tables[[21]]
atl_men_100m_17<-tables[[22]]
atl_men_100m_18<-tables[[23]]
atl_men_100m_19<-tables[[24]]
atl_men_100m_20<-tables[[25]]
atl_men_100m_1 <- atl_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercionatl_men_100m_2 <- atl_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercion
## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercionatl_men_100m_3 <- atl_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
atl_men_100m_4 <- atl_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
atl_men_100m_5 <- atl_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
atl_men_100m_6 <- atl_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
atl_men_100m_7 <- atl_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
atl_men_100m_8 <- atl_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
atl_men_100m_9 <- atl_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
atl_men_100m_10 <- atl_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
atl_men_100m_11 <- atl_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercion
## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercionatl_men_100m_12 <- atl_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
atl_men_100m_13 <- atl_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
atl_men_100m_14 <- atl_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
atl_men_100m_15 <- atl_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
atl_men_100m_16 <- atl_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
atl_men_100m_17 <- atl_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
atl_men_100m_18 <- atl_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
atl_men_100m_19 <- atl_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercion
## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercionatl_men_100m_20 <- atl_men_100m_20 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercion
## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercionatl_men_100m_all <- bind_rows(atl_men_100m_1, atl_men_100m_2, atl_men_100m_3, atl_men_100m_4, atl_men_100m_5, atl_men_100m_6, atl_men_100m_7, atl_men_100m_8, atl_men_100m_9, atl_men_100m_10, atl_men_100m_11, atl_men_100m_12, atl_men_100m_13, atl_men_100m_14, atl_men_100m_15, atl_men_100m_16, atl_men_100m_17, atl_men_100m_18, atl_men_100m_19, atl_men_100m_20)
atl_men_100m_all <- atl_men_100m_all %>%
filter(!is.na(Rank))%>%
add_column("Year"=1996,"Host City" ="Atlanta", "Host Country"="United States")
atl_men_100m_all## Rank Lane Athlete Nation Reaction
## 1 1 6 Emmanuel Tuffour Ghana 0.187
## 2 2 5 Bruny Surin Canada 0.168
## 3 3 2 Andrey Fedoriv Russia 0.159
## 4 4 1 Renward Wells Bahamas 0.156
## 5 5 3 Chithaka De Soyza Sri Lanka 0.173
## 6 6 7 Luís Cunha Portugal 0.149
## 7 7 9 Patrick Mocci Roumbe Gabon 0.185
## 8 8 8 Nordine Ould Menira Mauritania 0.186
## 9 9 4 Bonifacio Edu Equatorial Guinea 0.198
## 10 1 1 Davidson Ezinwa Nigeria <NA>
## 11 2 2 Jon Drummond United States <NA>
## 12 3 9 Erik Wymeersch Belgium <NA>
## 13 4 5 Leon Gordon Jamaica <NA>
## 14 5 6 Stefan Burkart Switzerland <NA>
## 15 6 7 Barnabe Jolicoeur Mauritius <NA>
## 16 7 4 Bimal Tarafdar Bangladesh <NA>
## 17 8 3 Abdul Ghafoor Afghanistan <NA>
## 18 1 5 Ato Boldon Trinidad and Tobago <NA>
## 19 2 7 Anninos Markoullides Cyprus <NA>
## 20 3 2 Kim Collins Saint Kitts and Nevis <NA>
## 21 4 8 Augustine Nketia New Zealand <NA>
## 22 5 4 Raymond Stewart Jamaica <NA>
## 23 6 9 Stefano Tilli Italy <NA>
## 24 7 6 Jamal Al-Saffar Saudi Arabia <NA>
## 25 8 3 Amarildo Almeida Guinea-Bissau <NA>
## 26 9 1 Mohamed Bakar Comoros <NA>
## 27 1 7 Michael Green Jamaica <NA>
## 28 2 9 Patrick Stevens Belgium <NA>
## 29 3 8 Serhiy Osovych Ukraine <NA>
## 30 4 1 Ezio Madonia Italy <NA>
## 31 5 2 Edson Ribeiro Brazil <NA>
## 32 6 3 Chris Donaldson New Zealand <NA>
## 33 7 5 Patrik Strenius Sweden <NA>
## 34 8 4 Toluta'u Koula Tonga <NA>
## 35 9 6 Vladislav Chernobay Kyrgyzstan <NA>
## 36 1 2 Deji Aliu Nigeria <NA>
## 37 2 8 Ousmane Diarra Mali <NA>
## 38 3 3 Wenzhong Chen China <NA>
## 39 4 6 Manuel Borrega Spain <NA>
## 40 5 7 Hiroyasu Tsuchie Japan <NA>
## 41 6 9 Ruben Benitez El Salvador <NA>
## 42 7 1 Vitaly Medvedev Kazakhstan <NA>
## 43 8 4 Mitchell Peters Virgin Islands <NA>
## 44 9 5 Bouriema Kimba Niger <NA>
## 45 1 4 Dennis Mitchell United States <NA>
## 46 2 7 Ian Mackie Great Britain <NA>
## 47 3 3 Marc Blume Germany <NA>
## 48 4 9 Alexandros Terzian Greece <NA>
## 49 5 1 Franck Amegnigan Togo <NA>
## 50 6 6 Rod Mapstone Australia <NA>
## 51 7 8 Sayon Cooper Liberia <NA>
## 52 8 2 Pa Modou Gai The Gambia <NA>
## 53 9 5 Jorge Castellon Bolivia <NA>
## 54 1 1 Obadele Thompson Barbados <NA>
## 55 2 5 Kostyantyn Rurak Ukraine <NA>
## 56 3 9 Pascal Theophile France <NA>
## 57 4 2 Carlos Gats Argentina <NA>
## 58 5 3 Joel Mascoll Saint Vincent and the Grenadines <NA>
## 59 6 6 Anvar Kuchmuradov Uzbekistan <NA>
## 60 7 4 Arif Akhundov Azerbaijan <NA>
## 61 8 8 Khaled Othman Libya <NA>
## 62 9 7 Jean-Olivier Zirignon Ivory Coast <NA>
## 63 1 7 Michael Marsh United States <NA>
## 64 2 8 Darren Braithwaite Great Britain <NA>
## 65 3 9 Kirk Cummins Barbados <NA>
## 66 4 5 Torbjörn Eriksson Sweden <NA>
## 67 5 6 Paul Henderson Australia <NA>
## 68 6 3 Alberto Mendez Dominican Republic <NA>
## 69 7 2 Arnaldo da Silva Brazil <NA>
## 70 8 1 Mario Bonello Malta <NA>
## 71 9 4 Odair Baia São Tomé and Príncipe <NA>
## 72 1 8 André da Silva Brazil <NA>
## 73 2 5 Linford Christie Great Britain <NA>
## 74 3 6 Yiannis Zisimides Cyprus <NA>
## 75 4 1 Venancio Jose Spain <NA>
## 76 5 9 Hamed Douhou Ivory Coast <NA>
## 77 6 7 Robert Dennis Liberia <NA>
## 78 7 2 Donald Onchiri Kenya <NA>
## 79 8 3 Sun-Kuk Jin South Korea <NA>
## 80 9 4 Peter Pulu Papua New Guinea <NA>
## 81 1 5 Eric Nkansah Ghana <NA>
## 82 2 2 Needy Guims France <NA>
## 83 3 1 Olapade Adeniken Nigeria <NA>
## 84 4 7 Jone Delai Fiji <NA>
## 85 5 8 Vitaliy Savin Kazakhstan <NA>
## 86 6 9 Watson Nyambek Malaysia <NA>
## 87 7 6 Neil Ryan Ireland <NA>
## 88 8 3 Javier Verne Peru <NA>
## 89 9 4 Van Lam Hai Vietnam <NA>
## 90 1 3 Donovan Bailey Canada <NA>
## 91 2 1 Nobuharu Asahara Japan <NA>
## 92 3 2 Peter Karlsson Sweden <NA>
## 93 4 6 Sanusi Turay Sierra Leone <NA>
## 94 5 9 Sergejs Insakovs Latvia <NA>
## 95 6 8 Haralambos Papadias Greece <NA>
## 96 7 7 Hsin-Ping Huang Chinese Taipei <NA>
## 97 8 4 Eric Agueh Benin <NA>
## 98 1 4 Frank Fredericks Namibia <NA>
## 99 2 1 Glenroy Gilbert Canada <NA>
## 100 3 3 Alexandros Yenovelis Greece <NA>
## 101 4 6 Frutos Feo Spain <NA>
## 102 5 8 Benjamin Sirimou Cameroon <NA>
## 103 6 7 Hamed Sadeq Kuwait <NA>
## 104 7 9 Devon Bean Bermuda <NA>
## 105 8 5 Robert Loua Guinea <NA>
## 106 9 2 Mark Sherwin Cook Islands <NA>
## 107 1 5 Ato Boldon Trinidad and Tobago <NA>
## 108 2 3 Nobuharu Asahara Japan <NA>
## 109 3 6 Eric Nkansah Ghana <NA>
## 110 4 4 Deji Aliu Nigeria <NA>
## 111 5 7 Glenroy Gilbert Canada <NA>
## 112 6 8 Marc Blume Germany <NA>
## 113 7 1 Andrey Fedoriv Russia <NA>
## 114 8 2 Augustine Nketia New Zealand <NA>
## 115 1 6 Linford Christie Great Britain <NA>
## 116 2 5 Donovan Bailey Canada <NA>
## 117 3 3 Jon Drummond United States <NA>
## 118 4 4 Emmanuel Tuffour Ghana <NA>
## 119 5 2 Erik Wymeersch Belgium <NA>
## 120 6 7 Olapade Adeniken Nigeria <NA>
## 121 7 8 Needy Guims France <NA>
## 122 8 1 Ezio Madonia Italy <NA>
## 123 1 5 Frank Fredericks Namibia <NA>
## 124 2 3 Davidson Ezinwa Nigeria <NA>
## 125 3 4 Obadele Thompson Barbados <NA>
## 126 4 8 Raymond Stewart Jamaica <NA>
## 127 5 7 Peter Karlsson Sweden <NA>
## 128 6 6 Darren Braithwaite Great Britain <NA>
## 129 7 2 Wenzhong Chen China <NA>
## 130 8 1 Ousmane Diarra Mali <NA>
## 131 1 6 Dennis Mitchell United States <NA>
## 132 2 3 Michael Green Jamaica <NA>
## 133 3 4 Anninos Markoullides Cyprus <NA>
## 134 4 5 Patrick Stevens Belgium <NA>
## 135 5 2 Kim Collins Saint Kitts and Nevis <NA>
## 136 6 1 Pascal Theophile France <NA>
## 137 7 7 Serhiy Osovych Ukraine <NA>
## 138 8 8 Kirk Cummins Barbados <NA>
## 139 1 6 Michael Marsh United States <NA>
## 140 2 4 Bruny Surin Canada <NA>
## 141 3 5 Ian Mackie Great Britain <NA>
## 142 4 3 André da Silva Brazil <NA>
## 143 5 2 Alexandros Yenovelis Greece <NA>
## 144 6 1 Venancio Jose Spain <NA>
## 145 7 7 Kostyantyn Rurak Ukraine <NA>
## 146 8 8 Yiannis Zisimides Cyprus <NA>
## 147 1 5 Frank Fredericks Namibia <NA>
## 148 2 3 Donovan Bailey Canada <NA>
## 149 3 6 Michael Marsh United States <NA>
## 150 4 4 Michael Green Jamaica <NA>
## 151 5 1 Nobuharu Asahara Japan <NA>
## 152 6 8 Obadele Thompson Barbados <NA>
## 153 7 2 Emmanuel Tuffour Ghana <NA>
## 154 8 7 Anninos Markoullides Cyprus <NA>
## 155 1 3 Ato Boldon Trinidad and Tobago <NA>
## 156 2 5 Dennis Mitchell United States <NA>
## 157 3 6 Linford Christie Great Britain <NA>
## 158 4 4 Davidson Ezinwa Nigeria <NA>
## 159 5 1 Bruny Surin Canada <NA>
## 160 6 2 Jon Drummond United States <NA>
## 161 7 8 Eric Nkansah Ghana <NA>
## 162 4 4 Dennis Mitchell United States <NA>
## 163 5 1 Michael Marsh United States <NA>
## 164 6 7 Davidson Ezinwa Nigeria <NA>
## 165 7 8 Michael Green Jamaica <NA>
## Time Notes Heat Year Host City Host Country
## 1 10.15 Q 1 1996 Atlanta United States
## 2 10.18 Q 1 1996 Atlanta United States
## 3 10.39 Q 1 1996 Atlanta United States
## 4 10.48 1 1996 Atlanta United States
## 5 10.55 1 1996 Atlanta United States
## 6 10.65 1 1996 Atlanta United States
## 7 10.87 1 1996 Atlanta United States
## 8 10.95 1 1996 Atlanta United States
## 9 11.87 1 1996 Atlanta United States
## 10 10.03 Q 2 1996 Atlanta United States
## 11 10.08 Q 2 1996 Atlanta United States
## 12 10.24 Q 2 1996 Atlanta United States
## 13 10.48 2 1996 Atlanta United States
## 14 10.49 2 1996 Atlanta United States
## 15 10.57 2 1996 Atlanta United States
## 16 10.98 2 1996 Atlanta United States
## 17 12.20 2 1996 Atlanta United States
## 18 10.06 Q 3 1996 Atlanta United States
## 19 10.26 Q 3 1996 Atlanta United States
## 20 10.27 Q 3 1996 Atlanta United States
## 21 10.34 q 3 1996 Atlanta United States
## 22 10.38 q 3 1996 Atlanta United States
## 23 10.38 3 1996 Atlanta United States
## 24 10.44 3 1996 Atlanta United States
## 25 10.85 3 1996 Atlanta United States
## 26 11.02 3 1996 Atlanta United States
## 27 10.16 Q 4 1996 Atlanta United States
## 28 10.21 Q 4 1996 Atlanta United States
## 29 10.29 Q 4 1996 Atlanta United States
## 30 10.33 q 4 1996 Atlanta United States
## 31 10.39 4 1996 Atlanta United States
## 32 10.39 4 1996 Atlanta United States
## 33 10.48 4 1996 Atlanta United States
## 34 10.71 4 1996 Atlanta United States
## 35 10.88 4 1996 Atlanta United States
## 36 10.34 Q 5 1996 Atlanta United States
## 37 10.34 Q 5 1996 Atlanta United States
## 38 10.37 Q 5 1996 Atlanta United States
## 39 10.52 5 1996 Atlanta United States
## 40 10.58 5 1996 Atlanta United States
## 41 10.74 5 1996 Atlanta United States
## 42 10.90 5 1996 Atlanta United States
## 43 11.12 5 1996 Atlanta United States
## 44 11.24 5 1996 Atlanta United States
## 45 10.24 Q 6 1996 Atlanta United States
## 46 10.27 Q 6 1996 Atlanta United States
## 47 10.33 Q 6 1996 Atlanta United States
## 48 10.48 6 1996 Atlanta United States
## 49 10.51 6 1996 Atlanta United States
## 50 10.56 6 1996 Atlanta United States
## 51 10.58 6 1996 Atlanta United States
## 52 10.72 6 1996 Atlanta United States
## 53 10.74 6 1996 Atlanta United States
## 54 10.33 Q 7 1996 Atlanta United States
## 55 10.37 Q 7 1996 Atlanta United States
## 56 10.41 Q 7 1996 Atlanta United States
## 57 10.57 7 1996 Atlanta United States
## 58 10.64 7 1996 Atlanta United States
## 59 10.71 7 1996 Atlanta United States
## 60 11.11 7 1996 Atlanta United States
## 61 11.65 7 1996 Atlanta United States
## 62 22.69 7 1996 Atlanta United States
## 63 10.14 Q 8 1996 Atlanta United States
## 64 10.29 Q 8 1996 Atlanta United States
## 65 10.47 Q 8 1996 Atlanta United States
## 66 10.49 8 1996 Atlanta United States
## 67 10.52 8 1996 Atlanta United States
## 68 10.60 8 1996 Atlanta United States
## 69 10.62 8 1996 Atlanta United States
## 70 10.89 8 1996 Atlanta United States
## 71 11.05 8 1996 Atlanta United States
## 72 10.25 Q 9 1996 Atlanta United States
## 73 10.26 Q 9 1996 Atlanta United States
## 74 10.32 Q 9 1996 Atlanta United States
## 75 10.34 q 9 1996 Atlanta United States
## 76 10.53 9 1996 Atlanta United States
## 77 10.65 9 1996 Atlanta United States
## 78 10.66 9 1996 Atlanta United States
## 79 10.73 9 1996 Atlanta United States
## 80 10.76 9 1996 Atlanta United States
## 81 10.26 Q 10 1996 Atlanta United States
## 82 10.39 Q 10 1996 Atlanta United States
## 83 10.41 Q 10 1996 Atlanta United States
## 84 10.42 10 1996 Atlanta United States
## 85 10.52 10 1996 Atlanta United States
## 86 10.55 10 1996 Atlanta United States
## 87 10.78 10 1996 Atlanta United States
## 88 10.91 10 1996 Atlanta United States
## 89 11.14 10 1996 Atlanta United States
## 90 10.24 Q 11 1996 Atlanta United States
## 91 10.28 Q 11 1996 Atlanta United States
## 92 10.35 Q 11 1996 Atlanta United States
## 93 10.39 11 1996 Atlanta United States
## 94 10.42 11 1996 Atlanta United States
## 95 10.46 11 1996 Atlanta United States
## 96 10.70 11 1996 Atlanta United States
## 97 10.98 11 1996 Atlanta United States
## 98 10.32 Q 12 1996 Atlanta United States
## 99 10.34 Q 12 1996 Atlanta United States
## 100 10.39 Q 12 1996 Atlanta United States
## 101 10.56 12 1996 Atlanta United States
## 102 10.58 12 1996 Atlanta United States
## 103 10.81 12 1996 Atlanta United States
## 104 10.89 12 1996 Atlanta United States
## 105 11.21 12 1996 Atlanta United States
## 106 11.41 12 1996 Atlanta United States
## 107 9.95 Q Quarter Final 1996 Atlanta United States
## 108 10.19 Q Quarter Final 1996 Atlanta United States
## 109 10.24 Q Quarter Final 1996 Atlanta United States
## 110 10.26 Quarter Final 1996 Atlanta United States
## 111 10.28 Quarter Final 1996 Atlanta United States
## 112 10.33 Quarter Final 1996 Atlanta United States
## 113 10.34 Quarter Final 1996 Atlanta United States
## 114 10.35 Quarter Final 1996 Atlanta United States
## 115 10.03 Q Quarter Final 1996 Atlanta United States
## 116 10.05 Q Quarter Final 1996 Atlanta United States
## 117 10.17 Q Quarter Final 1996 Atlanta United States
## 118 10.18 q Quarter Final 1996 Atlanta United States
## 119 10.37 Quarter Final 1996 Atlanta United States
## 120 10.38 Quarter Final 1996 Atlanta United States
## 121 10.43 Quarter Final 1996 Atlanta United States
## 122 10.43 Quarter Final 1996 Atlanta United States
## 123 9.93 Q Quarter Final 1996 Atlanta United States
## 124 10.08 Q Quarter Final 1996 Atlanta United States
## 125 10.14 Q Quarter Final 1996 Atlanta United States
## 126 10.18 Quarter Final 1996 Atlanta United States
## 127 10.24 Quarter Final 1996 Atlanta United States
## 128 10.27 Quarter Final 1996 Atlanta United States
## 129 10.29 Quarter Final 1996 Atlanta United States
## 130 10.38 Quarter Final 1996 Atlanta United States
## 131 10.09 Q Quarter Final 1996 Atlanta United States
## 132 10.11 Q Quarter Final 1996 Atlanta United States
## 133 10.23 Q Quarter Final 1996 Atlanta United States
## 134 10.31 Quarter Final 1996 Atlanta United States
## 135 10.34 Quarter Final 1996 Atlanta United States
## 136 10.38 Quarter Final 1996 Atlanta United States
## 137 10.38 Quarter Final 1996 Atlanta United States
## 138 10.45 Quarter Final 1996 Atlanta United States
## 139 10.04 Q Quarter Final 1996 Atlanta United States
## 140 10.13 Q Quarter Final 1996 Atlanta United States
## 141 10.25 Q Quarter Final 1996 Atlanta United States
## 142 10.26 Quarter Final 1996 Atlanta United States
## 143 10.31 Quarter Final 1996 Atlanta United States
## 144 10.46 Quarter Final 1996 Atlanta United States
## 145 10.47 Quarter Final 1996 Atlanta United States
## 146 10.47 Quarter Final 1996 Atlanta United States
## 147 9.94 Q Semi Final 1996 Atlanta United States
## 148 10.00 Q Semi Final 1996 Atlanta United States
## 149 10.08 Q Semi Final 1996 Atlanta United States
## 150 10.11 Q Semi Final 1996 Atlanta United States
## 151 10.16 Semi Final 1996 Atlanta United States
## 152 10.16 Semi Final 1996 Atlanta United States
## 153 10.22 Semi Final 1996 Atlanta United States
## 154 10.36 Semi Final 1996 Atlanta United States
## 155 9.93 Q Semi Final 1996 Atlanta United States
## 156 10.00 Q Semi Final 1996 Atlanta United States
## 157 10.04 Q Semi Final 1996 Atlanta United States
## 158 10.04 Q Semi Final 1996 Atlanta United States
## 159 10.13 Semi Final 1996 Atlanta United States
## 160 10.16 Semi Final 1996 Atlanta United States
## 161 10.26 Semi Final 1996 Atlanta United States
## 162 9.99 Final 1996 Atlanta United States
## 163 10.00 Final 1996 Atlanta United States
## 164 10.14 Final 1996 Atlanta United States
## 165 10.16 Final 1996 Atlanta United Stateshel_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1952_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-hel_men_100m%>%html_table(fill=TRUE)
hel_men_100m_1<-tables[[5]]
hel_men_100m_2<-tables[[6]]
hel_men_100m_3<-tables[[7]]
hel_men_100m_4<-tables[[8]]
hel_men_100m_5<-tables[[9]]
hel_men_100m_6<-tables[[10]]
hel_men_100m_7<-tables[[11]]
hel_men_100m_8<-tables[[12]]
hel_men_100m_9<-tables[[13]]
hel_men_100m_10<-tables[[14]]
hel_men_100m_11<-tables[[15]]
hel_men_100m_12<-tables[[16]]
hel_men_100m_13<-tables[[17]]
hel_men_100m_14<-tables[[18]]
hel_men_100m_15<-tables[[19]]
hel_men_100m_16<-tables[[20]]
hel_men_100m_17<-tables[[21]]
hel_men_100m_18<-tables[[21]]
hel_men_100m_19<-tables[[22]]
hel_men_100m_1 <- hel_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
hel_men_100m_2 <- hel_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
hel_men_100m_3 <- hel_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
hel_men_100m_4 <- hel_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
hel_men_100m_5 <- hel_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
hel_men_100m_6 <- hel_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
hel_men_100m_7 <- hel_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
hel_men_100m_8 <- hel_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
hel_men_100m_9 <- hel_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercion
## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercionhel_men_100m_10 <- hel_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
hel_men_100m_11 <- hel_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
hel_men_100m_12 <- hel_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
hel_men_100m_13 <- hel_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercion
## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercionhel_men_100m_14 <- hel_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
hel_men_100m_15 <- hel_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
hel_men_100m_16 <- hel_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
hel_men_100m_17 <- hel_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
hel_men_100m_18 <- hel_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
hel_men_100m_19 <- hel_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
hel_men_100m_all <- bind_rows(hel_men_100m_1, hel_men_100m_2, hel_men_100m_3, hel_men_100m_4, hel_men_100m_5, hel_men_100m_6, hel_men_100m_7, hel_men_100m_8, hel_men_100m_9, hel_men_100m_10, hel_men_100m_11, hel_men_100m_12, hel_men_100m_13, hel_men_100m_14, hel_men_100m_15, hel_men_100m_16, hel_men_100m_17, hel_men_100m_18, hel_men_100m_19)
hel_men_100m_all <- hel_men_100m_all %>%
filter(!is.na(Rank))%>%
add_column("Year"=1952,"Host City" ="Helsinki", "Host Country"="Finland")
hel_men_100m_all## Rank Athlete Nation Time Notes Heat Year
## 1 1 John Treloar Australia 10.92 Q 1 1952
## 2 2 Alan Lillington Great Britain 11.06 Q 1 1952
## 3 3 Gabriel Lareya Ghana 11.18 1 1952
## 4 4 Miroslav Horčic Czechoslovakia 11.23 1 1952
## 5 5 Ásmundur Bjarnason Iceland 11.40 1 1952
## 6 6 Youssef Ali Omar Egypt 11.53 1 1952
## 7 7 José Julio Barillas Guatemala 11.56 1 1952
## 8 1 Étienne Bally France 10.97 Q 2 1952
## 9 2 Angel Kolev Bulgaria 11.01 Q 2 1952
## 10 3 Paul Dolan Ireland 11.12 2 1952
## 11 4 Raúl Mazorra Cuba 11.19 2 1952
## 12 5 Robert Hutchinson Canada 11.26 2 1952
## 13 6 Masaji Tajima Japan 11.29 2 1952
## 14 7 Adul Wanasatith Thailand 11.61 2 1952
## 15 1 McDonald Bailey Great Britain 10.65 Q 3 1952
## 16 2 Carlo Vittori Italy 10.98 Q 3 1952
## 17 3 Mikhail Kazantsev Soviet Union 11.16 3 1952
## 18 4 Hörður Haraldsson Iceland 11.31 3 1952
## 19 5 Javier Souza Mexico 11.32 3 1952
## 20 6 Stefanos Petrakis Greece 11.33 3 1952
## 21 1 William Jack Great Britain 11.05 Q 4 1952
## 22 2 Romeo Galán Argentina 11.11 Q 4 1952
## 23 3 Levan Sanadze Soviet Union 11.13 4 1952
## 24 4 Emad El-Din Shafei Egypt 11.40 4 1952
## 25 5 Guillermo Gutiérrez Venezuela 11.42 4 1952
## 26 6 Boonterm Pakpuang Thailand 11.85 4 1952
## 27 1 Herb McKenley Jamaica 10.88 Q 5 1952
## 28 2 György Csányi Hungary 11.09 Q 5 1952
## 29 3 Emil Kiszka Poland 11.13 5 1952
## 30 4 Pauli Tavisalo Finland 11.30 5 1952
## 31 5 Tomás Paquete Portugal 11.45 5 1952
## 32 6 Walter Sutton Canada 11.45 5 1952
## 33 1 David Tabak Israel 11.12 Q 6 1952
## 34 2 Tomio Hosoda Japan 11.14 Q 6 1952
## 35 3 Willy Schneider Switzerland 11.22 6 1952
## 36 4 Angel Gavrilov Bulgaria 11.29 6 1952
## 37 5 Juan Leiva Venezuela 11.31 6 1952
## 38 1 Vladimir Sukharev Soviet Union 10.93 Q 7 1952
## 39 2 Theo Saat Netherlands 11.02 Q 7 1952
## 40 3 Muhammad Sharif Butt Pakistan 11.17 7 1952
## 41 4 Voitto Hellstén Finland 11.36 7 1952
## 42 5 George Acquaah Ghana 11.47 7 1952
## 43 6 Mariano Acosta Argentina 11.58 7 1952
## 44 7 Wolfango Montanari Italy 12.25 7 1952
## 45 1 Rafael Fortún Cuba 10.93 Q 8 1952
## 46 2 Byron LaBeach Jamaica 11.09 Q 8 1952
## 47 3 Franco Leccese Italy 11.18 8 1952
## 48 4 Issi Baran Finland 11.32 8 1952
## 49 5 Fritz Griesser Switzerland 11.54 8 1952
## 50 1 Werner Zandt Germany 11.03 Q 9 1952
## 51 2 Muhammad Aslam Pakistan 11.18 Q 9 1952
## 52 3 Don McFarlane Canada 11.25 9 1952
## 53 4 Zdeněk Pospíšil Czechoslovakia 11.25 9 1952
## 54 5 Edward Ajado Nigeria 11.25 9 1952
## 55 6 Fawzi Chaaban Egypt 11.51 9 1952
## 56 1 Art Bragg United States 10.73 Q 10 1952
## 57 2 Hans Wehrli Switzerland 11.00 Q 10 1952
## 58 3 Titus Erinle Nigeria 11.12 10 1952
## 59 4 László Zarándi Hungary 11.26 10 1952
## 60 5 Pétur Sigurðsson Iceland 11.55 10 1952
## 61 6 Arun Sankosik Thailand 11.76 10 1952
## 62 1 Lindy Remigino United States 10.73 Q 11 1952
## 63 2 Lavy Pinto India 11.00 Q 11 1952
## 64 3 René Bonino France 11.00 11 1952
## 65 4 František Brož Czechoslovakia 11.32 11 1952
## 66 5 Abdul Aziz Pakistan 11.48 11 1952
## 67 6 Rui Maia Portugal 11.79 11 1952
## 68 1 Dean Smith United States 10.90 Q 12 1952
## 69 2 Alain Porthault France 11.04 Q 12 1952
## 70 3 Erich Fuchs Germany 11.19 12 1952
## 71 4 Karim Olowu Nigeria 11.27 12 1952
## 72 1 McDonald Bailey Great Britain 10.73 Q Quarter Final 1952
## 73 2 John Treloar Australia 10.84 Q Quarter Final 1952
## 74 3 Alain Porthault France 10.99 Q Quarter Final 1952
## 75 4 Muhammad Aslam Pakistan 11.02 Quarter Final 1952
## 76 5 Byron LaBeach Jamaica 11.05 Quarter Final 1952
## 77 1 Lindy Remigino United States 10.68 Q Quarter Final 1952
## 78 2 Theo Saat Netherlands 10.93 Q Quarter Final 1952
## 79 3 Lavy Pinto India 10.98 Q Quarter Final 1952
## 80 4 Étienne Bally France 10.98 Quarter Final 1952
## 81 5 Hans Wehrli Switzerland 11.05 Quarter Final 1952
## 82 6 Alan Lillington Great Britain 11.26 Quarter Final 1952
## 83 1 Dean Smith United States 10.69 Q Quarter Final 1952
## 84 2 Rafael Fortún Cuba 10.90 Q Quarter Final 1952
## 85 3 William Jack Great Britain 10.94 Q Quarter Final 1952
## 86 4 Werner Zandt Germany 10.98 Quarter Final 1952
## 87 5 Romeo Galán Argentina 11.08 Quarter Final 1952
## 88 6 David Tabak Israel 11.10 Quarter Final 1952
## 89 1 Herb McKenley Jamaica 10.72 Q Quarter Final 1952
## 90 2 Art Bragg United States 10.75 Q Quarter Final 1952
## 91 3 Vladimir Sukharev Soviet Union 10.92 Q Quarter Final 1952
## 92 4 Tomio Hosoda Japan 11.03 Quarter Final 1952
## 93 5 György Csányi Hungary 11.07 Quarter Final 1952
## 94 6 Carlo Vittori Italy 11.79 Quarter Final 1952
## 95 1 McDonald Bailey Great Britain 10.74 Q Semi Final 1952
## 96 2 Dean Smith United States 10.78 Q Semi Final 1952
## 97 3 Vladimir Sukharev Soviet Union 10.86 Q Semi Final 1952
## 98 4 Lavy Pinto India 10.94 Semi Final 1952
## 99 5 Alain Porthault France 11.04 Semi Final 1952
## 100 6 Art Bragg United States 11.43 Semi Final 1952
## 101 1 McDonald Bailey Great Britain 10.74 Q Semi Final 1952
## 102 2 Dean Smith United States 10.78 Q Semi Final 1952
## 103 3 Vladimir Sukharev Soviet Union 10.86 Q Semi Final 1952
## 104 4 Lavy Pinto India 10.94 Semi Final 1952
## 105 5 Alain Porthault France 11.04 Semi Final 1952
## 106 6 Art Bragg United States 11.43 Semi Final 1952
## 107 1 Herb McKenley Jamaica 10.74 Q Final 1952
## 108 2 Lindy Remigino United States 10.74 Q Final 1952
## 109 3 John Treloar Australia 10.76 Q Final 1952
## 110 4 Rafael Fortún Cuba 10.92 Final 1952
## 111 5 William Jack Great Britain 11.01 Final 1952
## 112 6 Theo Saat Netherlands 11.12 Final 1952
## Host City Host Country
## 1 Helsinki Finland
## 2 Helsinki Finland
## 3 Helsinki Finland
## 4 Helsinki Finland
## 5 Helsinki Finland
## 6 Helsinki Finland
## 7 Helsinki Finland
## 8 Helsinki Finland
## 9 Helsinki Finland
## 10 Helsinki Finland
## 11 Helsinki Finland
## 12 Helsinki Finland
## 13 Helsinki Finland
## 14 Helsinki Finland
## 15 Helsinki Finland
## 16 Helsinki Finland
## 17 Helsinki Finland
## 18 Helsinki Finland
## 19 Helsinki Finland
## 20 Helsinki Finland
## 21 Helsinki Finland
## 22 Helsinki Finland
## 23 Helsinki Finland
## 24 Helsinki Finland
## 25 Helsinki Finland
## 26 Helsinki Finland
## 27 Helsinki Finland
## 28 Helsinki Finland
## 29 Helsinki Finland
## 30 Helsinki Finland
## 31 Helsinki Finland
## 32 Helsinki Finland
## 33 Helsinki Finland
## 34 Helsinki Finland
## 35 Helsinki Finland
## 36 Helsinki Finland
## 37 Helsinki Finland
## 38 Helsinki Finland
## 39 Helsinki Finland
## 40 Helsinki Finland
## 41 Helsinki Finland
## 42 Helsinki Finland
## 43 Helsinki Finland
## 44 Helsinki Finland
## 45 Helsinki Finland
## 46 Helsinki Finland
## 47 Helsinki Finland
## 48 Helsinki Finland
## 49 Helsinki Finland
## 50 Helsinki Finland
## 51 Helsinki Finland
## 52 Helsinki Finland
## 53 Helsinki Finland
## 54 Helsinki Finland
## 55 Helsinki Finland
## 56 Helsinki Finland
## 57 Helsinki Finland
## 58 Helsinki Finland
## 59 Helsinki Finland
## 60 Helsinki Finland
## 61 Helsinki Finland
## 62 Helsinki Finland
## 63 Helsinki Finland
## 64 Helsinki Finland
## 65 Helsinki Finland
## 66 Helsinki Finland
## 67 Helsinki Finland
## 68 Helsinki Finland
## 69 Helsinki Finland
## 70 Helsinki Finland
## 71 Helsinki Finland
## 72 Helsinki Finland
## 73 Helsinki Finland
## 74 Helsinki Finland
## 75 Helsinki Finland
## 76 Helsinki Finland
## 77 Helsinki Finland
## 78 Helsinki Finland
## 79 Helsinki Finland
## 80 Helsinki Finland
## 81 Helsinki Finland
## 82 Helsinki Finland
## 83 Helsinki Finland
## 84 Helsinki Finland
## 85 Helsinki Finland
## 86 Helsinki Finland
## 87 Helsinki Finland
## 88 Helsinki Finland
## 89 Helsinki Finland
## 90 Helsinki Finland
## 91 Helsinki Finland
## 92 Helsinki Finland
## 93 Helsinki Finland
## 94 Helsinki Finland
## 95 Helsinki Finland
## 96 Helsinki Finland
## 97 Helsinki Finland
## 98 Helsinki Finland
## 99 Helsinki Finland
## 100 Helsinki Finland
## 101 Helsinki Finland
## 102 Helsinki Finland
## 103 Helsinki Finland
## 104 Helsinki Finland
## 105 Helsinki Finland
## 106 Helsinki Finland
## 107 Helsinki Finland
## 108 Helsinki Finland
## 109 Helsinki Finland
## 110 Helsinki Finland
## 111 Helsinki Finland
## 112 Helsinki Finlandant_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1920_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-ant_men_100m%>%html_table(fill=TRUE)
ant_men_100m_1<-tables[[6]]
ant_men_100m_2<-tables[[7]]
ant_men_100m_3<-tables[[8]]
ant_men_100m_4<-tables[[9]]
ant_men_100m_5<-tables[[10]]
ant_men_100m_6<-tables[[11]]
ant_men_100m_7<-tables[[12]]
ant_men_100m_8<-tables[[13]]
ant_men_100m_9<-tables[[14]]
ant_men_100m_10<-tables[[15]]
ant_men_100m_11<-tables[[16]]
ant_men_100m_12<-tables[[17]]
ant_men_100m_13<-tables[[18]]
ant_men_100m_14<-tables[[19]]
ant_men_100m_15<-tables[[20]]
ant_men_100m_16<-tables[[21]]
ant_men_100m_17<-tables[[22]]
ant_men_100m_18<-tables[[23]]
ant_men_100m_19<-tables[[24]]
ant_men_100m_20<-tables[[25]]
ant_men_100m_1 <- ant_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
ant_men_100m_2 <- ant_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercion
## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercionant_men_100m_3 <- ant_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
ant_men_100m_4 <- ant_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
ant_men_100m_5 <- ant_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
ant_men_100m_6 <- ant_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
ant_men_100m_7 <- ant_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
ant_men_100m_8 <- ant_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
ant_men_100m_9 <- ant_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
ant_men_100m_10 <- ant_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercion
## Warning in eval(substitute(list(...)), `_data`, parent.frame()): NAs introduced
## by coercionant_men_100m_11 <- ant_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
ant_men_100m_12 <- ant_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
ant_men_100m_13 <- ant_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ant_men_100m_13 <- ant_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ant_men_100m_14 <- ant_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ant_men_100m_15 <- ant_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ant_men_100m_16 <- ant_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ant_men_100m_17 <- ant_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
ant_men_100m_18 <- ant_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
ant_men_100m_19 <- ant_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
ant_men_100m_all <- bind_rows(ant_men_100m_1, ant_men_100m_2, ant_men_100m_3, ant_men_100m_4, ant_men_100m_5, ant_men_100m_6, ant_men_100m_7, ant_men_100m_8, ant_men_100m_9, ant_men_100m_10, ant_men_100m_11, ant_men_100m_12, ant_men_100m_13, ant_men_100m_14, ant_men_100m_15, ant_men_100m_16, ant_men_100m_17, ant_men_100m_18, ant_men_100m_19)
ant_men_100m_all <- ant_men_100m_all %>%
filter(!is.na(Rank), !is.na(Time))%>%
add_column("Year"=1920,"Host City" ="Antwerp", "Host Country"="Belgium")
ant_men_100m_all## Rank Athlete Nation Time Notes Heat Year Host City
## 1 1 William Hill Great Britain 11.0 Q 1 1920 Antwerp
## 2 2 Mario Riccoboni Italy 11.2 Q 1 1920 Antwerp
## 3 3 Marcel Gustin Belgium 11.3 1 1920 Antwerp
## 4 1 René Mourlon France 11.2 Q 2 1920 Antwerp
## 5 2 August Sørensen Denmark 11.3 Q 2 1920 Antwerp
## 6 1 Loren Murchison United States 10.8 Q 3 1920 Antwerp
## 7 2 Jacobus Bukes South Africa 11.0 Q 3 1920 Antwerp
## 8 3 Albert Heijnneman Netherlands 11.0 3 1920 Antwerp
## 9 1 William Hunt Australia 11.0 Q 4 1920 Antwerp
## 10 2 Félix Mendizábal Spain 11.2 Q 4 1920 Antwerp
## 11 1 Vittorio Zucca Italy 11.4 Q 5 1920 Antwerp
## 12 2 Cor Wezepoel Netherlands 11.5 Q 5 1920 Antwerp
## 13 1 Morris Kirksey United States 11.0 Q 6 1920 Antwerp
## 14 2 Josef Imbach Switzerland 11.0 Q 6 1920 Antwerp
## 15 3 René Lorain France 11.1 6 1920 Antwerp
## 16 4 Johan Johnsen Norway 11.2 6 1920 Antwerp
## 17 1 Paul Brochart Belgium 11.4 Q 7 1920 Antwerp
## 18 2 René Tirard France 11.7 Q 7 1920 Antwerp
## 19 1 Charley Paddock United States 10.8 Q 8 1920 Antwerp
## 20 2 Harry Edward Great Britain 10.9 Q 8 1920 Antwerp
## 21 3 Carlos Botín Spain 11.6 8 1920 Antwerp
## 22 4 Shinichi Yamaoka Japan 11.6 8 1920 Antwerp
## 23 5 Edmond Médécin Monaco 11.8 8 1920 Antwerp
## 24 1 Émile Ali-Khan France 11.0 Q 9 1920 Antwerp
## 25 2 Victor d'Arcy Great Britain 11.1 Q 9 1920 Antwerp
## 26 1 Harold Abrahams Great Britain 11.0 Q 10 1920 Antwerp
## 27 2 Alexander Ponton Canada 11.1 Q 10 1920 Antwerp
## 28 3 Giorgio Croci Italy 11.3 10 1920 Antwerp
## 29 1 Jack Oosterlaak South Africa 11.0 Q 11 1920 Antwerp
## 30 2 George Davidson New Zealand 11.1 Q 11 1920 Antwerp
## 31 1 Jackson Scholz United States 10.8 Q 12 1920 Antwerp
## 32 2 Marinus Sørensen Denmark 11.2 Q 12 1920 Antwerp
## 33 1 Harry Edward Great Britain 10.8 Q Quarter Final 1920 Antwerp
## 34 2 Loren Murchison United States 10.9 Q Quarter Final 1920 Antwerp
## 35 3 René Mourlon France 11.0 Quarter Final 1920 Antwerp
## 36 4 William Hunt Australia 11.0 Quarter Final 1920 Antwerp
## 37 5 Mario Riccobono Italy 11.5 Quarter Final 1920 Antwerp
## 38 1 William Hill Great Britain 11.0 Q Quarter Final 1920 Antwerp
## 39 2 Félix Mendizábal Spain 11.1 Q Quarter Final 1920 Antwerp
## 40 1 Charley Paddock United States 10.8 Q Quarter Final 1920 Antwerp
## 41 2 Émile Ali-Khan France 10.9 Q Quarter Final 1920 Antwerp
## 42 3 George Davidson New Zealand 10.9 Quarter Final 1920 Antwerp
## 43 4 Harold Abrahams Great Britain 11.0 Quarter Final 1920 Antwerp
## 44 1 Jackson Scholz United States 10.8 Q Quarter Final 1920 Antwerp
## 45 2 Jack Oosterlaak South Africa 11.0 Q Quarter Final 1920 Antwerp
## 46 3 Josef Imbach Switzerland 11.1 Quarter Final 1920 Antwerp
## 47 4 René Tirard France 11.2 Quarter Final 1920 Antwerp
## 48 5 Alexander Ponton Canada 11.4 Quarter Final 1920 Antwerp
## 49 1 Morris Kirksey United States 10.8 Q Semi Final 1920 Antwerp
## 50 2 Paul Brochart Belgium 10.9 Q Semi Final 1920 Antwerp
## 51 1 Harry Edward Great Britain 10.8 Q Semi Final 1920 Antwerp
## 52 2 Jackson Scholz United States 10.9 Q Semi Final 1920 Antwerp
## 53 3 Morris Kirksey United States 11.0 Q Semi Final 1920 Antwerp
## 54 4 Jack Oosterlaak South Africa 11.0 Semi Final 1920 Antwerp
## 55 1 Charley Paddock United States 11.0 Q Final 1920 Antwerp
## 56 2 Émile Ali-Khan France 11.1 Q Final 1920 Antwerp
## 57 3 Loren Murchison United States 11.2 Q Final 1920 Antwerp
## 58 4 Paul Brochart Belgium 11.3 Final 1920 Antwerp
## 59 5 William Hill Great Britain 11.3 Final 1920 Antwerp
## Host Country
## 1 Belgium
## 2 Belgium
## 3 Belgium
## 4 Belgium
## 5 Belgium
## 6 Belgium
## 7 Belgium
## 8 Belgium
## 9 Belgium
## 10 Belgium
## 11 Belgium
## 12 Belgium
## 13 Belgium
## 14 Belgium
## 15 Belgium
## 16 Belgium
## 17 Belgium
## 18 Belgium
## 19 Belgium
## 20 Belgium
## 21 Belgium
## 22 Belgium
## 23 Belgium
## 24 Belgium
## 25 Belgium
## 26 Belgium
## 27 Belgium
## 28 Belgium
## 29 Belgium
## 30 Belgium
## 31 Belgium
## 32 Belgium
## 33 Belgium
## 34 Belgium
## 35 Belgium
## 36 Belgium
## 37 Belgium
## 38 Belgium
## 39 Belgium
## 40 Belgium
## 41 Belgium
## 42 Belgium
## 43 Belgium
## 44 Belgium
## 45 Belgium
## 46 Belgium
## 47 Belgium
## 48 Belgium
## 49 Belgium
## 50 Belgium
## 51 Belgium
## 52 Belgium
## 53 Belgium
## 54 Belgium
## 55 Belgium
## 56 Belgium
## 57 Belgium
## 58 Belgium
## 59 Belgiumggplot(atl_men_100m_all, aes(Time))+
geom_boxplot()+
geom_boxplot(data = hel_men_100m_all)+
geom_boxplot(data = ant_men_100m_all)+
coord_flip()+
theme_minimal()+
scale_y_continuous(labels = NULL)+
scale_x_continuous(limits = c(9.5,12.5))+
facet_wrap(~Year)## Warning: Removed 1 rows containing non-finite values (stat_boxplot).
ggplot(atl_men_100m_all, aes(Time, Year))+
geom_boxplot()+
geom_boxplot(data = hel_men_100m_all)+
geom_boxplot(data = ant_men_100m_all)+
coord_flip()+
theme_minimal()+
scale_x_continuous(limits = c(9.5,12.5))## Warning: Removed 1 rows containing non-finite values (stat_boxplot).
mens_100m_atlhelant <- bind_rows(atl_men_100m_all, hel_men_100m_all, ant_men_100m_all)
mens_100m_atlhelant %>%
group_by(Year, `Host City`)%>%
summarize(mean(Time), median(Time), min(Time), max(Time), sd(Time))%>%
arrange(Year)## `summarise()` has grouped output by 'Year'. You can override using the `.groups` argument.## # A tibble: 3 × 7
## # Groups: Year [3]
## Year `Host City` `mean(Time)` `median(Time)` `min(Time)` `max(Time)`
## <dbl> <chr> <dbl> <dbl> <dbl> <dbl>
## 1 1920 Antwerp 11.1 11 10.8 11.8
## 2 1952 Helsinki 11.1 11.1 10.6 12.2
## 3 1996 Atlanta 10.5 10.4 9.93 22.7
## # … with 1 more variable: sd(Time) <dbl>