Are humans getting faster? Or is it that more are participating?
100m Mens and Womens races in the Olympics over the last 100 years
Adidas, established in Herzogenaurach, Germany in 1949. Founded by Adolf “Adi” Dassler and brother Rudolf they developed spiked running shoes (spikes) for multiple athletic events. To enhance the quliaty of spiked athletic footwear, he transitioned from a previous model of heavy metal spikes to utilizing canvas and rubber. 1936 they convinced sprinter Jesse Owens to use the hand made spikes at the 1936 Summer Olympics (received 4 gold medals)
Nike, established in Eugene, OR 1964. Originally known as “Blue Ribbon Sports (BRS)” founded at U of O track athlete Phil Knight and his coach Bill Bowerman. The company initially operated in Eugene, OR as a distributor for Japanese shoe maker Onitsuka Tiger, making most sales at track meets out of Knights car. Otis Davis, 1960 Olympic gold medalist, claims Bowerman made the first pair of Nike shoes for him contradicting a claim they were made for Phil Knight.
Reebok, established in Bolton, UK in 1958 - In 1895 Joseph William Foster designed earliest spiked running shoes in the beginning. Opened a small factory called Olympic Works and became famous for “running pumps”. The company began distributing shoes across the Union Jack flag worn by British athletes. They were made amous by 100m champion Harold Abrahams in the 1924 Paris Olympics (Chariots of Fire). 1958 founded “Reebok” (after a type of African antelope)
atl<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1996_Summer_Olympics")
tables<-atl%>%html_table(fill=TRUE)
atl_men<-tables[[2]]
atl_women<-tables[[3]]
atl_men_yr<- add_column(atl_men,"Year"=1996, "Host City"="Atlanta", "Host Country"="USA")%>%relocate("Year", "Host City","Host Country")
atl_women_yr<- add_column(atl_women,"Year"=1996,"Host City"="Atlanta","Host Country"="USA")%>%relocate("Year", "Host City","Host Country")
head(atl_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1996 Atlanta USA 100 … Dono… 9.84… Frank… 9.89 Ato B… 9.90
## 2 1996 Atlanta USA 200 … Mich… 19.3… Frank… 19.68… Ato B… 19.80
## 3 1996 Atlanta USA 400 … Mich… 43.4… Roger… 44.41 Davis… 44.53
## 4 1996 Atlanta USA 800 … Vebj… 1:42… Hezek… 1:42.… Fred … 1:42.…
## 5 1996 Atlanta USA 1500… Nour… 3:35… Fermí… 3:36.… Steph… 3:36.…
## 6 1996 Atlanta USA 5000… Vénu… 13:0… Paul … 13:08… Khali… 13:08…
head(atl_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1996 Atlanta USA 100 … Gail… 10.94 Merle… 10.94 Gwen … 10.96
## 2 1996 Atlanta USA 200 … Mari… 22.12 Merle… 22.24 Mary … 22.38
## 3 1996 Atlanta USA 400 … Mari… 48.2… Cathy… 48.63 Falil… 49.10
## 4 1996 Atlanta USA 800 … Svet… 1:57… Ana F… 1:58.… Maria… 1:58.…
## 5 1996 Atlanta USA 1500… Svet… 4:00… Gabri… 4:01.… There… 4:03.…
## 6 1996 Atlanta USA 5000… Wang… 14:5… Pauli… 15:03… Rober… 15:07…
syd<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2000_Summer_Olympics")
tables<-syd%>%html_table(fill=TRUE)
syd_men<-tables[[3]]
syd_women<-tables[[4]]
syd_men_yr<- add_column(syd_men,"Year"=2000,"Host City"="Sydney", "Host Country"="Australia")%>%relocate("Year", "Host City","Host Country")
syd_women_yr<- add_column(syd_women,"Year"=2000,"Host City"="Atlanta", "Host Country"="USA")%>%relocate("Year", "Host City","Host Country")
head(syd_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2000 Atlanta USA 100 … Not … Not … Ekate… 11.12 Merle… 11.19
## 2 2000 Atlanta USA 100 … Not … Not … Tayna… 11.18 Merle… 11.19
## 3 2000 Atlanta USA 200 … Paul… 22.27 Susan… 22.28… Bever… 22.35
## 4 2000 Atlanta USA 400 … Cath… 49.11 Lorra… 49.58 Katha… 49.72
## 5 2000 Atlanta USA 800 … Mari… 1:56… Steph… 1:56.… Kelly… 1:56.…
## 6 2000 Atlanta USA 1500… Nour… 4:05… Viole… 4:05.… Gabri… 4:05.…
head(syd_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2000 Sydney Australia 100 … Maur… 9.87 Ato B… 9.99 Obade… 10.04
## 2 2000 Sydney Australia 200 … Kons… 20.09 Darre… 20.14 Ato B… 20.20
## 3 2000 Sydney Australia 400 … Mich… 43.84 Alvin… 44.40 Greg … 44.70
## 4 2000 Sydney Australia 800 … Nils… 1:45… Wilso… 1:45.… Djabi… 1:45.…
## 5 2000 Sydney Australia 1500… Noah… 3:32… Hicha… 3:32:… Berna… 3:32.…
## 6 2000 Sydney Australia 5000… Mill… 13:3… Ali S… 13:36… Brahi… 13:36…
ath<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2004_Summer_Olympics")
tables<-ath%>%html_table(fill=TRUE)
ath_men<-tables[[3]]
ath_women<-tables[[4]]
ath_men_yr<- add_column(ath_men,"Year"=2004,"Host City"="Athens", "Host Country"="Greece")%>%relocate("Year", "Host City","Host Country")
ath_women_yr<- add_column(ath_women,"Year"=2004,"Host City"="Athens", "Host Country"="Greece")
head(ath_women_yr)
## # A tibble: 6 × 10
## Event Gold Gold Silver Silver Bronze Bronze Year `Host City` `Host Country`
## <chr> <chr> <chr> <chr> <chr> <chr> <chr> <dbl> <chr> <chr>
## 1 100 … Yuli… 10.93 Laury… 10.96 Veron… 10.97 2004 Athens Greece
## 2 200 … Vero… 22.05 Allys… 22.18 Debbi… 22.30 2004 Athens Greece
## 3 400 … Toni… 49.41 Ana G… 49.56 Natal… 49.89 2004 Athens Greece
## 4 800 … Kell… 1:56… Hasna… 1:56.… Jolan… 1:56.… 2004 Athens Greece
## 5 1500… Kell… 3:57… Tatya… 3:58.… Maria… 3:58.… 2004 Athens Greece
## 6 5000… Mese… 14:4… Isabe… 14:48… Tirun… 14:51… 2004 Athens Greece
head(ath_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2004 Athens Greece 100 … Just… 9.85 Franc… 9.86 … Mauri… 9.87
## 2 2004 Athens Greece 200 … Shaw… 19.79 Berna… 20.01 Justi… 20.03
## 3 2004 Athens Greece 400 … Jere… 44.00 Otis … 44.16 Derri… 44.42
## 4 2004 Athens Greece 800 … Yuri… 1:44… Mbula… 1:44.… Wilso… 1:44.…
## 5 2004 Athens Greece 1500… Hich… 3:34… Berna… 3:34.… Rui S… 3:34.…
## 6 2004 Athens Greece 5000… Hich… 13:1… Kenen… 13:14… Eliud… 13:15…
bej<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2008_Summer_Olympics")
tables<-bej%>%html_table(fill=TRUE)
bej_men<-tables[[4]]
bej_women<-tables[[5]]
bej_men_yr<- add_column(bej_men,"Year"=2008,"Host City"="Beijing", "Host Country"="China")%>% relocate("Year", "Host City", "Host Country")
bej_women_yr<- add_column(bej_women,"Year"=2008,"Host City"="Beijing", "Host Country"="China")%>% relocate("Year", "Host City", "Host Country")
head(bej_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2008 Beijing China 100 … Shel… 10.78 Shero… 10.98 Not a… Not a…
## 2 2008 Beijing China 200 … Vero… 21.74 Allys… 21.93 Kerro… 22.00
## 3 2008 Beijing China 400 … Chri… 49.62 Sheri… 49.69 Sanya… 49.93
## 4 2008 Beijing China 800 … Pame… 1:54… Janet… 1:56.… Hasna… 1:56.…
## 5 2008 Beijing China 1500… Nanc… 4:00… Iryna… 4:01.… Natal… 4:01.…
## 6 2008 Beijing China 5000… Tiru… 15:4… Meser… 15:44… Sylvi… 15:44…
head(bej_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2008 Beijing China 100 … Usai… 9.69… Richa… 9.89 Walte… 9.91
## 2 2008 Beijing China 200 … Usai… 19.3… Shawn… 19.96 Walte… 19.98
## 3 2008 Beijing China 400 … LaSh… 43.75 Jerem… 44.74 David… 44.80
## 4 2008 Beijing China 800 … Wilf… 1:44… Ismai… 1:44.… Alfre… 1:44.…
## 5 2008 Beijing China 1500… Asbe… 3:33… Nicho… 3:34.… Mehdi… 3:34.…
## 6 2008 Beijing China 5000… Kene… 12:5… Eliud… 13:02… Edwin… 13:06…
lon_12<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2012_Summer_Olympics")
tables<-lon_12%>%html_table(fill=TRUE)
lon_12_men<-tables[[7]]
lon_12_women<-tables[[8]]
lon_12_men_yr<- add_column(lon_12_men,"Year"=2012,"Host City"="London", "Host Country"="Great Britain")%>% relocate("Year", "Host City", "Host Country")
lon_12_women_yr<- add_column(lon_12_women,"Year"=2012,"Host City"="London", "Host Country"="Great Britain")%>% relocate("Year", "Host City", "Host Country")
head(lon_12_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2012 London Great Britain 100 … Shel… 10.75 Carme… 10.78 Veron… 10.81
## 2 2012 London Great Britain 200 … Ally… 21.88 Shell… 22.09 Carme… 22.14
## 3 2012 London Great Britain 400 … Sany… 49.55 Chris… 49.70 DeeDe… 49.72
## 4 2012 London Great Britain 800 … Cast… 1:57… Ekate… 1:57.… Pamel… 1:57.…
## 5 2012 London Great Britain 1500… Mary… 4:10… Tatya… 4:10.… Abeba… 4:11.…
## 6 2012 London Great Britain 5000… Mese… 15:0… Vivia… 15:04… Tirun… 15:05…
head(lon_12_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2012 London Great Britain 100 … Usai… 9.63… Yohan… 9.75 Justi… 9.79
## 2 2012 London Great Britain 200 … Usai… 19.32 Yohan… 19.44 Warre… 19.84
## 3 2012 London Great Britain 400 … Kira… 43.94 Lugue… 44.46 Lalon… 44.52
## 4 2012 London Great Britain 800 … Davi… 1:40… Nijel… 1:41.… Timot… 1:42.…
## 5 2012 London Great Britain 1500… Taou… 3:34… Leone… 3:34.… Abdal… 3:35.…
## 6 2012 London Great Britain 5000… Mo F… 13:4… Dejen… 13:41… Thoma… 13:42…
rio<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2016_Summer_Olympics")
tables<-rio%>%html_table(fill=TRUE)
rio_men<-tables[[6]]
rio_women<-tables[[7]]
rio_men_yr<- add_column(rio_men,"Year"=2016,"Host City" ="Rio de Janeiro", "Host Country"="Brazil")%>% relocate("Year", "Host City", "Host Country")
rio_women_yr<- add_column(rio_women,"Year"=2016,"Host City" ="Rio de Janeiro", "Host Country"="Brazil")%>% relocate("Year", "Host City", "Host Country")
head(rio_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Rio de Jan… Brazil 100 … Elai… 10.71 Tori … 10.83 Shell… 10.86
## 2 2016 Rio de Jan… Brazil 200 … Elai… 21.78 Dafne… 21.88 Tori … 22.15
## 3 2016 Rio de Jan… Brazil 400 … Shau… 49.44 Allys… 49.51 Sheri… 49.85
## 4 2016 Rio de Jan… Brazil 800 … Cast… 1:55… Franc… 1:56.… Marga… 1:56.…
## 5 2016 Rio de Jan… Brazil 1500… Fait… 4:08… Genze… 4:10.… Jenni… 4:10.…
## 6 2016 Rio de Jan… Brazil 5000… Vivi… 14:2… Helle… 14:29… Almaz… 14:33…
head(rio_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Rio de Jan… Brazil 100 … Usai… 9.81 Justi… 9.89 Andre… 9.91
## 2 2016 Rio de Jan… Brazil 200 … Usai… 19.78 Andre… 20.02 Chris… 20.12
## 3 2016 Rio de Jan… Brazil 400 … Wayd… 43.0… Kiran… 43.76 LaSha… 43.85
## 4 2016 Rio de Jan… Brazil 800 … Davi… 1:42… Taouf… 1:42.… Clayt… 1:42.…
## 5 2016 Rio de Jan… Brazil 1500… Matt… 3:50… Taouf… 3:50.… Nick … 3:50.…
## 6 2016 Rio de Jan… Brazil 5000… Mo F… 13:0… Paul … 13:03… Hagos… 13:04…
bar<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1992_Summer_Olympics")
tables<-bar%>%html_table(fill=TRUE)
bar_men<-tables[[2]]
bar_women<-tables[[3]]
bar_men_yr<- add_column(bar_men,"Year"=1992,"Host City" ="Barcelona", "Host Country"="Spain")%>% relocate("Year", "Host City", "Host Country")
bar_women_yr<- add_column(bar_women,"Year"=1992,"Host City" ="Barcelona", "Host Country"="Spain")%>% relocate("Year", "Host City", "Host Country")
head(bar_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1992 Barcelona Spain 100 … Gail… 10.82 Julie… 10.83 Irina… 10.84
## 2 1992 Barcelona Spain 200 … Gwen… 21.81 Julie… 22.02 Merle… 22.09
## 3 1992 Barcelona Spain 400 … Mari… 48.83 Olga … 49.05 Ximen… 49.64
## 4 1992 Barcelona Spain 800 … Elle… 1:55… Liliy… 1:55:… Ana F… 1:56.…
## 5 1992 Barcelona Spain 1500… Hass… 3:55… Lyudm… 3:56.… Qu Yu… 3:57.…
## 6 1992 Barcelona Spain 3000… Yele… 8:46… Tetya… 8:46.… Angel… 8:47.…
head(bar_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1992 Barcelona Spain 100 … Linf… 9.96 Frank… 10.02 Denni… 10.04
## 2 1992 Barcelona Spain 200 … Mich… 20.01 Frank… 20.13 Micha… 20.38
## 3 1992 Barcelona Spain 400 … Quin… 43.5… Steve… 44.21 Samso… 44.24
## 4 1992 Barcelona Spain 800 … Will… 1:43… Nixon… 1:43.… Johnn… 1:43.…
## 5 1992 Barcelona Spain 1500… Ferm… 3:40… Rachi… 3:40.… Moham… 3:40.…
## 6 1992 Barcelona Spain 5000… Diet… 13:1… Paul … 13:12… Fita … 13:13…
seo<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1988_Summer_Olympics")
tables<-seo%>%html_table(fill=TRUE)
seo_men<-tables[[2]]
seo_women<-tables[[3]]
seo_men_yr<- add_column(seo_men,"Year"=1988,"Host City" ="Seoul", "Host Country"="South Korea")%>% relocate("Year", "Host City", "Host Country")
seo_women_yr<- add_column(seo_women,"Year"=1988,"Host City" ="Seoul", "Host Country"="South Korea")%>% relocate("Year", "Host City", "Host Country")
head(seo_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1988 Seoul South Korea 100 … Flor… 10.5… Evely… 10.83 Heike… 10.85
## 2 1988 Seoul South Korea 200 … Flor… 21.3… Grace… 21.72 Heike… 21.95
## 3 1988 Seoul South Korea 400 … Olga… 48.65 Petra… 49.45 Olga … 49.90
## 4 1988 Seoul South Korea 800 … Sigr… 1:56… Chris… 1:56.… Kim G… 1:56.…
## 5 1988 Seoul South Korea 1500… Paul… 3:53… Laimu… 4:00.… Tetya… 4:00.…
## 6 1988 Seoul South Korea 3000… Tety… 8:26… Paula… 8:27.… Yvonn… 8:29.…
head(seo_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1988 Seoul South Korea 100 … Carl… 9.92… Linfo… 9.97(… Calvi… 9.99
## 2 1988 Seoul South Korea 200 … Joe … 19.75 Carl … 19.79 Robso… 20.04
## 3 1988 Seoul South Korea 400 … Stev… 43.87 Butch… 43.93 Danny… 44.09
## 4 1988 Seoul South Korea 800 … Paul… 1:43… Joaqu… 1:43.… Saïd … 1:44.…
## 5 1988 Seoul South Korea 1500… Pete… 3:35… Peter… 3:36.… Jens-… 3:36.…
## 6 1988 Seoul South Korea 5000… John… 13:1… Diete… 13:15… Hansj… 13:15…
los<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1984_Summer_Olympics")
tables<-los%>%html_table(fill=TRUE)
los_men<-tables[[2]]
los_women<-tables[[3]]
los_men_yr<- add_column(los_men,"Year"=1984,"Host City" ="Los Angeles", "Host Country"="USA")%>% relocate("Year", "Host City", "Host Country")
los_women_yr<- add_column(los_women,"Year"=1984,"Host City" ="Los Angeles", "Host Country"="USA")%>% relocate("Year", "Host City", "Host Country")
head(los_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1984 Los Angeles USA 100 … Evel… 10.97 Alice… 11.13 Merle… 11.16
## 2 1984 Los Angeles USA 200 … Vale… 21.81 Flore… 22.04 Merle… 22.09
## 3 1984 Los Angeles USA 400 … Vale… 48.83 Chand… 49.05 Kathy… 49.42
## 4 1984 Los Angeles USA 800 … Doin… 1:57… Kim G… 1:58.… Fiţa … 1:58.…
## 5 1984 Los Angeles USA 1500… Gabr… 4:03… Doina… 4:03.… Maric… 4:04.…
## 6 1984 Los Angeles USA 3000… Mari… 8:35… Wendy… 8:39.… Lynn … 8:42.…
head(los_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1984 Los Angeles USA 100 … Carl… 9.99 Sam G… 10.19 Ben J… 10.22
## 2 1984 Los Angeles USA 200 … Carl… 19.8… Kirk … 19.96 Thoma… 20.26
## 3 1984 Los Angeles USA 400 … Alon… 44.27 Gabri… 44.54 Anton… 44.71
## 4 1984 Los Angeles USA 800 … Joaq… 1:43… Sebas… 1:43.… Earl … 1:43.…
## 5 1984 Los Angeles USA 1500… Seba… 3:32… Steve… 3:33.… José … 3:34.…
## 6 1984 Los Angeles USA 5000… Saïd… 13:0… Marku… 13:07… Antón… 13:09…
mos<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1980_Summer_Olympics")
tables<-mos%>%html_table(fill=TRUE)
mos_men<-tables[[3]]
mos_women<-tables[[4]]
mos_men_yr<- add_column(mos_men,"Year"=1980,"Host City" ="Moscow", "Host Country"="Russia")%>% relocate("Year", "Host City", "Host Country")
mos_women_yr<- add_column(mos_women,"Year"=1980,"Host City" ="Moscow", "Host Country"="Russia")%>% relocate("Year", "Host City", "Host Country")
head(mos_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1980 Moscow Russia 100 … Lyud… 11.06 Marli… 11.07 Ingri… 11.14
## 2 1980 Moscow Russia 200 … Bärb… 22.0… Natal… 22.19 Merle… 22.20
## 3 1980 Moscow Russia 400 … Mari… 48.8… Jarmi… 49.46 Chris… 49.66
## 4 1980 Moscow Russia 800 … Nadi… 1:53… Olga … 1:54.… Tatya… 1:55.…
## 5 1980 Moscow Russia 1500… Taty… 3:56… Chris… 3:57.… Nadiy… 3:59.…
## 6 1980 Moscow Russia 100 … Vera… 12.5… Johan… 12.63 Lucyn… 12.65
head(mos_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1980 Moscow Russia 100 … Alla… 10.25 Silvi… 10.25 Petar… 10.39
## 2 1980 Moscow Russia 200 … Piet… 20.19 Allan… 20.21 Don Q… 20.29
## 3 1980 Moscow Russia 400 … Vikt… 44.60 Rick … 44.84 Frank… 44.87
## 4 1980 Moscow Russia 800 … Stev… 1:45… Sebas… 1:45.… Nikol… 1:45.…
## 5 1980 Moscow Russia 1500… Seba… 3:38… Jürge… 3:38.… Steve… 3:38.…
## 6 1980 Moscow Russia 5000… Miru… 13:2… Sulei… 13:21… Kaarl… 13:22…
mon<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1976_Summer_Olympics")
tables<-mon%>%html_table(fill=TRUE)
mon_men<-tables[[1]]
mon_women<-tables[[2]]
mon_men_yr<- add_column(mon_men,"Year"=1976,"Host City" ="Montreal", "Host Country"="Canada")%>% relocate("Year", "Host City", "Host Country")
mon_women_yr<- add_column(mon_women,"Year"=1976,"Host City" ="Montreal", "Host Country"="Canada")%>% relocate("Year", "Host City", "Host Country")
head(mon_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1976 Montreal Canada 100 … Anne… 11.08 Renat… 11.13 Inge … 11.17
## 2 1976 Montreal Canada 200 … Bärb… 22.3… Anneg… 22.39 Renat… 22.47
## 3 1976 Montreal Canada 400 … Iren… 49.2… Chris… 50.51 Ellen… 50.55
## 4 1976 Montreal Canada 800 … Taty… 1:54… Nikol… 1:55.… Elfi … 1:55.…
## 5 1976 Montreal Canada 1500… Taty… 4:05… Gunhi… 4:06.… Ulrik… 4:06.…
## 6 1976 Montreal Canada 100 … Joha… 12.77 Tatia… 12.78 Natal… 12.80
head(mon_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1976 Montreal Canada 100 … Hase… 10.06 Don Q… 10.08 Valer… 10.14
## 2 1976 Montreal Canada 200 … Don … 20.23 Milla… 20.29 Dwayn… 20.43
## 3 1976 Montreal Canada 400 … Albe… 44.26 Fred … 44.40 Herma… 44.95
## 4 1976 Montreal Canada 800 … Albe… 1:43… Ivo v… 1:43.… Rick … 1:44.…
## 5 1976 Montreal Canada 1500… John… 3:39… Ivo v… 3:39.… Paul-… 3:39.…
## 6 1976 Montreal Canada 5000… Lass… 13:2… Dick … 13:25… Klaus… 13:25…
mun<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1972_Summer_Olympics")
tables<-mun%>%html_table(fill=TRUE)
mun_men<-tables[[1]]
mun_women<-tables[[2]]
mun_men_yr<- add_column(mun_men,"Year"=1972,"Host City" ="Munich", "Host Country"="Germany")%>% relocate("Year", "Host City", "Host Country")
mun_women_yr<- add_column(mun_women,"Year"=1972,"Host City" ="Munich", "Host Country"="Germany")%>% relocate("Year", "Host City", "Host Country")
head(mun_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1972 Munich Germany 100 … Rena… 11.0… Raele… 11.23 Silvi… 11.24
## 2 1972 Munich Germany 200 … Rena… 22.4… Raele… 22.45 Irena… 22.74
## 3 1972 Munich Germany 400 … Moni… 51.08 Rita … 51.21 Kathy… 51.64
## 4 1972 Munich Germany 800 … Hild… 1:58… Nijol… 1:58.… Gunhi… 1:59.…
## 5 1972 Munich Germany 1500… Ludm… 4:01… Gunhi… 4:02.… Paola… 4:02.…
## 6 1972 Munich Germany 100 … Anne… 12.5… Valer… 12.84 Karin… 12.90
head(mun_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1972 Munich Germany 100 … Vale… 10.14 Rober… 10.24 Lenno… 10.33
## 2 1972 Munich Germany 200 … Vale… 20.00 Larry… 20.19 Pietr… 20.30
## 3 1972 Munich Germany 400 … Vinc… 44.66 Wayne… 44.80 Juliu… 44.92
## 4 1972 Munich Germany 800 … Dave… 1:45… Yevhe… 1:45.… Mike … 1:46.…
## 5 1972 Munich Germany 1500… Pekk… 3:36… Kipch… 3:36.… Rod D… 3:37.…
## 6 1972 Munich Germany 5000… Lass… 13:2… Moham… 13:27… Ian S… 13:27…
mex<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1968_Summer_Olympics")
tables<-mex%>%html_table(fill=TRUE)
mex_men<-tables[[2]]
mex_women<-tables[[3]]
mex_men_yr<- add_column(mex_men,"Year"=1968,"Host City" ="Mexico City", "Host Country"="Mexico")%>% relocate("Year", "Host City", "Host Country")
mex_women_yr<- add_column(mex_women,"Year"=1968,"Host City" ="Mexico City", "Host Country"="Mexico")%>% relocate("Year", "Host City", "Host Country")
head(mex_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1968 Mexico City Mexico 100 … Wyom… 11.0… Barba… 11.15 Irena… 11.19
## 2 1968 Mexico City Mexico 200 … Iren… 22.5… Raele… 22.74 Jenny… 22.88
## 3 1968 Mexico City Mexico 400 … Cole… 52.03 Lilli… 52.12 Natal… 52.25
## 4 1968 Mexico City Mexico 800 … Made… 2:00… Ilona… 2:02.… Maria… 2:02.…
## 5 1968 Mexico City Mexico 80 m… Maur… 10.3… Pam K… 10.46 Chi C… 10.51
## 6 1968 Mexico City Mexico 4×10… Unit… 42.8… Cuba … 43.36 Sovie… 43.41
head(mex_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1968 Mexico City Mexico 100 … Jim … 9.95… Lenno… 10.04 Charl… 10.07
## 2 1968 Mexico City Mexico 200 … Tomm… 19.8… Peter… 20.06… John … 20.10
## 3 1968 Mexico City Mexico 400 … Lee … 43.8… Larry… 43.97 Ron F… 44.41
## 4 1968 Mexico City Mexico 800 … Ralp… 1:44… Wilso… 1:44.… Tom F… 1:45.…
## 5 1968 Mexico City Mexico 1500… Kipc… 3:34… Jim R… 3:37.… Bodo … 3:39.…
## 6 1968 Mexico City Mexico 5000… Moha… 14:0… Kipch… 14:05… Nafta… 14:06…
tok<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1964_Summer_Olympics")
tables<-tok%>%html_table(fill=TRUE)
tok_men<-tables[[1]]
tok_women<-tables[[2]]
tok_men_yr<- add_column(tok_men,"Year"=1964,"Host City" ="Tokyo", "Host Country"="Japan")%>% relocate("Year", "Host City", "Host Country")
tok_women_yr<- add_column(tok_women,"Year"=1964,"Host City" ="Tokyo", "Host Country"="Japan")%>% relocate("Year", "Host City", "Host Country")
head(tok_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1964 Tokyo Japan 100 … Wyom… 11.4 Edith… 11.6 Ewa K… 11.6
## 2 1964 Tokyo Japan 200 … Edit… 23.0… Irena… 23.1 Maril… 23.1
## 3 1964 Tokyo Japan 400 … Bett… 52.0… Ann P… 52.2 Judy … 53.4
## 4 1964 Tokyo Japan 800 … Ann … 2:01… Maryv… 2:01.9 Maris… 2:02.8
## 5 1964 Tokyo Japan 80 m… Kari… 10.5 Teres… 10.5 Pam K… 10.6
## 6 1964 Tokyo Japan 4×10… Pola… 43.6… Unite… 43.9 Great… 44.0
head(tok_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1964 Tokyo Japan 100 … Bob … 10.0… Enriq… 10.2 Harry… 10.2
## 2 1964 Tokyo Japan 200 … Henr… 20.3… Paul … 20.5 Edwin… 20.6
## 3 1964 Tokyo Japan 400 … Mike… 45.1 Wende… 45.2 Andrz… 45.6
## 4 1964 Tokyo Japan 800 … Pete… 1:45… Bill … 1:45.6 Wilso… 1:45.9
## 5 1964 Tokyo Japan 1500… Pete… 3:38… Josef… 3:39.6 John … 3:39.6
## 6 1964 Tokyo Japan 5000… Bob … 13:4… Haral… 13:49… Bill … 13:49…
rom<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1960_Summer_Olympics")
tables<-rom%>%html_table(fill=TRUE)
rom_men<-tables[[3]]
rom_women<-tables[[4]]
rom_men_yr<- add_column(rom_men,"Year"=1960,"Host City" ="Rome", "Host Country"="Italy")%>% relocate("Year", "Host City", "Host Country")
rom_women_yr<- add_column(rom_women,"Year"=1960,"Host City" ="Rome", "Host Country"="Italy")%>% relocate("Year", "Host City", "Host Country")
head(rom_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1960 Rome Italy 100 … Wilm… 11.0 Dorot… 11.3 Giuse… "11.3"
## 2 1960 Rome Italy 200 … Wilm… 24.0 Jutta… 24.4 Dorot… "24.7"
## 3 1960 Rome Italy 800 … Lyud… 2:04… Brend… 2:04.4 Ursul… "2:05…
## 4 1960 Rome Italy 80 m… Irin… 10.8 Carol… 10.9 Gisel… "11.0"
## 5 1960 Rome Italy 4×10… Unit… 44.5 Unite… 44.8 Polan… "45.0"
## 6 1960 Rome Italy High… Iola… 1.85… Jaros… 1.71 m none … ""
head(rom_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1960 Rome Italy 100 … Armi… 10.2… Dave … 10.2(… Peter… 10.3
## 2 1960 Rome Italy 200 … Livi… 20.5… Leste… 20.6 Abdou… 20.7
## 3 1960 Rome Italy 400 … Otis… 44.9… Carl … 44.9(… Malco… 45.5
## 4 1960 Rome Italy 800 … Pete… 1:46… Roger… 1:46.5 Georg… 1:47.1
## 5 1960 Rome Italy 1500… Herb… 3:35… Miche… 3:38.4 Istvá… 3:39.2
## 6 1960 Rome Italy 5000… Murr… 13:4… Hans … 13:44… Kazim… 13:44…
mel<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1956_Summer_Olympics")
tables<-mel%>%html_table(fill=TRUE)
mel_men<-tables[[2]]
mel_women<-tables[[3]]
mel_men_yr<- add_column(mel_men,"Year"=1956,"Host City" ="Melbourne", "Host Country"="Australia")%>% relocate("Year", "Host City", "Host Country")
mel_women_yr<- add_column(mel_women,"Year"=1956,"Host City" ="Melbourne", "Host Country"="Australia")%>% relocate("Year", "Host City", "Host Country")
head(mel_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1956 Melbourne Australia 100 … Bett… 11.5 Chris… 11.7 Marle… "11.7"
## 2 1956 Melbourne Australia 200 … Bett… 23.4… Chris… 23.7 Marle… "23.8"
## 3 1956 Melbourne Australia 80 m… Shir… 10.7… Gisel… 10.9 Norma… "11.0"
## 4 1956 Melbourne Australia 4 × … Aust… 44.5… Great… 44.7 Unite… "44.9"
## 5 1956 Melbourne Australia High… Mild… 1.76… Thelm… 1.67 m none … ""
## 6 1956 Melbourne Australia Long… Elżb… 6.35… Willy… 6.09 m Nadez… "6.07…
head(mel_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1956 Melbourne Australia 100 … Bobb… 10.5 Thane… 10.5 Hecto… 10.6
## 2 1956 Melbourne Australia 200 … Bobb… 20.6… Andy … 20.7 Thane… 20.9
## 3 1956 Melbourne Australia 400 … Char… 46.7 Karl-… 46.8 Voitt… 47.0
## 4 1956 Melbourne Australia 400 … Char… 46.7 Karl-… 46.8 Ardal… 47.0
## 5 1956 Melbourne Australia 800 … Tom … 1:47… Derek… 1:47.8 Audun… 1:48.1
## 6 1956 Melbourne Australia 1500… Ron … 3:41… Klaus… 3:42.0 John … 3:42.0
hel<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1952_Summer_Olympics")
tables<-hel%>%html_table(fill=TRUE)
hel_men<-tables[[2]]
hel_women<-tables[[3]]
hel_men_yr<- add_column(hel_men,"Year"=1952,"Host City" ="Helsinki", "Host Country"="Finland")%>% relocate("Year", "Host City", "Host Country")
hel_women_yr<- add_column(hel_women,"Year"=1952,"Host City" ="Helsinki", "Host Country"="Finland")%>% relocate("Year", "Host City", "Host Country")
head(hel_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1952 Helsinki Finland 100 … Marj… 11.5 Daphn… 11.8 Shirl… 11.9
## 2 1952 Helsinki Finland 200 … Marj… 23.7 Berth… 24.2 Nadez… 24.2
## 3 1952 Helsinki Finland 80 m… Shir… 10.9 Mariy… 11.1 Maria… 11.1
## 4 1952 Helsinki Finland 4 × … Unit… 45.9 Germa… 45.9 Great… 46.2
## 5 1952 Helsinki Finland High… Esth… 1.67… Sheil… 1.65 m Aleks… 1.63 m
## 6 1952 Helsinki Finland Long… Yvet… 6.24… Aleks… 6.14 m Shirl… 5.92 m
head(hel_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1952 Helsinki Finland 100 … Lind… 10.4 Herb … 10.4 McDon… 10.4
## 2 1952 Helsinki Finland 200 … Andy… 20.7 Thane… 20.8 James… 20.8
## 3 1952 Helsinki Finland 400 … Geor… 45.9 Herb … 45.9 Ollie… 46.8
## 4 1952 Helsinki Finland 800 … Mal … 1:49… Arthu… 1:49.4 Heinz… 1:49.7
## 5 1952 Helsinki Finland 1500… Josy… 3:45… Bob M… 3:45.2 Werne… 3:45.4
## 6 1952 Helsinki Finland 5000… Emil… 14:0… Alain… 14:07… Herbe… 14:08…
lon_48<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1948_Summer_Olympics")
tables<-lon_48%>%html_table(fill=TRUE)
lon_48_men<-tables[[2]]
lon_48_women<-tables[[3]]
lon_48_men_yr<- add_column(lon_48_men,"Year"=1948,"Host City" ="London", "Host Country"="Great Britain")%>% relocate("Year", "Host City", "Host Country")
lon_48_women_yr<- add_column(lon_48_women,"Year"=1948,"Host City" ="London", "Host Country"="Great Britain")%>% relocate("Year", "Host City", "Host Country")
head(lon_48_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1948 London Great Britain 100 … Fann… 11.9 Dorot… 12.2 Shirl… 12.2
## 2 1948 London Great Britain 200 … Fann… 24.4 Audre… 25.1 Audre… 25.2
## 3 1948 London Great Britain 80 m… Fann… 11.2 Maure… 11.2 Shirl… 11.4
## 4 1948 London Great Britain 4 × … Neth… 47.5 Austr… 47.6 Canad… 47.8
## 5 1948 London Great Britain High… Alic… 1.68… Dorot… 1.68 m Miche… 1.61 m
## 6 1948 London Great Britain Long… Olga… 5.69… Noemí… 5.60 m Ann-B… 5.575…
head(lon_48_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1948 London Great Britain 100 … Harr… 10.3 Barne… 10.4 Lloyd… 10.6
## 2 1948 London Great Britain 200 … Mel … 21.1 Barne… 21.1 Lloyd… 21.2
## 3 1948 London Great Britain 400 … Arth… 46.2 Herb … 46.4 Mal W… 46.8
## 4 1948 London Great Britain 800 … Mal … 1:49… Arthu… 1:49.5 Marce… 1:49.8
## 5 1948 London Great Britain 1500… Henr… 3:49… Lenna… 3:50.4 Wim S… 3:50.4
## 6 1948 London Great Britain 5000… Gast… 14:1… Emil … 14:17… Wim S… 14:26…
ber<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1936_Summer_Olympics")
tables<-ber%>%html_table(fill=TRUE)
ber_men<-tables[[2]]
ber_women<-tables[[3]]
ber_men_yr<- add_column(ber_men,"Year"=1936,"Host City" ="Berlin", "Host Country"="Germany")%>% relocate("Year", "Host City", "Host Country")
ber_women_yr<- add_column(ber_women,"Year"=1936,"Host City" ="Berlin", "Host Country"="Germany")%>% relocate("Year", "Host City", "Host Country")
head(ber_women_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Games Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1936 Berlin Germany 100 … Hele… 11.5 Stani… 11.7 Käthe… 11.9
## 2 1936 Berlin Germany 80 m… Treb… 11.7 Anni … 11.7 Betty… 11.7
## 3 1936 Berlin Germany 4 × … Unit… 46.9 Great… 47.6 Canad… 47.8
## 4 1936 Berlin Germany High… Ibol… 1.60… Dorot… 1.60 m Elfri… 1.60 m
## 5 1936 Berlin Germany Disc… Gise… 47.6… Jadwi… 46.22… Paula… 39.80…
## 6 1936 Berlin Germany Jave… Till… 45.1… Luise… 43.29… Maria… 41.80…
head(ber_men_yr)
## # A tibble: 6 × 10
## Year `Host City` `Host Country` Event Gold Gold Silver Silver Bronze Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1936 Berlin Germany 100 … Jess… 10.3 Ralph… 10.4 Tinus… 10.5
## 2 1936 Berlin Germany 200 … Jess… 20.7 Mack … 21.1 Tinus… 21.3
## 3 1936 Berlin Germany 400 … Arch… 46.5 Godfr… 46.7 James… 46.8
## 4 1936 Berlin Germany 800 … John… 1:52… Mario… 1:53.3 Phil … 1:53.6
## 5 1936 Berlin Germany 1500… Jack… 3:47… Glenn… 3:48.4 Luigi… 3:49.2
## 6 1936 Berlin Germany 5000… Gunn… 14:2… Lauri… 14:25… Henry… 14:29…
No times, medals and countries only
ams<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1928_Summer_Olympics")
tables<-ams%>%html_table(fill=TRUE)
ams_men<-tables[[3]]
ams_women<-tables[[4]]
ams_men_yr<- add_column(ams_men,"Year"=1928,"Host City" ="Amesterdam", "Host Country"="Netherlands")%>% relocate("Year", "Host City", "Host Country")
ams_women_yr<- add_column(ams_women,"Year"=1928,"Host City" ="Amesterdam", "Host Country"="Netherlands")%>% relocate("Year", "Host City", "Host Country")
head(ams_women_yr)
## # A tibble: 5 × 7
## Year `Host City` `Host Country` Games Gold Silver Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1928 Amesterdam Netherlands 100 met… Betty Robi… Bobbie Rose… Ethel Smit…
## 2 1928 Amesterdam Netherlands 800 met… Lina Radke… Kinue Hitom… Inga Gentz…
## 3 1928 Amesterdam Netherlands 4 × 100… Canada (CA… United Stat… Germany (G…
## 4 1928 Amesterdam Netherlands High ju… Ethel Cath… Lien Gisolf… Mildred Wi…
## 5 1928 Amesterdam Netherlands Discus … Halina Kon… Lillian Cop… Ruth Svedb…
head(ams_men_yr)
## # A tibble: 6 × 7
## Year `Host City` `Host Country` Games Gold Silver Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1928 Amesterdam Netherlands 100 metresdetails Percy W… Jack Lo… Georg L…
## 2 1928 Amesterdam Netherlands 200 metresdetails Percy W… Walter … Helmut …
## 3 1928 Amesterdam Netherlands 400 metresdetails Ray Bar… James B… Joachim…
## 4 1928 Amesterdam Netherlands 800 metresdetails Douglas… Erik By… Hermann…
## 5 1928 Amesterdam Netherlands 1500 metresdetails Harri L… Jules L… Eino Pu…
## 6 1928 Amesterdam Netherlands 5000 metresdetails Ville R… Paavo N… Edvin W…
Mens medals only, no women and no time.
par<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1924_Summer_Olympics")
tables<-par%>%html_table(fill=TRUE)
par_men<-tables[[2]]
par_men_yr<- add_column(par_men,"Year"=1924,"Host City" ="Paris", "Host Country"="France")%>% relocate("Year", "Host City", "Host Country")
head(par_men_yr)
## # A tibble: 6 × 7
## Year `Host City` `Host Country` Event Gold Silver Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1924 Paris France 100 metresdetails Harold … Jackson… Arthur …
## 2 1924 Paris France 200 metresdetails Jackson… Charles… Eric Li…
## 3 1924 Paris France 400 metresdetails Eric Li… Horatio… Guy But…
## 4 1924 Paris France 800 metresdetails Douglas… Paul Ma… Schuyle…
## 5 1924 Paris France 1500 metresdetails Paavo N… Willy S… H. B. S…
## 6 1924 Paris France 5000 metresdetails Paavo N… Ville R… Edvin W…
ant<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1920_Summer_Olympics")
tables<-ant%>%html_table(fill=TRUE)
ant_men<-tables[[2]]
ant_men_yr<- add_column(ant_men,"Year"=1920,"Host City" ="Antwerp", "Host Country"="Belgium")%>% relocate("Year", "Host City", "Host Country")
head(ant_men_yr)
## # A tibble: 6 × 7
## Year `Host City` `Host Country` Event Gold Silver Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1920 Antwerp Belgium 100 metresdetails Charles… Morris … Harry E…
## 2 1920 Antwerp Belgium 200 metresdetails Allen W… Charles… Harry E…
## 3 1920 Antwerp Belgium 400 metresdetails Bevil R… Guy But… Nils En…
## 4 1920 Antwerp Belgium 800 metresdetails Albert … Earl Eb… Bevil R…
## 5 1920 Antwerp Belgium 1500 metresdetails Albert … Philip … Lawrenc…
## 6 1920 Antwerp Belgium 5000 metresdetails Joseph … Paavo N… Eric Ba…
sto<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1912_Summer_Olympics")
tables<-sto%>%html_table(fill=TRUE)
sto_men<-tables[[2]]
sto_men_yr<- add_column(sto_men,"Year"=1912,"Host City" ="Stockholm", "Host Country"="Sweden")%>% relocate("Year", "Host City", "Host Country")
head(sto_men_yr)
## # A tibble: 6 × 7
## Year `Host City` `Host Country` Event Gold Silver Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1912 Stockholm Sweden 100 metresdetails Ralph C… Alvah M… Donald …
## 2 1912 Stockholm Sweden 200 metresdetails Ralph C… Donald … Willie …
## 3 1912 Stockholm Sweden 400 metresdetails Charles… Hanns B… Edward …
## 4 1912 Stockholm Sweden 800 metresdetails Ted Mer… Mel She… Ira Dav…
## 5 1912 Stockholm Sweden 1500 metresdetails Arnold … Abel Ki… Norman …
## 6 1912 Stockholm Sweden 5000 metresdetails Hannes … Jean Bo… George …
lon_08<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1908_Summer_Olympics")
tables<-lon_08%>%html_table(fill=TRUE)
lon_08_men<-tables[[2]]
lon_08_men_yr<- add_column(lon_08_men,"Year"=1908,"Host City" ="London", "Host Country"="Great Britain")%>% relocate("Year", "Host City", "Host Country")
head(lon_08_men_yr)
## # A tibble: 6 × 7
## Year `Host City` `Host Country` Event Gold Silver Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1908 London Great Britain 100 metresdetails Reggie … James R… Robert …
## 2 1908 London Great Britain 200 metresdetails Robert … Robert … Nate Ca…
## 3 1908 London Great Britain 400 metresdetails Wyndham… none aw… none aw…
## 4 1908 London Great Britain 800 metresdetails Mel She… Emilio … Hanns B…
## 5 1908 London Great Britain 1500 metresdetails Mel She… Harold … Norman …
## 6 1908 London Great Britain 5 milesdetails Emil Vo… Edward … John Sv…
stl<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1904_Summer_Olympics")
tables<-stl%>%html_table(fill=TRUE)
stl_men<-tables[[3]]
stl_men_yr<- add_column(stl_men,"Year"=1904,"Host City" ="St Louis", "Host Country"="USA")%>% relocate("Year", "Host City", "Host Country")
head(stl_men_yr)
## # A tibble: 6 × 7
## Year `Host City` `Host Country` Event Gold Silver Bronze
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 1904 St Louis USA 60 metresdetails Archie … William… Fay Mou…
## 2 1904 St Louis USA 100 metresdetails Archie … Nate Ca… William…
## 3 1904 St Louis USA 200 metresdetails Archie … Nate Ca… William…
## 4 1904 St Louis USA 400 metresdetails Harry H… Frank W… Herman …
## 5 1904 St Louis USA 800 metresdetails James L… Howard … Emil Br…
## 6 1904 St Louis USA 1500 metresdetails James L… Frank V… Lacey H…
oly_men<- bind_rows(rio_men_yr,lon_12_men_yr,bej_men_yr,ath_men_yr,syd_men_yr,atl_men_yr,bar_men_yr,seo_men_yr,los_men_yr,mos_men_yr,mon_men_yr,mun_men_yr,mex_men_yr,tok_men_yr,rom_men_yr,mel_men_yr,hel_men_yr,lon_48_men_yr,ber_men_yr,ams_men_yr,par_men_yr,ant_men_yr,sto_men_yr,lon_08_men_yr,stl_men_yr)
oly_men
## # A tibble: 641 × 14
## Year `Host City` `Host Country` Event Gold...5 Gold...6 Silver...7
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Rio de Janeiro Brazil "100 me… "Usain Bol… "9.81" "Justin Ga…
## 2 2016 Rio de Janeiro Brazil "200 me… "Usain Bol… "19.78" "Andre De …
## 3 2016 Rio de Janeiro Brazil "400 me… "Wayde van… "43.03 … "Kirani Ja…
## 4 2016 Rio de Janeiro Brazil "800 me… "David Rud… "1:42.1… "Taoufik M…
## 5 2016 Rio de Janeiro Brazil "1500 m… "Matthew C… "3:50.0… "Taoufik M…
## 6 2016 Rio de Janeiro Brazil "5000 m… "Mo Farah … "13:03.… "Paul Chel…
## 7 2016 Rio de Janeiro Brazil "10,000… "Mo Farah … "27:05.… "Paul Tanu…
## 8 2016 Rio de Janeiro Brazil "" "" "" ""
## 9 2016 Rio de Janeiro Brazil "110 me… "Omar McLe… "13.05" "Orlando O…
## 10 2016 Rio de Janeiro Brazil "400 me… "Kerron Cl… "47.73" "Boniface …
## # … with 631 more rows, and 7 more variables: Silver...8 <chr>,
## # Bronze...9 <chr>, Bronze...10 <chr>, Games <chr>, Gold <chr>, Silver <chr>,
## # Bronze <chr>
oly_women<- bind_rows(rio_women_yr,lon_12_women_yr,bej_women_yr,ath_women_yr,syd_women_yr,atl_women_yr,bar_women_yr,seo_women_yr,los_women_yr,mos_women_yr,mon_women_yr,mun_women_yr,mex_women_yr,tok_women_yr,rom_women_yr,mel_women_yr,hel_women_yr,lon_48_women_yr,ber_women_yr,ams_women_yr)
head(oly_women)
## # A tibble: 6 × 20
## Year `Host City` `Host Country` Event Gold...5 Gold...6 Silver...7 Silver...8
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Rio de Jan… Brazil 100 … Elaine … 10.71 Tori Bowi… 10.83
## 2 2016 Rio de Jan… Brazil 200 … Elaine … 21.78 Dafne Sch… 21.88
## 3 2016 Rio de Jan… Brazil 400 … Shaunae… 49.44 Allyson F… 49.51
## 4 2016 Rio de Jan… Brazil 800 … Caster … 1:55.28… Francine … 1:56.49
## 5 2016 Rio de Jan… Brazil 1500… Faith K… 4:08.92 Genzebe D… 4:10.27
## 6 2016 Rio de Jan… Brazil 5000… Vivian … 14:26.1… Hellen On… 14:29.77
## # … with 12 more variables: Bronze...9 <chr>, Bronze...10 <chr>,
## # Gold...2 <chr>, Gold...3 <chr>, Silver...4 <chr>, Silver...5 <chr>,
## # Bronze...6 <chr>, Bronze...7 <chr>, Games <chr>, Gold <chr>, Silver <chr>,
## # Bronze <chr>
oly_men <- oly_men %>% mutate(Event = coalesce(Event,Games))
oly_women <- oly_women %>% mutate(Event = coalesce(Event,Games))
oly_men$Event <- gsub("details", "", as.character(oly_men$Event))
colnames(oly_men)[c(5,6,7,8,9,10)]<- c("Gold_Name", "Gold_Time","Silver_Name","Silver_Time","Bronze_Name","Bronze_Time")
oly_men$Gold_Name<- gsub("\u00A0", " ", oly_men$Gold_Name, fixed =TRUE)
oly_men<- oly_men%>%separate(Gold_Name, into=c("gold_first_name","gold_last_name", "gold_country"), sep=" ",extra="merge")%>%separate(Gold_Time,into=c("gTime","gwr_or"), sep="\\(")
oly_men$Silver_Name<- gsub("\u00A0", " ", oly_men$Silver_Name, fixed =TRUE)
oly_men<- oly_men%>%separate(Silver_Name, into=c("silver_first_name","silver_last_name", "silver_country"), sep=" ",extra="merge")%>%separate(Silver_Time,into=c("sTime","swr_or"), sep="\\(")
oly_men$Bronze_Name<- gsub("\u00A0", " ", oly_men$Bronze_Name, fixed =TRUE)
oly_men<- oly_men%>%separate(Bronze_Name, into=c("bronze_first_name","bronze_last_name", "bronze_country"), sep=" ",extra="merge")%>%separate(Bronze_Time,into=c("bTime","bwr_or"), sep="\\(")
oly_men
## # A tibble: 641 × 23
## Year `Host City` `Host Country` Event gold_first_name gold_last_name
## <dbl> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Rio de Janeiro Brazil "100 metr… "Usain" Bolt
## 2 2016 Rio de Janeiro Brazil "200 metr… "Usain" Bolt
## 3 2016 Rio de Janeiro Brazil "400 metr… "Wayde" van
## 4 2016 Rio de Janeiro Brazil "800 metr… "David" Rudisha
## 5 2016 Rio de Janeiro Brazil "1500 met… "Matthew" Centrowitz
## 6 2016 Rio de Janeiro Brazil "5000 met… "Mo" Farah
## 7 2016 Rio de Janeiro Brazil "10,000 m… "Mo" Farah
## 8 2016 Rio de Janeiro Brazil "" "" <NA>
## 9 2016 Rio de Janeiro Brazil "110 metr… "Omar" McLeod
## 10 2016 Rio de Janeiro Brazil "400 metr… "Kerron" Clement
## # … with 631 more rows, and 17 more variables: gold_country <chr>, gTime <chr>,
## # gwr_or <chr>, silver_first_name <chr>, silver_last_name <chr>,
## # silver_country <chr>, sTime <chr>, swr_or <chr>, bronze_first_name <chr>,
## # bronze_last_name <chr>, bronze_country <chr>, bTime <chr>, bwr_or <chr>,
## # Games <chr>, Gold <chr>, Silver <chr>, Bronze <chr>
oly_women$Event <- gsub("details", "", as.character(oly_women$Event))
colnames(oly_women)[c(5,6,7,8,9,10)]<- c("Gold_Name", "Gold_Time","Silver_Name","Silver_Time","Bronze_Name","Bronze_Time")
oly_women$Gold_Name<- gsub("\u00A0", " ", oly_women$Gold_Name, fixed =TRUE)
oly_women<- oly_women%>%separate(Gold_Name, into=c("gold_first_name","gold_last_name", "gold_country"), sep=" ",extra="merge")%>%separate(Gold_Time,into=c("gTime","gwr_or"), sep="\\(")
oly_women$Silver_Name<- gsub("\u00A0", " ", oly_women$Silver_Name, fixed =TRUE)
oly_women<- oly_women%>%separate(Silver_Name, into=c("silver_first_name","silver_last_name", "silver_country"), sep=" ",extra="merge")%>%separate(Silver_Time,into=c("sTime","swr_or"), sep="\\(")
oly_women$Bronze_Name<- gsub("\u00A0", " ", oly_women$Bronze_Name, fixed =TRUE)
oly_women<- oly_women%>%separate(Bronze_Name, into=c("bronze_first_name","bronze_last_name", "bronze_country"), sep=" ",extra="merge")%>%separate(Bronze_Time,into=c("sTime","swr_or"), sep="\\(")
oly_women
## # A tibble: 320 × 27
## Year `Host City` `Host Country` Event gold_first_name gold_last_name
## <dbl> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Rio de Janeiro Brazil "100 metr… "Elaine" Thompson
## 2 2016 Rio de Janeiro Brazil "200 metr… "Elaine" Thompson
## 3 2016 Rio de Janeiro Brazil "400 metr… "Shaunae" Miller
## 4 2016 Rio de Janeiro Brazil "800 metr… "Caster" Semenya
## 5 2016 Rio de Janeiro Brazil "1500 met… "Faith" Kipyegon
## 6 2016 Rio de Janeiro Brazil "5000 met… "Vivian" Cheruiyot
## 7 2016 Rio de Janeiro Brazil "10,000 m… "Almaz" Ayana
## 8 2016 Rio de Janeiro Brazil "" "" <NA>
## 9 2016 Rio de Janeiro Brazil "100 metr… "Brianna" Rollins
## 10 2016 Rio de Janeiro Brazil "400 metr… "Dalilah" Muhammad
## # … with 310 more rows, and 21 more variables: gold_country <chr>, gTime <chr>,
## # gwr_or <chr>, silver_first_name <chr>, silver_last_name <chr>,
## # silver_country <chr>, bronze_first_name <chr>, bronze_last_name <chr>,
## # bronze_country <chr>, Gold...2 <chr>, Gold...3 <chr>, sTime <chr>,
## # swr_or <chr>, Silver...4 <chr>, Silver...5 <chr>, Bronze...6 <chr>,
## # Bronze...7 <chr>, Games <chr>, Gold <chr>, Silver <chr>, Bronze <chr>
oly_men_gold <- oly_men %>%
select(Year, gTime, gold_country, Event, gold_first_name, gold_last_name, `Host City`, `Host Country`)%>%
filter(!is.na(gTime))%>%
mutate(Medal = "Gold")
names(oly_men_gold)[3] <- 'Athlete Country'
names(oly_men_gold)[2] <- 'Time'
Athlete <- paste(oly_men_gold$gold_first_name, oly_men_gold$gold_last_name)
oly_men_gold <- oly_men_gold %>%
mutate(Name = Athlete)%>%
select(Year, Medal, Time, Event, Name, `Athlete Country`, `Host City`, `Host Country`)
oly_men_gold
## # A tibble: 474 × 8
## Year Medal Time Event Name `Athlete Countr… `Host City` `Host Country`
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Gold "9.81" "100… "Usa… Jamaica Rio de Jan… Brazil
## 2 2016 Gold "19.78" "200… "Usa… Jamaica Rio de Jan… Brazil
## 3 2016 Gold "43.03 WR" "400… "Way… Niekerk South A… Rio de Jan… Brazil
## 4 2016 Gold "1:42.15" "800… "Dav… Kenya Rio de Jan… Brazil
## 5 2016 Gold "3:50.00" "150… "Mat… Jr. United Stat… Rio de Jan… Brazil
## 6 2016 Gold "13:03.30" "500… "Mo … Great Britain Rio de Jan… Brazil
## 7 2016 Gold "27:05.17" "10,… "Mo … Great Britain Rio de Jan… Brazil
## 8 2016 Gold "" "" " NA" <NA> Rio de Jan… Brazil
## 9 2016 Gold "13.05" "110… "Oma… Jamaica Rio de Jan… Brazil
## 10 2016 Gold "47.73" "400… "Ker… United States Rio de Jan… Brazil
## # … with 464 more rows
oly_men_silver <- oly_men %>%
select(Year, gTime, silver_country, Event, silver_first_name, silver_last_name, `Host City`, `Host Country`)%>%
filter(!is.na(gTime))%>%
mutate(Medal = "Silver")
names(oly_men_silver)[3] <- 'Athlete Country'
names(oly_men_silver)[2] <- 'Time'
Athlete <- paste(oly_men_silver$silver_first_name, oly_men_silver$silver_last_name)
oly_men_silver <- oly_men_silver %>%
mutate(Name = Athlete)%>%
select(Year, Medal, Time, Event, Name, `Athlete Country`, `Host City`, `Host Country`)
oly_men_silver
## # A tibble: 474 × 8
## Year Medal Time Event Name `Athlete Countr… `Host City` `Host Country`
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Silver "9.81" "100… "Jus… United States Rio de Jan… Brazil
## 2 2016 Silver "19.78" "200… "And… Grasse Canada Rio de Jan… Brazil
## 3 2016 Silver "43.03 WR" "400… "Kir… Grenada Rio de Jan… Brazil
## 4 2016 Silver "1:42.15" "800… "Tao… Algeria Rio de Jan… Brazil
## 5 2016 Silver "3:50.00" "150… "Tao… Algeria Rio de Jan… Brazil
## 6 2016 Silver "13:03.30" "500… "Pau… United States Rio de Jan… Brazil
## 7 2016 Silver "27:05.17" "10,… "Pau… Kenya Rio de Jan… Brazil
## 8 2016 Silver "" "" " NA" <NA> Rio de Jan… Brazil
## 9 2016 Silver "13.05" "110… "Orl… Spain Rio de Jan… Brazil
## 10 2016 Silver "47.73" "400… "Bon… Kenya Rio de Jan… Brazil
## # … with 464 more rows
oly_men_bronze <- oly_men %>%
select(Year, gTime, bronze_country, Event, bronze_first_name, bronze_last_name, `Host City`, `Host Country`)%>%
filter(!is.na(gTime))%>%
mutate(Medal = "Bronze")
names(oly_men_bronze)[3] <- 'Athlete Country'
names(oly_men_bronze)[2] <- 'Time'
Name <- paste(oly_men_bronze$bronze_first_name, oly_men_bronze$bronze_last_name)
oly_men_bronze <- oly_men_bronze %>%
mutate(Name = Name)%>%
select(Year, Medal, Time, Event, Name, `Athlete Country`, `Host City`, `Host Country`)
oly_men_bronze
## # A tibble: 474 × 8
## Year Medal Time Event Name `Athlete Countr… `Host City` `Host Country`
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Bronze "9.81" "100… "And… Grasse Canada Rio de Jan… Brazil
## 2 2016 Bronze "19.78" "200… "Chr… France Rio de Jan… Brazil
## 3 2016 Bronze "43.03 WR" "400… "LaS… United States Rio de Jan… Brazil
## 4 2016 Bronze "1:42.15" "800… "Cla… United States Rio de Jan… Brazil
## 5 2016 Bronze "3:50.00" "150… "Nic… New Zealand Rio de Jan… Brazil
## 6 2016 Bronze "13:03.30" "500… "Hag… Ethiopia Rio de Jan… Brazil
## 7 2016 Bronze "27:05.17" "10,… "Tam… Ethiopia Rio de Jan… Brazil
## 8 2016 Bronze "" "" " NA" <NA> Rio de Jan… Brazil
## 9 2016 Bronze "13.05" "110… "Dim… France Rio de Jan… Brazil
## 10 2016 Bronze "47.73" "400… "Yas… Turkey Rio de Jan… Brazil
## # … with 464 more rows
oly_men_clean <- bind_rows(oly_men_gold, oly_men_silver, oly_men_bronze)
oly_men_clean
## # A tibble: 1,422 × 8
## Year Medal Time Event Name `Athlete Countr… `Host City` `Host Country`
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Gold "9.81" "100… "Usa… Jamaica Rio de Jan… Brazil
## 2 2016 Gold "19.78" "200… "Usa… Jamaica Rio de Jan… Brazil
## 3 2016 Gold "43.03 WR" "400… "Way… Niekerk South A… Rio de Jan… Brazil
## 4 2016 Gold "1:42.15" "800… "Dav… Kenya Rio de Jan… Brazil
## 5 2016 Gold "3:50.00" "150… "Mat… Jr. United Stat… Rio de Jan… Brazil
## 6 2016 Gold "13:03.30" "500… "Mo … Great Britain Rio de Jan… Brazil
## 7 2016 Gold "27:05.17" "10,… "Mo … Great Britain Rio de Jan… Brazil
## 8 2016 Gold "" "" " NA" <NA> Rio de Jan… Brazil
## 9 2016 Gold "13.05" "110… "Oma… Jamaica Rio de Jan… Brazil
## 10 2016 Gold "47.73" "400… "Ker… United States Rio de Jan… Brazil
## # … with 1,412 more rows
oly_men_100m <- oly_men_clean %>%
filter(Event == "100 metres")%>%
arrange(desc(Year))
oly_men_100m
## # A tibble: 57 × 8
## Year Medal Time Event Name `Athlete Countr… `Host City` `Host Country`
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Gold "9.81" 100 metres Usai… Jamaica Rio de Jan… Brazil
## 2 2016 Silver "9.81" 100 metres Just… United States Rio de Jan… Brazil
## 3 2016 Bronze "9.81" 100 metres Andr… Grasse Canada Rio de Jan… Brazil
## 4 2012 Gold "9.63" 100 metres Usai… Jamaica London Great Britain
## 5 2012 Silver "9.63" 100 metres Yoha… Jamaica London Great Britain
## 6 2012 Bronze "9.63" 100 metres Just… United States London Great Britain
## 7 2008 Gold "9.69 " 100 metres Usai… Jamaica Beijing China
## 8 2008 Silver "9.69 " 100 metres Rich… Trinidad and To… Beijing China
## 9 2008 Bronze "9.69 " 100 metres Walt… United States Beijing China
## 10 2004 Gold "9.85" 100 metres Just… United States Athens Greece
## # … with 47 more rows
levels(as.factor(oly_men_100m$Time))
## [1] "10.0" "10.06" "10.14" "10.2" "10.25" "10.3" "10.4"
## [8] "10.5" "9.63" "9.69 " "9.81" "9.84" "9.85" "9.87"
## [15] "9.92" "9.95 WR" "9.96" "9.99"
oly_women_gold <- oly_women %>%
select(Year, gTime, gold_country, Event, gold_first_name, gold_last_name, `Host City`, `Host Country`)%>%
filter(!is.na(gTime))%>%
mutate(Medal = "Gold")
names(oly_women_gold)[3] <- 'Athlete Country'
names(oly_women_gold)[2] <- 'Time'
Athlete <- paste(oly_women_gold$gold_first_name, oly_women_gold$gold_last_name)
oly_women_gold <- oly_women_gold %>%
mutate(Name = Athlete)%>%
select(Year, Medal, Time, Event, Name, `Athlete Country`, `Host City`, `Host Country`)
oly_women_gold
## # A tibble: 288 × 8
## Year Medal Time Event Name `Athlete Countr… `Host City` `Host Country`
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Gold "10.71" "100… "Ela… Jamaica Rio de Jan… Brazil
## 2 2016 Gold "21.78" "200… "Ela… Jamaica Rio de Jan… Brazil
## 3 2016 Gold "49.44" "400… "Sha… Bahamas Rio de Jan… Brazil
## 4 2016 Gold "1:55.28 NR" "800… "Cas… South Africa Rio de Jan… Brazil
## 5 2016 Gold "4:08.92" "150… "Fai… Kenya Rio de Jan… Brazil
## 6 2016 Gold "14:26.17 OR" "500… "Viv… Kenya Rio de Jan… Brazil
## 7 2016 Gold "29:17.45 WR" "10,… "Alm… Ethiopia Rio de Jan… Brazil
## 8 2016 Gold "" "" " NA" <NA> Rio de Jan… Brazil
## 9 2016 Gold "12.48" "100… "Bri… United States Rio de Jan… Brazil
## 10 2016 Gold "53.13" "400… "Dal… United States Rio de Jan… Brazil
## # … with 278 more rows
oly_women_silver <- oly_women %>%
select(Year, gTime, silver_country, Event, silver_first_name, silver_last_name, `Host City`, `Host Country`)%>%
filter(!is.na(gTime))%>%
mutate(Medal = "Silver")
names(oly_women_silver)[3] <- 'Athlete Country'
names(oly_women_silver)[2] <- 'Time'
Athlete <- paste(oly_women_silver$silver_first_name, oly_women_silver$silver_last_name)
oly_women_silver <- oly_women_silver %>%
mutate(Name = Athlete)%>%
select(Year, Medal, Time, Event, Name, `Athlete Country`, `Host City`, `Host Country`)
oly_women_silver
## # A tibble: 288 × 8
## Year Medal Time Event Name `Athlete Countr… `Host City` `Host Country`
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Silver "10.71" "100… "Tor… United States Rio de Jan… Brazil
## 2 2016 Silver "21.78" "200… "Daf… Netherlands Rio de Jan… Brazil
## 3 2016 Silver "49.44" "400… "All… United States Rio de Jan… Brazil
## 4 2016 Silver "1:55.28 NR" "800… "Fra… Burundi Rio de Jan… Brazil
## 5 2016 Silver "4:08.92" "150… "Gen… Ethiopia Rio de Jan… Brazil
## 6 2016 Silver "14:26.17 OR" "500… "Hel… Obiri Kenya Rio de Jan… Brazil
## 7 2016 Silver "29:17.45 WR" "10,… "Viv… Kenya Rio de Jan… Brazil
## 8 2016 Silver "" "" " NA" <NA> Rio de Jan… Brazil
## 9 2016 Silver "12.48" "100… "Nia… United States Rio de Jan… Brazil
## 10 2016 Silver "53.13" "400… "Sar… Denmark Rio de Jan… Brazil
## # … with 278 more rows
oly_women_bronze <- oly_women %>%
select(Year, gTime, bronze_country, Event, bronze_first_name, bronze_last_name, `Host City`, `Host Country`)%>%
filter(!is.na(gTime))%>%
mutate(Medal = "Bronze")
names(oly_women_bronze)[3] <- 'Athlete Country'
names(oly_women_bronze)[2] <- 'Time'
Name <- paste(oly_women_bronze$bronze_first_name, oly_women_bronze$bronze_last_name)
oly_women_bronze <- oly_women_bronze %>%
mutate(Name = Name)%>%
select(Year, Medal, Time, Event, Name, `Athlete Country`, `Host City`, `Host Country`)
oly_women_bronze
## # A tibble: 288 × 8
## Year Medal Time Event Name `Athlete Countr… `Host City` `Host Country`
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Bronze "10.71" "100… "She… Jamaica Rio de Jan… Brazil
## 2 2016 Bronze "21.78" "200… "Tor… United States Rio de Jan… Brazil
## 3 2016 Bronze "49.44" "400… "She… Jamaica Rio de Jan… Brazil
## 4 2016 Bronze "1:55.28 NR" "800… "Mar… Kenya Rio de Jan… Brazil
## 5 2016 Bronze "4:08.92" "150… "Jen… United States Rio de Jan… Brazil
## 6 2016 Bronze "14:26.17 OR" "500… "Alm… Ethiopia Rio de Jan… Brazil
## 7 2016 Bronze "29:17.45 WR" "10,… "Tir… Ethiopia Rio de Jan… Brazil
## 8 2016 Bronze "" "" " NA" <NA> Rio de Jan… Brazil
## 9 2016 Bronze "12.48" "100… "Kri… United States Rio de Jan… Brazil
## 10 2016 Bronze "53.13" "400… "Ash… United States Rio de Jan… Brazil
## # … with 278 more rows
oly_women_clean <- bind_rows(oly_women_gold, oly_women_silver, oly_women_bronze)
oly_women_clean
## # A tibble: 864 × 8
## Year Medal Time Event Name `Athlete Countr… `Host City` `Host Country`
## <dbl> <chr> <chr> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Gold "10.71" "100… "Ela… Jamaica Rio de Jan… Brazil
## 2 2016 Gold "21.78" "200… "Ela… Jamaica Rio de Jan… Brazil
## 3 2016 Gold "49.44" "400… "Sha… Bahamas Rio de Jan… Brazil
## 4 2016 Gold "1:55.28 NR" "800… "Cas… South Africa Rio de Jan… Brazil
## 5 2016 Gold "4:08.92" "150… "Fai… Kenya Rio de Jan… Brazil
## 6 2016 Gold "14:26.17 OR" "500… "Viv… Kenya Rio de Jan… Brazil
## 7 2016 Gold "29:17.45 WR" "10,… "Alm… Ethiopia Rio de Jan… Brazil
## 8 2016 Gold "" "" " NA" <NA> Rio de Jan… Brazil
## 9 2016 Gold "12.48" "100… "Bri… United States Rio de Jan… Brazil
## 10 2016 Gold "53.13" "400… "Dal… United States Rio de Jan… Brazil
## # … with 854 more rows
I know I need to fix the “Time” variable to make it numeric… that is on my todo list!
oly_men_100m %>%
ggplot(aes(Year, Time, color = Medal))+
geom_jitter(alpha = 0.5, size = 3)+
geom_smooth()
Rio de Janeiro 2016
rio_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2016_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-rio_men_100m%>%html_table(fill=TRUE)
rio_men_100m_1<-tables[[11]]
rio_men_100m_2<-tables[[12]]
rio_men_100m_3<-tables[[13]]
rio_men_100m_4<-tables[[14]]
rio_men_100m_5<-tables[[15]]
rio_men_100m_6<-tables[[16]]
rio_men_100m_7<-tables[[17]]
rio_men_100m_8<-tables[[18]]
rio_men_100m_9<-tables[[19]]
rio_men_100m_10<-tables[[20]]
rio_men_100m_11<-tables[[21]]
rio_men_100m_12<-tables[[22]]
rio_men_100m_1 <- rio_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
rio_men_100m_2 <- rio_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
rio_men_100m_3 <- rio_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
rio_men_100m_4 <- rio_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
rio_men_100m_5 <- rio_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
rio_men_100m_6 <- rio_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
rio_men_100m_7 <- rio_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
rio_men_100m_8 <- rio_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
rio_men_100m_9 <- rio_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
rio_men_100m_10 <- rio_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
rio_men_100m_11 <- rio_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
rio_men_100m_12 <- rio_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
rio_men_100m_all <- bind_rows(rio_men_100m_1, rio_men_100m_2, rio_men_100m_3, rio_men_100m_4, rio_men_100m_5, rio_men_100m_6, rio_men_100m_7, rio_men_100m_8, rio_men_100m_9, rio_men_100m_10, rio_men_100m_11, rio_men_100m_12)
rio_men_100m_all <- rio_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=2016,"Host City" ="Rio de Janeiro", "Host Country"="Brazil")
rio_men_100m_all[92, 1] <- "Gold"
rio_men_100m_all[93, 1] <- "Silver"
rio_men_100m_all[94, 1] <- "Bronze"
rio_men_100m_all
## Rank Lane Athlete Nation Reaction Time
## 1 1 3 Kemarley Brown Bahrain 0.146 10.13
## 2 2 5 Chijindu Ujah Great Britain 0.150 10.13
## 3 3 7 Marvin Bracy United States 0.155 10.16
## 4 4 2 Seye Ogunlewe Nigeria 0.139 10.26
## 5 5 1 Femi Ogunode Qatar 0.170 10.28
## 6 6 8 Sean Safo-Antwi Ghana 0.145 10.43
## 7 7 9 Reza Ghasemi Iran 0.150 10.47
## 8 8 6 Adrian Griffith Bahamas 0.143 10.53
## 9 9 4 Mohamed Fakhri Ismail Brunei 0.151 10.95
## 10 1 8 Justin Gatlin United States 0.160 10.01
## 11 2 7 Daniel Bailey Antigua and Barbuda 0.153 10.20
## 12 3 1 Rondel Sorrillo Trinidad and Tobago 0.112 10.23
## 13 4 5 Gerald Phiri Zambia 0.146 10.27
## 14 5 9 Lucas Jakubczyk Germany 0.166 10.29
## 15 6 6 Ogho-Oghene Egwero Nigeria 0.151 10.37
## 16 7 3 Wilfried Koffi Hua Ivory Coast 0.166 10.37
## 17 8 2 Rodman Teltull Palau 0.133 10.64
## 18 9 4 Riste Pandev Macedonia 0.163 10.71
## 19 1 5 Xie Zhenye China 0.143 10.08
## 20 2 3 Nickel Ashmeade Jamaica 0.132 10.13
## 21 3 6 Hassan Taftian Iran 0.150 10.17
## 22 4 2 Kim Collins Saint Kitts and Nevis 0.151 10.18
## 23 5 4 Abdullah Abkar Mohammed Saudi Arabia 0.154 10.26
## 24 6 7 Aziz Ouhadi Morocco 0.158 10.34
## 25 7 9 Kemar Hyman Cayman Islands 0.160 10.34
## 26 8 8 Darrell Wesh Haiti 0.138 10.39
## 27 1 3 Andre De Grasse Canada 0.148 10.04
## 28 2 9 Asuka Cambridge Japan 0.137 10.13
## 29 3 2 Su Bingtian China 0.146 10.17
## 30 4 1 Jimmy Vicaut France 0.164 10.19
## 31 5 7 Churandy Martina Netherlands 0.142 10.22
## 32 6 5 Emmanuel Matadi Liberia 0.146 10.31
## 33 7 8 Julian Reus Germany 0.135 10.34
## 34 8 6 Jamial Rolle Bahamas 0.145 10.68
## 35 9 4 Sudirman Hadi Indonesia 0.122 10.70
## 36 1 9 Ben Youssef Meïté Ivory Coast 0.145 10.03
## 37 2 5 Trayvon Bromell United States 0.165 10.13
## 38 3 4 Christophe Lemaitre France 0.150 10.16
## 39 4 7 Cejhae Greene Antigua and Barbuda 0.156 10.20
## 40 5 8 Keston Bledman Trinidad and Tobago 0.150 10.20
## 41 6 1 Akeem Haynes Canada 0.123 10.22
## 42 7 6 Gabriel Mvumvure Zimbabwe 0.131 10.28
## 43 8 2 Hassan Saaid Maldives 0.135 10.47
## 44 1 4 Yohan Blake Jamaica 0.154 10.11
## 45 2 8 Jak Ali Harvey Turkey 0.159 10.14
## 46 3 9 Barakat Alharthi Oman 0.155 10.22
## 47 4 2 Mosito Lehata Lesotho 0.151 10.25
## 48 5 6 James Ellington Great Britain 0.145 10.29
## 49 6 3 Henricho Bruintjies South Africa 0.107 10.33
## 50 7 5 Zhang Peimeng China 0.121 10.36
## 51 8 7 Antoine Adams Saint Kitts and Nevis 0.149 10.39
## 52 1 6 Usain Bolt Jamaica 0.156 10.07
## 53 2 3 Andrew Fisher Bahrain 0.134 10.12
## 54 3 7 James Dasaolu Great Britain 0.171 10.18
## 55 4 9 Yoshihide Kiryu Japan 0.150 10.23
## 56 5 2 Shavez Hart Bahamas 0.139 10.28
## 57 6 5 Richard Thompson Trinidad and Tobago 0.130 10.29
## 58 7 8 Jahvid Best Saint Lucia 0.147 10.39
## 59 8 1 Jurgen Themen Suriname 0.139 10.47
## 60 9 4 Jin Wei Timothee Yap Singapore 0.149 10.79
## 61 1 4 Akani Simbine South Africa 0.124 10.14
## 62 2 1 Ryota Yamagata Japan 0.111 10.20
## 63 3 7 Aaron Brown Canada 0.135 10.24
## 64 4 9 Ramon Gittens Barbados 0.162 10.25
## 65 5 2 Solomon Bockarie Netherlands 0.127 10.36
## 66 5 5 Vitor Hugo dos Santos Brazil 0.157 10.36
## 67 7 6 Kim Kuk-young South Korea 0.135 10.37
## 68 8 3 Brijesh Lawrence Saint Kitts and Nevis 0.163 10.55
## 69 9 8 Mohammed Abukhousa Palestine 0.153 11.89
## 70 1 3 Jimmy Vicaut France 0.131 9.95
## 71 2 7 Ben Youssef Meïté Ivory Coast 0.142 9.97
## 72 3 5 Akani Simbine South Africa 0.144 9.98
## 73 4 9 Jak Ali Harvey Turkey 0.148 10.03
## 74 5 4 Nickel Ashmeade Jamaica 0.118 10.05
## 75 6 8 Marvin Bracy United States 0.152 10.08
## 76 7 6 Xie Zhenye China 0.134 10.11
## 77 8 2 Hassan Taftian Iran 0.136 10.23
## 78 1 6 Usain Bolt Jamaica 0.143 9.86
## 79 2 5 Andre De Grasse Canada 0.130 9.92
## 80 3 9 Trayvon Bromell United States 0.128 10.01
## 81 4 7 Chijindu Ujah Great Britain 0.160 10.01
## 82 5 8 Ryota Yamagata Japan 0.109 10.05
## 83 6 3 Kim Collins Saint Kitts and Nevis 0.138 10.12
## 84 7 2 Cejhae Greene Antigua and Barbuda 0.143 10.13
## 85 1 6 Justin Gatlin United States 0.151 9.94
## 86 2 4 Yohan Blake Jamaica 0.147 10.01
## 87 3 9 Christophe Lemaitre France 0.122 10.07
## 88 4 3 Su Bingtian China 0.140 10.08
## 89 5 5 Kemarley Brown Bahrain 0.152 10.13
## 90 6 2 James Dasaolu Great Britain 0.145 10.16
## 91 7 7 Asuka Cambridge Japan 0.135 10.17
## 92 Gold 6 usain bolt Jamaica 0.155 9.81
## 93 Silver 4 Justin Gatlin United States 0.152 9.89
## 94 Bronze 7 Andre De Grasse Canada 0.141 9.81
## 95 4 9 Yohan Blake Jamaica 0.145 9.93
## 96 5 3 Akani Simbine South Africa 0.128 9.94
## 97 6 8 Ben Youssef Meïté Ivory Coast 0.156 9.96
## 98 7 5 Jimmy Vicaut France 0.140 10.04
## 99 8 2 Trayvon Bromell United States 0.135 10.06
## Notes Heat Year Host City Host Country
## 1 Q 1 2016 Rio de Janeiro Brazil
## 2 Q 1 2016 Rio de Janeiro Brazil
## 3 q 1 2016 Rio de Janeiro Brazil
## 4 1 2016 Rio de Janeiro Brazil
## 5 1 2016 Rio de Janeiro Brazil
## 6 1 2016 Rio de Janeiro Brazil
## 7 1 2016 Rio de Janeiro Brazil
## 8 1 2016 Rio de Janeiro Brazil
## 9 1 2016 Rio de Janeiro Brazil
## 10 Q 2 2016 Rio de Janeiro Brazil
## 11 Q 2 2016 Rio de Janeiro Brazil
## 12 2 2016 Rio de Janeiro Brazil
## 13 2 2016 Rio de Janeiro Brazil
## 14 2 2016 Rio de Janeiro Brazil
## 15 2 2016 Rio de Janeiro Brazil
## 16 2 2016 Rio de Janeiro Brazil
## 17 2 2016 Rio de Janeiro Brazil
## 18 SB 2 2016 Rio de Janeiro Brazil
## 19 Q, PB 3 2016 Rio de Janeiro Brazil
## 20 Q 3 2016 Rio de Janeiro Brazil
## 21 q 3 2016 Rio de Janeiro Brazil
## 22 q 3 2016 Rio de Janeiro Brazil
## 23 3 2016 Rio de Janeiro Brazil
## 24 3 2016 Rio de Janeiro Brazil
## 25 3 2016 Rio de Janeiro Brazil
## 26 3 2016 Rio de Janeiro Brazil
## 27 Q 4 2016 Rio de Janeiro Brazil
## 28 Q 4 2016 Rio de Janeiro Brazil
## 29 q 4 2016 Rio de Janeiro Brazil
## 30 q 4 2016 Rio de Janeiro Brazil
## 31 4 2016 Rio de Janeiro Brazil
## 32 4 2016 Rio de Janeiro Brazil
## 33 4 2016 Rio de Janeiro Brazil
## 34 4 2016 Rio de Janeiro Brazil
## 35 4 2016 Rio de Janeiro Brazil
## 36 Q 5 2016 Rio de Janeiro Brazil
## 37 Q 5 2016 Rio de Janeiro Brazil
## 38 q 5 2016 Rio de Janeiro Brazil
## 39 q 5 2016 Rio de Janeiro Brazil
## 40 5 2016 Rio de Janeiro Brazil
## 41 5 2016 Rio de Janeiro Brazil
## 42 5 2016 Rio de Janeiro Brazil
## 43 5 2016 Rio de Janeiro Brazil
## 44 Q 6 2016 Rio de Janeiro Brazil
## 45 Q 6 2016 Rio de Janeiro Brazil
## 46 6 2016 Rio de Janeiro Brazil
## 47 6 2016 Rio de Janeiro Brazil
## 48 6 2016 Rio de Janeiro Brazil
## 49 6 2016 Rio de Janeiro Brazil
## 50 6 2016 Rio de Janeiro Brazil
## 51 6 2016 Rio de Janeiro Brazil
## 52 Q 7 2016 Rio de Janeiro Brazil
## 53 Q 7 2016 Rio de Janeiro Brazil
## 54 q 7 2016 Rio de Janeiro Brazil
## 55 7 2016 Rio de Janeiro Brazil
## 56 SB 7 2016 Rio de Janeiro Brazil
## 57 7 2016 Rio de Janeiro Brazil
## 58 7 2016 Rio de Janeiro Brazil
## 59 7 2016 Rio de Janeiro Brazil
## 60 7 2016 Rio de Janeiro Brazil
## 61 Q 8 2016 Rio de Janeiro Brazil
## 62 Q 8 2016 Rio de Janeiro Brazil
## 63 8 2016 Rio de Janeiro Brazil
## 64 8 2016 Rio de Janeiro Brazil
## 65 8 2016 Rio de Janeiro Brazil
## 66 8 2016 Rio de Janeiro Brazil
## 67 8 2016 Rio de Janeiro Brazil
## 68 8 2016 Rio de Janeiro Brazil
## 69 8 2016 Rio de Janeiro Brazil
## 70 Q Semi Final 2016 Rio de Janeiro Brazil
## 71 Q, NR Semi Final 2016 Rio de Janeiro Brazil
## 72 q Semi Final 2016 Rio de Janeiro Brazil
## 73 Semi Final 2016 Rio de Janeiro Brazil
## 74 Semi Final 2016 Rio de Janeiro Brazil
## 75 Semi Final 2016 Rio de Janeiro Brazil
## 76 Semi Final 2016 Rio de Janeiro Brazil
## 77 Semi Final 2016 Rio de Janeiro Brazil
## 78 Q, SB Semi Final 2016 Rio de Janeiro Brazil
## 79 Q, PB Semi Final 2016 Rio de Janeiro Brazil
## 80 q Semi Final 2016 Rio de Janeiro Brazil
## 81 Semi Final 2016 Rio de Janeiro Brazil
## 82 PB Semi Final 2016 Rio de Janeiro Brazil
## 83 Semi Final 2016 Rio de Janeiro Brazil
## 84 Semi Final 2016 Rio de Janeiro Brazil
## 85 Q Semi Final 2016 Rio de Janeiro Brazil
## 86 Q Semi Final 2016 Rio de Janeiro Brazil
## 87 SB Semi Final 2016 Rio de Janeiro Brazil
## 88 SB Semi Final 2016 Rio de Janeiro Brazil
## 89 Semi Final 2016 Rio de Janeiro Brazil
## 90 Semi Final 2016 Rio de Janeiro Brazil
## 91 Semi Final 2016 Rio de Janeiro Brazil
## 92 SB Final 2016 Rio de Janeiro Brazil
## 93 Final 2016 Rio de Janeiro Brazil
## 94 PB Final 2016 Rio de Janeiro Brazil
## 95 SB Final 2016 Rio de Janeiro Brazil
## 96 Final 2016 Rio de Janeiro Brazil
## 97 NR Final 2016 Rio de Janeiro Brazil
## 98 Final 2016 Rio de Janeiro Brazil
## 99 Final 2016 Rio de Janeiro Brazil
London 2012
lon12_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2012_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-lon12_men_100m%>%html_table(fill=TRUE)
lon12_men_100m_1<-tables[[12]]
lon12_men_100m_2<-tables[[13]]
lon12_men_100m_3<-tables[[14]]
lon12_men_100m_4<-tables[[15]]
lon12_men_100m_5<-tables[[16]]
lon12_men_100m_6<-tables[[17]]
lon12_men_100m_7<-tables[[18]]
lon12_men_100m_8<-tables[[19]]
lon12_men_100m_9<-tables[[20]]
lon12_men_100m_10<-tables[[21]]
lon12_men_100m_11<-tables[[22]]
lon12_men_100m_1 <- lon12_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
lon12_men_100m_2 <- lon12_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
lon12_men_100m_3 <- lon12_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
lon12_men_100m_4 <- lon12_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
lon12_men_100m_5 <- lon12_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
lon12_men_100m_6 <- lon12_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
lon12_men_100m_7 <- lon12_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
lon12_men_100m_8 <- lon12_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
lon12_men_100m_9 <- lon12_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
lon12_men_100m_10 <- lon12_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
lon12_men_100m_11 <- lon12_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
lon12_men_100m_all <- bind_rows(lon12_men_100m_1, lon12_men_100m_2, lon12_men_100m_3, lon12_men_100m_4, lon12_men_100m_5, lon12_men_100m_6, lon12_men_100m_7, lon12_men_100m_8, lon12_men_100m_9, lon12_men_100m_10, lon12_men_100m_11)
lon12_men_100m_all <- lon12_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=2012,"Host City" ="London", "Host Country"="United Kingdom")
lon12_men_100m_all[78, 1] <- "Gold"
lon12_men_100m_all[79, 1] <- "Silver"
lon12_men_100m_all[80, 1] <- "Bronze"
lon12_men_100m_all
## Rank Lane Athlete Nation Reaction
## 1 1 6 Tyson Gay United States 0.147
## 2 2 5 Richard Thompson Trinidad and Tobago 0.151
## 3 3 7 Gerald Phiri Zambia 0.147
## 4 4 3 Jaysuma Saidy Ndure Norway 0.166
## 5 5 4 Ángel David Rodríguez Spain 0.168
## 6 6 2 Jurgen Themen Suriname 0.169
## 7 7 5 Isidro Montoya Colombia 0.165
## 8 8 1 Yeo Foo Ee Gary Singapore 0.144
## 9 1 4 Justin Gatlin United States 0.200
## 10 2 6 Derrick Atkins Bahamas 0.179
## 11 3 5 Rondel Sorrillo Trinidad and Tobago 0.148
## 12 4 8 Dariusz Kuć Poland 0.163
## 13 5 9 Nilson André Brazil 0.172
## 14 6 7 Masashi Eriguchi Japan 0.144
## 15 7 3 Barakat Al-Harthi Oman 0.152
## 16 8 2 Fernando Lumain Indonesia 0.162
## 17 1 7 Ryan Bailey United States 0.177
## 18 2 8 Ben Youssef Meïté Ivory Coast 0.174
## 19 3 6 Justyn Warner Canada 0.149
## 20 4 4 Kemar Hyman Cayman Islands 0.150
## 21 5 9 Suwaibou Sanneh The Gambia 0.176
## 22 6 5 Rytis Sakalauskas Lithuania 0.178
## 23 7 3 Béranger Aymard Bosse Central African Republic 0.170
## 24 8 2 Artur Bruno Rojas Bolivia 0.154
## 25 1 7 Usain Bolt Jamaica 0.178
## 26 2 5 Daniel Bailey Antigua and Barbuda 0.162
## 27 3 6 James Dasaolu Great Britain 0.174
## 28 4 3 Amr Ibrahim Mostafa Seoud Egypt 0.164
## 29 5 4 Jason Rogers Saint Kitts and Nevis 0.177
## 30 6 8 Ogho-Oghene Egwero Nigeria 0.174
## 31 7 2 Holder da Silva Guinea-Bissau 0.182
## 32 1 7 Asafa Powell Jamaica 0.166
## 33 2 4 Adam Gemili Great Britain 0.156
## 34 3 6 Churandy Martina Netherlands 0.168
## 35 4 9 Reza Ghasemi Iran 0.148
## 36 5 5 Obinna Metu Nigeria 0.153
## 37 6 8 Ramon Gittens Barbados 0.162
## 38 7 2 Paul Williams Grenada 0.168
## 39 8 3 Devilert Arsene Kimbembe Republic of the Congo 0.157
## 40 1 5 Yohan Blake Jamaica 0.175
## 41 2 7 Ryota Yamagata Japan 0.149
## 42 3 3 Su Bingtian China 0.162
## 43 4 6 Antoine Adams Saint Kitts and Nevis 0.154
## 44 5 9 Peter Emelieze Nigeria 0.153
## 45 6 8 Jeremy Bascom Guyana 0.135
## 46 7 4 Marek Niit Estonia 0.158
## 47 8 2 Azneem Ahmed Maldives 0.157
## 48 1 9 Dwain Chambers Great Britain 0.157
## 49 2 6 Jimmy Vicaut France 0.196
## 50 3 5 Keston Bledman Trinidad and Tobago 0.195
## 51 4 7 Warren Fraser Bahamas 0.171
## 52 5 8 Miguel López Puerto Rico 0.145
## 53 6 2 Gérard Kobéané Burkina Faso 0.186
## 54 7 3 Fabrice Coiffic Mauritius 0.165
## 55 1 7 Justin Gatlin United States 0.187
## 56 2 2 Churandy Martina Netherlands 0.148
## 57 3 4 Asafa Powell Jamaica 0.155
## 58 4 8 Keston Bledman Trinidad and Tobago 0.175
## 59 5 6 Ben Youssef Meïté Ivory Coast 0.163
## 60 6 5 Jimmy Vicaut France 0.203
## 61 7 9 James Dasaolu Great Britain 0.174
## 62 8 3 Suwaibou Sanneh The Gambia 0.175
## 63 1 4 Usain Bolt Jamaica 0.180
## 64 2 7 Ryan Bailey United States 0.155
## 65 3 8 Richard Thompson Trinidad and Tobago 0.158
## 66 4 5 Dwain Chambers Great Britain 0.154
## 67 5 9 Gerald Phiri Zambia 0.165
## 68 6 6 Daniel Bailey Antigua and Barbuda 0.142
## 69 7 2 Antoine Adams Saint Kitts and Nevis 0.159
## 70 8 3 Su Bingtian China 0.157
## 71 1 6 Yohan Blake Jamaica 0.176
## 72 2 4 Tyson Gay United States 0.151
## 73 3 7 Adam Gemili Great Britain 0.158
## 74 4 8 Derrick Atkins Bahamas 0.164
## 75 5 9 Justyn Warner Canada 0.135
## 76 6 5 Ryota Yamagata Japan 0.158
## 77 7 3 Rondel Sorrillo Trinidad and Tobago 0.140
## 78 Gold 7 Usain Bolt Jamaica 0.165
## 79 Silver 5 Yohan Blake Jamaica 0.179
## 80 Bronze 6 Justin Gatlin United States 0.178
## 81 4 8 Ryan Bailey United States 0.176
## 82 5 9 Churandy Martina Netherlands 0.139
## 83 6 2 Richard Thompson Trinidad and Tobago 0.160
## 84 7 3 Asafa Powell Jamaica 0.155
## 85 <NA> 4 Tyson Gay United States 0.145
## Time Notes Heat Var.8 Year Host City Host Country
## 1 10.08 Q 1 <NA> 2012 London United Kingdom
## 2 10.14 Q 1 <NA> 2012 London United Kingdom
## 3 10.16 Q, SB 1 <NA> 2012 London United Kingdom
## 4 10.28 1 <NA> 2012 London United Kingdom
## 5 10.34 1 <NA> 2012 London United Kingdom
## 6 10.53 1 <NA> 2012 London United Kingdom
## 7 10.54 1 <NA> 2012 London United Kingdom
## 8 10.69 1 <NA> 2012 London United Kingdom
## 9 9.97 Q 2 <NA> 2012 London United Kingdom
## 10 10.22 Q 2 <NA> 2012 London United Kingdom
## 11 10.23 Q 2 <NA> 2012 London United Kingdom
## 12 10.24 2 <NA> 2012 London United Kingdom
## 13 10.26 SB 2 <NA> 2012 London United Kingdom
## 14 10.30 2 <NA> 2012 London United Kingdom
## 15 10.41 2 <NA> 2012 London United Kingdom
## 16 10.90 2 <NA> 2012 London United Kingdom
## 17 9.88 Q, =PB 3 <NA> 2012 London United Kingdom
## 18 10.06 Q, NR 3 <NA> 2012 London United Kingdom
## 19 10.09 Q, PB 3 <NA> 2012 London United Kingdom
## 20 10.16 q 3 <NA> 2012 London United Kingdom
## 21 10.21 q, NR 3 <NA> 2012 London United Kingdom
## 22 10.29 3 <NA> 2012 London United Kingdom
## 23 10.53 3 <NA> 2012 London United Kingdom
## 24 10.65 3 <NA> 2012 London United Kingdom
## 25 10.09 Q 4 <NA> 2012 London United Kingdom
## 26 10.12 Q 4 <NA> 2012 London United Kingdom
## 27 10.13 Q 4 <NA> 2012 London United Kingdom
## 28 10.22 4 <NA> 2012 London United Kingdom
## 29 10.30 4 <NA> 2012 London United Kingdom
## 30 10.38 4 <NA> 2012 London United Kingdom
## 31 10.71 4 <NA> 2012 London United Kingdom
## 32 10.04 Q 5 <NA> 2012 London United Kingdom
## 33 10.11 Q 5 <NA> 2012 London United Kingdom
## 34 10.20 Q 5 <NA> 2012 London United Kingdom
## 35 10.31 5 <NA> 2012 London United Kingdom
## 36 10.35 5 <NA> 2012 London United Kingdom
## 37 10.35 5 <NA> 2012 London United Kingdom
## 38 10.65 5 <NA> 2012 London United Kingdom
## 39 10.94 5 <NA> 2012 London United Kingdom
## 40 10.00 Q 6 <NA> 2012 London United Kingdom
## 41 10.07 Q, PB 6 <NA> 2012 London United Kingdom
## 42 10.19 Q, SB 6 <NA> 2012 London United Kingdom
## 43 10.22 q 6 <NA> 2012 London United Kingdom
## 44 10.22 SB 6 <NA> 2012 London United Kingdom
## 45 10.31 6 <NA> 2012 London United Kingdom
## 46 10.40 6 <NA> 2012 London United Kingdom
## 47 10.84 6 <NA> 2012 London United Kingdom
## 48 10.02 Q, SB 7 <NA> 2012 London United Kingdom
## 49 10.11 Q, SB 7 <NA> 2012 London United Kingdom
## 50 10.13 Q 7 <NA> 2012 London United Kingdom
## 51 10.27 7 <NA> 2012 London United Kingdom
## 52 10.31 7 <NA> 2012 London United Kingdom
## 53 10.48 7 <NA> 2012 London United Kingdom
## 54 10.59 7 <NA> 2012 London United Kingdom
## 55 9.82 Q Semi Final <NA> 2012 London United Kingdom
## 56 9.91 Q, NR Semi Final <NA> 2012 London United Kingdom
## 57 9.94 q Semi Final <NA> 2012 London United Kingdom
## 58 10.04 Semi Final <NA> 2012 London United Kingdom
## 59 10.13 Semi Final <NA> 2012 London United Kingdom
## 60 10.16 Semi Final <NA> 2012 London United Kingdom
## 61 10.18 Semi Final <NA> 2012 London United Kingdom
## 62 10.18 NR Semi Final <NA> 2012 London United Kingdom
## 63 9.87 Q Semi Final <NA> 2012 London United Kingdom
## 64 9.96 Q Semi Final <NA> 2012 London United Kingdom
## 65 10.02 q Semi Final <NA> 2012 London United Kingdom
## 66 10.05 Semi Final <NA> 2012 London United Kingdom
## 67 10.11 SB Semi Final <NA> 2012 London United Kingdom
## 68 10.16 Semi Final <NA> 2012 London United Kingdom
## 69 10.27 Semi Final <NA> 2012 London United Kingdom
## 70 10.28 Semi Final <NA> 2012 London United Kingdom
## 71 9.85 Q Semi Final <NA> 2012 London United Kingdom
## 72 9.90 Q Semi Final <NA> 2012 London United Kingdom
## 73 10.06 Semi Final <NA> 2012 London United Kingdom
## 74 10.08 SB Semi Final <NA> 2012 London United Kingdom
## 75 10.09 =PB Semi Final <NA> 2012 London United Kingdom
## 76 10.10 Semi Final <NA> 2012 London United Kingdom
## 77 10.31 Semi Final <NA> 2012 London United Kingdom
## 78 9.63 OR Final <NA> 2012 London United Kingdom
## 79 9.75 =PB Final <NA> 2012 London United Kingdom
## 80 9.79 PB Final <NA> 2012 London United Kingdom
## 81 9.88 =PB Final <NA> 2012 London United Kingdom
## 82 9.94 Final <NA> 2012 London United Kingdom
## 83 9.98 Final <NA> 2012 London United Kingdom
## 84 11.99 Final <NA> 2012 London United Kingdom
## 85 9.80 DQ Final <NA> 2012 London United Kingdom
Beijing 2008
bei_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2008_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-bei_men_100m%>%html_table(fill=TRUE)
bei_men_100m_1<-tables[[7]]
bei_men_100m_2<-tables[[8]]
bei_men_100m_3<-tables[[9]]
bei_men_100m_4<-tables[[10]]
bei_men_100m_5<-tables[[11]]
bei_men_100m_6<-tables[[12]]
bei_men_100m_7<-tables[[13]]
bei_men_100m_8<-tables[[14]]
bei_men_100m_9<-tables[[15]]
bei_men_100m_10<-tables[[16]]
bei_men_100m_11<-tables[[17]]
bei_men_100m_12<-tables[[18]]
bei_men_100m_13<-tables[[19]]
bei_men_100m_14<-tables[[20]]
bei_men_100m_15<-tables[[21]]
bei_men_100m_16<-tables[[22]]
bei_men_100m_17<-tables[[23]]
bei_men_100m_18<-tables[[25]]
bei_men_100m_1 <- bei_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
bei_men_100m_2 <- bei_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
bei_men_100m_3 <- bei_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
bei_men_100m_4 <- bei_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
bei_men_100m_5 <- bei_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
bei_men_100m_6 <- bei_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
bei_men_100m_7 <- bei_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
bei_men_100m_8 <- bei_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
bei_men_100m_9 <- bei_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
bei_men_100m_10 <- bei_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
bei_men_100m_11 <- bei_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
bei_men_100m_12 <- bei_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
bei_men_100m_13 <- bei_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
bei_men_100m_14 <- bei_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
bei_men_100m_15 <- bei_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
bei_men_100m_16 <- bei_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
bei_men_100m_17 <- bei_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
bei_men_100m_18 <- bei_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
bei_men_100m_all <- bind_rows(bei_men_100m_1, bei_men_100m_2, bei_men_100m_3, bei_men_100m_4, bei_men_100m_5, bei_men_100m_6, bei_men_100m_7, bei_men_100m_8, bei_men_100m_9, bei_men_100m_10, bei_men_100m_11,bei_men_100m_12,bei_men_100m_13,bei_men_100m_14,bei_men_100m_15,bei_men_100m_16,bei_men_100m_17,bei_men_100m_18)
bei_men_100m_all <- bei_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=2008,"Host City" ="Beijing", "Host Country"="China")
bei_men_100m_all[134,1]<- "Gold"
bei_men_100m_all[135,1]<- "Silver"
bei_men_100m_all[136,1]<- "Bronze"
bei_men_100m_all
## Rank Lane Athlete Nation
## 1 1 3 Usain Bolt Jamaica
## 2 2 9 Daniel Bailey Antigua and Barbuda
## 3 3 6 Vicente de Lima Brazil
## 4 4 2 Henry Vizcaíno Cuba
## 5 5 4 Fabio Cerutti Italy
## 6 6 5 Jurgen Themen Suriname
## 7 7 8 Moses Kamut Vanuatu
## 8 8 7 Francis Manioru Solomon Islands
## 9 1 5 Asafa Powell Jamaica
## 10 2 3 Kim Collins Saint Kitts and Nevis
## 11 3 7 Craig Pickering Great Britain
## 12 4 2 Daniel Grueso Colombia
## 13 5 9 Dariusz Kuć Poland
## 14 6 8 Béranger Bosse Central African Republic
## 15 7 6 Aisea Tohi Tonga
## 16 8 4 Roman William Cress Marshall Islands
## 17 1 8 Richard Thompson Trinidad and Tobago
## 18 2 5 Martial Mbandjock France
## 19 3 4 Simone Collio Italy
## 20 4 2 Aziz Zakari Ghana
## 21 5 6 Andrew Hinds Barbados
## 22 6 3 Suryo Agung Wibowo Indonesia
## 23 7 7 Jared Lewis Saint Vincent and the Grenadines
## 24 8 9 Rabangaki Nawai Kiribati
## 25 1 3 Michael Frater Jamaica
## 26 2 4 Pierre Browne Canada
## 27 3 6 Darrel Brown Trinidad and Tobago
## 28 4 7 Nobuharu Asahara Japan
## 29 5 9 Holder da Silva Guinea-Bissau
## 30 6 2 Idrissa Sanou Burkina Faso
## 31 7 8 Ghyd-Kermeliss-Holly Olonghot Republic of the Congo
## 32 8 5 Massoud Azizi Afghanistan
## 33 1 2 Tyson Gay United States
## 34 2 5 Olusoji A. Fasuba Nigeria
## 35 3 4 José Carlos Moreira Brazil
## 36 4 7 Ángel David Rodríguez Spain
## 37 5 9 Lukas Milo Czech Republic
## 38 6 8 Mhadjou Youssouf Comoros
## 39 7 3 Danny D'Souza Seychelles
## 40 8 6 Shanahan Sanitoa American Samoa
## 41 1 5 Tyrone Edgar Great Britain
## 42 2 6 Darvis Patton United States
## 43 3 7 Ronald Pognon France
## 44 4 2 Hu Kai China
## 45 5 4 Abdullah Al-Sooli Oman
## 46 6 8 Desislav Gunev Bulgaria
## 47 7 3 Ali Shareef Maldives
## 48 8 9 Souksavanh Tonsacktheva Laos
## 49 1 4 Francis Obikwelu Portugal
## 50 2 2 Obinna Metu Nigeria
## 51 3 5 Walter Dix United States
## 52 4 6 Anson Henry Canada
## 53 5 8 Dmytro Hlushchenko Ukraine
## 54 6 3 Calvin Kang Li Loong Singapore
## 55 7 9 Jesse Tamangrow Palau
## 56 8 7 Reginaldo Micha Ndong Equatorial Guinea
## 57 1 3 Derrick Atkins Bahamas
## 58 2 4 Andrey Yepishin Russia
## 59 3 9 Jaysuma Saidy Ndure Norway
## 60 4 6 Uchenna Emedolu Nigeria
## 61 5 2 Suwaibou Sanneh The Gambia
## 62 6 5 Sandro Viana Brazil
## 63 7 7 Lai Chun Ho Hong Kong
## 64 8 8 Mohamed Abu Abdullah Bangladesh
## 65 2 5 Marc Burns Trinidad and Tobago
## 66 3 9 Matic Osovnikar Slovenia
## 67 4 7 Rolando Palacios Honduras
## 68 5 2 Ruslan Abbasov Azerbaijan
## 69 6 4 Sébastien Gattuso Monaco
## 70 7 8 Jack Howard Federated States of Micronesia
## 71 8 3 Gordon Heather Cook Islands
## 72 1 4 Churandy Martina Netherlands Antilles
## 73 2 5 Naoki Tsukahara Japan
## 74 3 6 Simeon Williamson Great Britain
## 75 4 9 Tobias Unger Germany
## 76 5 8 Franklin Nazareno Ecuador
## 77 6 7 Wilfried Bingangoye Gabon
## 78 7 2 Moumi Sebergue Chad
## 79 8 3 Okilani Tinilau Tuvalu
## 80 1 4 Churandy Martina Netherlands Antilles
## 81 2 7 Michael Frater Jamaica
## 82 3 6 Naoki Tsukahara Japan
## 83 4 9 Simeon Williamson Great Britain
## 84 5 3 Henry Vizcaíno Cuba
## 85 6 5 Pierre Browne Canada
## 86 7 2 Dariusz Kuć Poland
## 87 8 8 Darrel Brown Trinidad and Tobago
## 88 1 6 Richard Thompson Trinidad and Tobago
## 89 2 4 Tyson Gay United States
## 90 3 7 Martial Mbandjock France
## 91 4 5 Olusoji A. Fasuba Nigeria
## 92 5 2 Andrew Hinds Barbados
## 93 6 8 José Carlos Moreira Brazil
## 94 7 9 Simone Collio Italy
## 95 8 3 Daniel Grueso Colombia
## 96 1 6 Marc Burns Trinidad and Tobago
## 97 2 4 Kim Collins Saint Kitts and Nevis
## 98 3 5 Tyrone Edgar Great Britain
## 99 5 9 Ronald Pognon France
## 100 6 8 Matic Osovnikar Slovenia
## 101 7 2 Tobias Unger Germany
## 102 8 3 Nobuharu Asahara Japan
## 103 1 7 Usain Bolt Jamaica
## 104 2 5 Darvis Patton United States
## 105 3 4 Francis Obikwelu Portugal
## 106 4 8 Jaysuma Saidy Ndure Norway
## 107 5 9 Craig Pickering Great Britain
## 108 6 6 Obinna Metu Nigeria
## 109 7 3 Anson Henry Canada
## 110 8 2 Ángel David Rodríguez Spain
## 111 1 7 Asafa Powell Jamaica
## 112 2 9 Walter Dix United States
## 113 3 5 Derrick Atkins Bahamas
## 114 4 4 Daniel Bailey Antigua and Barbuda
## 115 5 3 Aziz Zakari Ghana
## 116 6 6 Andrey Yepishin Russia
## 117 7 8 Vicente de Lima Brazil
## 118 8 2 Hu Kai China
## 119 1 7 Usain Bolt Jamaica
## 120 2 6 Walter Dix United States
## 121 3 4 Marc Burns Trinidad and Tobago
## 122 4 9 Michael Frater Jamaica
## 123 5 5 Kim Collins Saint Kitts and Nevis
## 124 6 2 Derrick Atkins Bahamas
## 125 7 8 Tyrone Edgar Great Britain
## 126 1 6 Asafa Powell Jamaica
## 127 2 7 Richard Thompson Trinidad and Tobago
## 128 3 5 Churandy Martina Netherlands Antilles
## 129 4 4 Darvis Patton United States
## 130 5 9 Tyson Gay United States
## 131 6 8 Francis Obikwelu Portugal
## 132 7 3 Naoki Tsukahara Japan
## 133 8 2 Martial Mbandjock France
## 134 Gold 4 Usain Bolt Jamaica
## 135 Silver 5 Richard Thompson Trinidad and Tobago
## 136 Bronze 6 Walter Dix United States
## 137 4 9 Churandy Martina Netherlands Antilles
## 138 5 7 Asafa Powell Jamaica
## 139 6 2 Michael Frater Jamaica
## 140 7 8 Marc Burns Trinidad and Tobago
## 141 8 3 Darvis Patton United States
## Reaction Time Notes Var.8 Heat Year Host City Host Country
## 1 0.186 10.20 Q <NA> 1 2008 Beijing China
## 2 0.198 10.24 Q <NA> 1 2008 Beijing China
## 3 0.168 10.26 Q, SB <NA> 1 2008 Beijing China
## 4 0.157 10.28 q <NA> 1 2008 Beijing China
## 5 0.136 10.49 <NA> 1 2008 Beijing China
## 6 0.179 10.61 PB <NA> 1 2008 Beijing China
## 7 0.181 10.81 <NA> 1 2008 Beijing China
## 8 0.197 11.09 <NA> 1 2008 Beijing China
## 9 0.142 10.16 Q <NA> 2 2008 Beijing China
## 10 0.162 10.17 Q <NA> 2 2008 Beijing China
## 11 0.174 10.21 Q <NA> 2 2008 Beijing China
## 12 0.178 10.35 q <NA> 2 2008 Beijing China
## 13 0.144 10.44 q <NA> 2 2008 Beijing China
## 14 0.144 10.51 SB <NA> 2 2008 Beijing China
## 15 0.159 11.17 <NA> 2 2008 Beijing China
## 16 0.190 11.18 <NA> 2 2008 Beijing China
## 17 0.188 10.24 Q <NA> 3 2008 Beijing China
## 18 0.162 10.26 Q <NA> 3 2008 Beijing China
## 19 0.140 10.32 Q <NA> 3 2008 Beijing China
## 20 0.177 10.34 q <NA> 3 2008 Beijing China
## 21 0.140 10.35 q <NA> 3 2008 Beijing China
## 22 0.175 10.46 <NA> 3 2008 Beijing China
## 23 0.123 11.00 <NA> 3 2008 Beijing China
## 24 0.152 11.29 SB <NA> 3 2008 Beijing China
## 25 0.156 10.15 Q <NA> 4 2008 Beijing China
## 26 0.141 10.22 Q <NA> 4 2008 Beijing China
## 27 0.139 10.22 Q <NA> 4 2008 Beijing China
## 28 0.160 10.25 q <NA> 4 2008 Beijing China
## 29 0.184 10.58 <NA> 4 2008 Beijing China
## 30 0.171 10.63 <NA> 4 2008 Beijing China
## 31 0.172 11.01 <NA> 4 2008 Beijing China
## 32 0.160 11.45 <NA> 4 2008 Beijing China
## 33 0.148 10.22 Q <NA> 5 2008 Beijing China
## 34 0.156 10.29 Q <NA> 5 2008 Beijing China
## 35 0.192 10.29 Q <NA> 5 2008 Beijing China
## 36 0.145 10.34 q <NA> 5 2008 Beijing China
## 37 0.145 10.52 <NA> 5 2008 Beijing China
## 38 0.170 10.62 PB <NA> 5 2008 Beijing China
## 39 0.180 11.00 <NA> 5 2008 Beijing China
## 40 0.158 12.60 <NA> 5 2008 Beijing China
## 41 0.138 10.13 Q <NA> 6 2008 Beijing China
## 42 0.149 10.25 Q <NA> 6 2008 Beijing China
## 43 0.167 10.26 Q <NA> 6 2008 Beijing China
## 44 0.152 10.39 q <NA> 6 2008 Beijing China
## 45 0.153 10.53 PB <NA> 6 2008 Beijing China
## 46 0.152 10.66 <NA> 6 2008 Beijing China
## 47 0.171 11.11 NR <NA> 6 2008 Beijing China
## 48 0.183 11.51 <NA> 6 2008 Beijing China
## 49 0.190 10.25 Q <NA> 7 2008 Beijing China
## 50 0.176 10.34 Q <NA> 7 2008 Beijing China
## 51 0.167 10.35 Q <NA> 7 2008 Beijing China
## 52 0.138 10.37 q <NA> 7 2008 Beijing China
## 53 0.200 10.57 <NA> 7 2008 Beijing China
## 54 0.140 10.73 <NA> 7 2008 Beijing China
## 55 0.146 11.38 PB <NA> 7 2008 Beijing China
## 56 0.242 11.61 <NA> 7 2008 Beijing China
## 57 0.162 10.28 Q <NA> 8 2008 Beijing China
## 58 0.172 10.34 Q <NA> 8 2008 Beijing China
## 59 0.164 10.37 Q <NA> 8 2008 Beijing China
## 60 0.192 10.46 <NA> 8 2008 Beijing China
## 61 0.157 10.52 <NA> 8 2008 Beijing China
## 62 0.160 10.60 <NA> 8 2008 Beijing China
## 63 0.199 10.63 <NA> 8 2008 Beijing China
## 64 0.174 11.07 <NA> 8 2008 Beijing China
## 65 0.160 10.46 Q <NA> 9 2008 Beijing China
## 66 0.187 10.46 Q <NA> 9 2008 Beijing China
## 67 0.189 10.49 <NA> 9 2008 Beijing China
## 68 0.154 10.58 <NA> 9 2008 Beijing China
## 69 0.164 10.70 <NA> 9 2008 Beijing China
## 70 0.204 11.03 <NA> 9 2008 Beijing China
## 71 0.214 11.41 PB <NA> 9 2008 Beijing China
## 72 0.164 10.35 Q <NA> 10 2008 Beijing China
## 73 0.169 10.39 Q <NA> 10 2008 Beijing China
## 74 0.183 10.42 Q <NA> 10 2008 Beijing China
## 75 0.161 10.46 q <NA> 10 2008 Beijing China
## 76 0.178 10.60 <NA> 10 2008 Beijing China
## 77 0.171 10.87 <NA> 10 2008 Beijing China
## 78 0.210 11.14 <NA> 10 2008 Beijing China
## 79 0.174 11.48 NR <NA> 10 2008 Beijing China
## 80 0.142 9.99 Q, NR <NA> Quarter Final 2008 Beijing China
## 81 0.154 10.09 Q <NA> Quarter Final 2008 Beijing China
## 82 0.156 10.23 Q, SB <NA> Quarter Final 2008 Beijing China
## 83 0.127 10.32 <NA> Quarter Final 2008 Beijing China
## 84 0.167 10.33 <NA> Quarter Final 2008 Beijing China
## 85 0.144 10.36 <NA> Quarter Final 2008 Beijing China
## 86 0.176 10.46 <NA> Quarter Final 2008 Beijing China
## 87 0.119 10.93 <NA> Quarter Final 2008 Beijing China
## 88 0.170 9.99 Q <NA> Quarter Final 2008 Beijing China
## 89 0.146 10.09 Q <NA> Quarter Final 2008 Beijing China
## 90 0.160 10.16 Q <NA> Quarter Final 2008 Beijing China
## 91 0.147 10.21 <NA> Quarter Final 2008 Beijing China
## 92 0.148 10.25 <NA> Quarter Final 2008 Beijing China
## 93 0.193 10.32 <NA> Quarter Final 2008 Beijing China
## 94 0.138 10.33 <NA> Quarter Final 2008 Beijing China
## 95 0.193 10.37 <NA> Quarter Final 2008 Beijing China
## 96 0.174 10.05 Q <NA> Quarter Final 2008 Beijing China
## 97 0.150 10.07 Q, =SB <NA> Quarter Final 2008 Beijing China
## 98 0.130 10.10 Q <NA> Quarter Final 2008 Beijing China
## 99 0.167 10.21 <NA> Quarter Final 2008 Beijing China
## 100 0.171 10.24 <NA> Quarter Final 2008 Beijing China
## 101 0.136 10.36 <NA> Quarter Final 2008 Beijing China
## 102 0.145 10.37 <NA> Quarter Final 2008 Beijing China
## 103 0.165 9.92 Q <NA> Quarter Final 2008 Beijing China
## 104 0.159 10.04 Q <NA> Quarter Final 2008 Beijing China
## 105 0.168 10.09 Q <NA> Quarter Final 2008 Beijing China
## 106 0.133 10.14 <NA> Quarter Final 2008 Beijing China
## 107 0.144 10.18 <NA> Quarter Final 2008 Beijing China
## 108 0.174 10.27 <NA> Quarter Final 2008 Beijing China
## 109 0.142 10.33 <NA> Quarter Final 2008 Beijing China
## 110 0.154 10.35 <NA> Quarter Final 2008 Beijing China
## 111 0.149 10.02 Q <NA> Quarter Final 2008 Beijing China
## 112 0.163 10.08 Q <NA> Quarter Final 2008 Beijing China
## 113 0.179 10.14 Q <NA> Quarter Final 2008 Beijing China
## 114 0.149 10.23 <NA> Quarter Final 2008 Beijing China
## 115 0.167 10.24 <NA> Quarter Final 2008 Beijing China
## 116 0.158 10.25 <NA> Quarter Final 2008 Beijing China
## 117 0.157 10.31 <NA> Quarter Final 2008 Beijing China
## 118 0.165 10.40 <NA> Quarter Final 2008 Beijing China
## 119 0.161 9.85 Q <NA> Semi Final 2008 Beijing China
## 120 0.143 9.95 Q, SB <NA> Semi Final 2008 Beijing China
## 121 0.124 9.97 Q, =SB <NA> Semi Final 2008 Beijing China
## 122 0.163 10.01 Q <NA> Semi Final 2008 Beijing China
## 123 0.163 10.05 SB <NA> Semi Final 2008 Beijing China
## 124 0.159 10.13 <NA> Semi Final 2008 Beijing China
## 125 0.143 10.18 <NA> Semi Final 2008 Beijing China
## 126 0.161 9.91 Q <NA> Semi Final 2008 Beijing China
## 127 0.175 9.93 Q, =PB <NA> Semi Final 2008 Beijing China
## 128 0.138 9.94 Q, NR <NA> Semi Final 2008 Beijing China
## 129 0.149 10.03 Q <NA> Semi Final 2008 Beijing China
## 130 0.145 10.05 <NA> Semi Final 2008 Beijing China
## 131 0.157 10.10 <NA> Semi Final 2008 Beijing China
## 132 0.143 10.16 SB <NA> Semi Final 2008 Beijing China
## 133 0.148 10.18 <NA> Semi Final 2008 Beijing China
## 134 0.165 9.69 WR <NA> Final 2008 Beijing China
## 135 0.133 9.89 PB <NA> Final 2008 Beijing China
## 136 0.133 9.91 PB <NA> Final 2008 Beijing China
## 137 0.169 9.93 NR <NA> Final 2008 Beijing China
## 138 0.134 9.95 <NA> Final 2008 Beijing China
## 139 0.147 9.97 PB <NA> Final 2008 Beijing China
## 140 0.145 10.01 <NA> Final 2008 Beijing China
## 141 0.142 10.03 <NA> Final 2008 Beijing China
Athens 2004
ath_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2004_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-ath_men_100m%>%html_table(fill=TRUE)
ath_men_100m_1<-tables[[6]]
ath_men_100m_2<-tables[[7]]
ath_men_100m_3<-tables[[8]]
ath_men_100m_4<-tables[[9]]
ath_men_100m_5<-tables[[10]]
ath_men_100m_6<-tables[[11]]
ath_men_100m_7<-tables[[12]]
ath_men_100m_8<-tables[[13]]
ath_men_100m_9<-tables[[14]]
ath_men_100m_10<-tables[[15]]
ath_men_100m_11<-tables[[16]]
ath_men_100m_12<-tables[[17]]
ath_men_100m_13<-tables[[18]]
ath_men_100m_14<-tables[[19]]
ath_men_100m_15<-tables[[20]]
ath_men_100m_16<-tables[[21]]
ath_men_100m_17<-tables[[22]]
ath_men_100m_18<-tables[[23]]
ath_men_100m_1 <- ath_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
ath_men_100m_2 <- ath_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
ath_men_100m_3 <- ath_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
ath_men_100m_4 <- ath_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
ath_men_100m_5 <- ath_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
ath_men_100m_6 <- ath_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
ath_men_100m_7 <- ath_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
ath_men_100m_8 <- ath_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
ath_men_100m_9 <- ath_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
ath_men_100m_10 <- ath_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
ath_men_100m_11 <- ath_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ath_men_100m_12 <- ath_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ath_men_100m_13 <- ath_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ath_men_100m_14 <- ath_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ath_men_100m_15 <- ath_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ath_men_100m_16 <- ath_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
ath_men_100m_17 <- ath_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
ath_men_100m_18 <- ath_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
ath_men_100m_all <- bind_rows(ath_men_100m_1, ath_men_100m_2, ath_men_100m_3, ath_men_100m_4, ath_men_100m_5, ath_men_100m_6, ath_men_100m_7, ath_men_100m_8, ath_men_100m_9, ath_men_100m_10, ath_men_100m_11, ath_men_100m_12, ath_men_100m_13, ath_men_100m_14, ath_men_100m_15, ath_men_100m_16, ath_men_100m_17, ath_men_100m_18)
ath_men_100m_all <- ath_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=2004,"Host City" ="Athens", "Host Country"="Greece")
ath_men_100m_all[136,1]<-"Gold"
ath_men_100m_all[137,1]<-"Silver"
ath_men_100m_all[138,1]<-"Bronze"
ath_men_100m_all
## Rank Lane Athlete Nation
## 1 1 5 Frankie Fredericks Namibia
## 2 2 3 Uchenna Emedolu Nigeria
## 3 3 4 Shingo Suetsugu Japan
## 4 4 7 Darren Campbell Great Britain
## 5 5 9 Chen Haijian China
## 6 6 2 Eric Nkansah Ghana
## 7 7 6 Poh Seng Song Singapore
## 8 8 8 Yazaldes Nascimento São Tomé and Príncipe
## 9 1 5 Mark Lewis-Francis Great Britain
## 10 2 7 Aziz Zakari Ghana
## 11 3 6 Roland Németh Hungary
## 12 4 3 Salem Mubarak Al Yami Saudi Arabia
## 13 5 4 Darren Gilford Malta
## 14 6 8 Khalil Al Hanahneh Jordan
## 15 7 2 Kakianako Nariki Kiribati
## 16 1 8 Justin Gatlin United States
## 17 2 6 Kareem Streete-Thompson Cayman Islands
## 18 3 9 Leonard Myles-Mills Ghana
## 19 4 4 Vicente de Lima Brazil
## 20 5 1 Andrey Yepishin Russia
## 21 6 2 Georgios Theodoridis Greece
## 22 7 5 Hadhari Djaffar Comoros
## 23 8 7 Sultan Saeed Maldives
## 24 1 6 Shawn Crawford United States
## 25 2 1 Obadele Thompson Barbados
## 26 3 4 Matic Osovnikar Slovenia
## 27 4 5 Idrissa Sanou Burkina Faso
## 28 5 3 Diego Ferreira Paraguay
## 29 6 9 Pierre de Windt Aruba
## 30 7 7 Chamleunesouk Ao Oudomphonh Laos
## 31 8 8 Masoud Azizi Afghanistan
## 32 1 2 Francis Obikwelu Portugal
## 33 2 5 Ronald Pognon France
## 34 3 3 Jaysuma Saidy Ndure The Gambia
## 35 4 8 Jarbas Mascarenhas Brazil
## 36 5 7 Hiroyasu Tsuchie Japan
## 37 6 9 Adrian Durant Virgin Islands
## 38 7 6 Nabie Foday Fofanah Guinea
## 39 8 4 Harmon Harmon Cook Islands
## 40 1 7 Nobuharu Asahara Japan
## 41 2 3 Łukasz Chyła Poland
## 42 3 4 Eric Pacome N'Dri Ivory Coast
## 43 4 9 Ato Boldon Trinidad and Tobago
## 44 5 6 Issa Aime Nthepe France
## 45 6 2 Gábor Dobos Hungary
## 46 7 8 John Howard Federated States of Micronesia
## 47 8 5 Mohammad Shamsuddin Bangladesh
## 48 1 9 Asafa Powell Jamaica
## 49 2 5 Jason Gardener Great Britain
## 50 3 4 Joshua Ross Australia
## 51 4 1 André da Silva Brazil
## 52 5 8 Pierre Browne Canada
## 53 6 7 Lamin Tucker Sierra Leone
## 54 7 6 Kelsey Nakanelua American Samoa
## 55 8 2 Sopheak Phouk Cambodia
## 56 1 1 Maurice Greene United States
## 57 2 2 Dwight Thomas Jamaica
## 58 3 8 Churandy Martina Netherlands Antilles
## 59 4 3 Alexander Kosenkow Germany
## 60 5 6 Prodromos Katsantonis Cyprus
## 61 6 7 Chiang Wai Hung Hong Kong
## 62 7 9 Francis Manioru Solomon Islands
## 63 8 5 Teymur Gasimov Azerbaijan
## 64 9 4 Filipo Muller Tonga
## 65 1 9 Deji Aliu Nigeria
## 66 2 2 Nicolas Macrozonaris Canada
## 67 3 6 Gennadiy Chernovol Kazakhstan
## 68 4 3 Souhalia Alamou Benin
## 69 5 8 Christie van Wyk Namibia
## 70 6 4 Daniel Bailey Antigua and Barbuda
## 71 7 7 Gian Nicola Berardi San Marino
## 72 8 5 Carlos Abaunza Nicaragua
## 73 1 6 Kim Collins Saint Kitts and Nevis
## 74 2 3 Michael Frater Jamaica
## 75 3 4 Nicconnor Alexander Trinidad and Tobago
## 76 4 7 Simone Collio Italy
## 77 5 2 Eddy de Lepine France
## 78 6 8 Xavier James Bermuda
## 79 7 9 Sebastien Gattuso Monaco
## 80 8 5 Wilfried Bingangoye Gabon
## 81 1 4 Francis Obikwelu Portugal
## 82 2 5 Mark Lewis-Francis Great Britain
## 83 3 3 Dwight Thomas Jamaica
## 84 4 6 Ronald Pognon France
## 85 5 8 Shingo Suetsugu Japan
## 86 6 2 Pierre Browne Canada
## 87 7 7 Churandy Martina Netherlands Antilles
## 88 8 1 André da Silva Brazil
## 89 1 4 Shawn Crawford United States
## 90 2 3 Obadele Thompson Barbados
## 91 3 7 Vicente de Lima Brazil
## 92 4 2 Matic Osovnikar Slovenia
## 93 5 6 Deji Aliu Nigeria
## 94 6 5 Nicolas Macrozonaris Canada
## 95 7 1 Gennadiy Chernovol Kazakhstan
## 96 8 8 Idrissa Sanou Burkina Faso
## 97 1 4 Justin Gatlin United States
## 98 2 3 Jason Gardener Great Britain
## 99 3 5 Uchenna Emedolu Nigeria
## 100 4 6 Nobuharu Asahara Japan
## 101 5 2 Georgios Theodoridis Greece
## 102 6 7 Roland Németh Hungary
## 103 7 8 Nicconnor Alexander Trinidad and Tobago
## 104 1 4 Aziz Zakari Ghana
## 105 2 6 Kim Collins Saint Kitts and Nevis
## 106 3 5 Michael Frater Jamaica
## 107 4 3 Frankie Fredericks Namibia
## 108 5 7 Joshua Ross Australia
## 109 6 1 Alexander Kosenkow Germany
## 110 7 2 Andrey Yepishin Russia
## 111 8 8 Jaysuma Saidy Ndure The Gambia
## 112 1 4 Maurice Greene United States
## 113 2 6 Asafa Powell Jamaica
## 114 3 1 Leonard Myles-Mills Ghana
## 115 4 5 Łukasz Chyła Poland
## 116 5 3 Kareem Streete-Thompson Cayman Islands
## 117 6 8 Simone Collio Italy
## 118 7 2 Jarbas Mascarenhas Brazil
## 119 8 7 Eric Pacome N'Dri Ivory Coast
## 120 1 3 Shawn Crawford United States
## 121 2 4 Justin Gatlin United States
## 122 3 6 Aziz Zakari Ghana
## 123 4 8 Obadele Thompson Barbados
## 124 5 5 Mark Lewis-Francis Great Britain
## 125 6 2 Michael Frater Jamaica
## 126 7 1 Ronald Pognon France
## 127 8 7 Uchenna Emedolu Nigeria
## 128 1 4 Asafa Powell Jamaica
## 129 2 5 Francis Obikwelu Portugal
## 130 3 6 Maurice Greene United States
## 131 4 3 Kim Collins Saint Kitts and Nevis
## 132 5 8 Jason Gardener Great Britain
## 133 6 1 Leonard Myles-Mills Ghana
## 134 7 7 Dwight Thomas Jamaica
## 135 8 2 Vicente de Lima Brazil
## 136 Gold 3 Justin Gatlin United States
## 137 Silver 5 Francis Obikwelu Portugal
## 138 Bronze 7 Maurice Greene United States
## 139 4 4 Shawn Crawford United States
## 140 5 6 Asafa Powell Jamaica
## 141 6 1 Kim Collins Saint Kitts and Nevis
## 142 7 8 Obadele Thompson Barbados
## Reaction Time Notes Heat Year Host City Host Country
## 1 0.152 10.12 Q, SB 1 2004 Athens Greece
## 2 0.222 10.22 Q 1 2004 Athens Greece
## 3 0.174 10.27 Q 1 2004 Athens Greece
## 4 0.159 10.35 1 2004 Athens Greece
## 5 0.181 10.45 1 2004 Athens Greece
## 6 0.160 10.54 1 2004 Athens Greece
## 7 0.160 10.75 1 2004 Athens Greece
## 8 0.185 11.00 1 2004 Athens Greece
## 9 0.149 10.13 Q, SB 2 2004 Athens Greece
## 10 0.188 10.19 Q 2 2004 Athens Greece
## 11 0.137 10.28 Q 2 2004 Athens Greece
## 12 0.143 10.36 2 2004 Athens Greece
## 13 0.177 10.67 2 2004 Athens Greece
## 14 0.172 10.76 2 2004 Athens Greece
## 15 0.183 11.62 2 2004 Athens Greece
## 16 0.204 10.07 Q 3 2004 Athens Greece
## 17 0.156 10.15 Q, SB 3 2004 Athens Greece
## 18 0.133 10.21 Q, SB 3 2004 Athens Greece
## 19 0.169 10.23 q 3 2004 Athens Greece
## 20 0.146 10.29 q 3 2004 Athens Greece
## 21 0.141 10.32 q 3 2004 Athens Greece
## 22 0.163 10.62 3 2004 Athens Greece
## 23 0.239 11.72 3 2004 Athens Greece
## 24 0.184 10.02 Q 4 2004 Athens Greece
## 25 0.141 10.08 Q, SB 4 2004 Athens Greece
## 26 0.112 10.15 Q, NR 4 2004 Athens Greece
## 27 0.175 10.33 q 4 2004 Athens Greece
## 28 0.141 10.50 NR 4 2004 Athens Greece
## 29 0.234 11.02 4 2004 Athens Greece
## 30 0.202 11.30 4 2004 Athens Greece
## 31 0.217 11.66 4 2004 Athens Greece
## 32 0.165 10.09 Q 5 2004 Athens Greece
## 33 0.150 10.18 Q 5 2004 Athens Greece
## 34 0.157 10.26 Q, NR 5 2004 Athens Greece
## 35 0.147 10.34 q 5 2004 Athens Greece
## 36 0.182 10.37 5 2004 Athens Greece
## 37 0.223 10.52 5 2004 Athens Greece
## 38 0.158 10.62 5 2004 Athens Greece
## 39 0.173 11.22 PB 5 2004 Athens Greece
## 40 0.162 10.33 Q 6 2004 Athens Greece
## 41 0.167 10.35 Q 6 2004 Athens Greece
## 42 0.147 10.39 Q 6 2004 Athens Greece
## 43 0.155 10.41 6 2004 Athens Greece
## 44 0.159 10.67 6 2004 Athens Greece
## 45 0.131 10.68 6 2004 Athens Greece
## 46 0.195 10.85 NR 6 2004 Athens Greece
## 47 0.173 11.13 6 2004 Athens Greece
## 48 0.146 10.06 Q 7 2004 Athens Greece
## 49 0.155 10.15 Q, SB 7 2004 Athens Greece
## 50 0.153 10.24 Q, =PB 7 2004 Athens Greece
## 51 0.145 10.28 q 7 2004 Athens Greece
## 52 0.169 10.32 q 7 2004 Athens Greece
## 53 0.137 10.72 7 2004 Athens Greece
## 54 0.160 11.25 7 2004 Athens Greece
## 55 0.225 11.56 PB 7 2004 Athens Greece
## 56 0.142 10.18 Q 8 2004 Athens Greece
## 57 0.135 10.21 Q 8 2004 Athens Greece
## 58 0.152 10.23 Q 8 2004 Athens Greece
## 59 0.135 10.28 q 8 2004 Athens Greece
## 60 0.179 10.50 SB 8 2004 Athens Greece
## 61 0.157 10.70 8 2004 Athens Greece
## 62 0.143 11.05 8 2004 Athens Greece
## 63 0.179 11.17 8 2004 Athens Greece
## 64 0.181 11.18 PB 8 2004 Athens Greece
## 65 0.191 10.39 Q 9 2004 Athens Greece
## 66 0.153 10.40 Q 9 2004 Athens Greece
## 67 0.145 10.43 Q 9 2004 Athens Greece
## 68 0.167 10.48 9 2004 Athens Greece
## 69 0.148 10.49 9 2004 Athens Greece
## 70 0.154 10.51 9 2004 Athens Greece
## 71 0.143 10.76 9 2004 Athens Greece
## 72 0.173 11.17 9 2004 Athens Greece
## 73 0.154 10.11 Q 10 2004 Athens Greece
## 74 0.161 10.20 Q 10 2004 Athens Greece
## 75 0.139 10.22 Q 10 2004 Athens Greece
## 76 0.151 10.27 q 10 2004 Athens Greece
## 77 0.192 10.27 q 10 2004 Athens Greece
## 78 0.147 10.40 SB 10 2004 Athens Greece
## 79 0.152 10.58 =NR 10 2004 Athens Greece
## 80 0.206 10.76 PB 10 2004 Athens Greece
## 81 0.165 9.93 Q, NR Quarter Final 2004 Athens Greece
## 82 0.162 10.12 Q, =PB Quarter Final 2004 Athens Greece
## 83 0.149 10.12 Q, SB Quarter Final 2004 Athens Greece
## 84 0.166 10.15 q Quarter Final 2004 Athens Greece
## 85 0.150 10.19 Quarter Final 2004 Athens Greece
## 86 0.150 10.21 Quarter Final 2004 Athens Greece
## 87 0.152 10.24 Quarter Final 2004 Athens Greece
## 88 0.136 10.34 Quarter Final 2004 Athens Greece
## 89 0.167 9.89 Q Quarter Final 2004 Athens Greece
## 90 0.156 10.12 Q Quarter Final 2004 Athens Greece
## 91 0.158 10.26 Q Quarter Final 2004 Athens Greece
## 92 0.168 10.26 Quarter Final 2004 Athens Greece
## 93 0.185 10.26 Quarter Final 2004 Athens Greece
## 94 0.161 10.28 Quarter Final 2004 Athens Greece
## 95 0.154 10.42 Quarter Final 2004 Athens Greece
## 96 0.178 10.43 Quarter Final 2004 Athens Greece
## 97 0.178 9.96 Q Quarter Final 2004 Athens Greece
## 98 0.146 10.15 Q, =SB Quarter Final 2004 Athens Greece
## 99 0.162 10.15 Q Quarter Final 2004 Athens Greece
## 100 0.151 10.24 Quarter Final 2004 Athens Greece
## 101 0.141 10.36 Quarter Final 2004 Athens Greece
## 102 0.151 10.38 Quarter Final 2004 Athens Greece
## 103 0.148 10.48 Quarter Final 2004 Athens Greece
## 104 0.175 10.02 Q Quarter Final 2004 Athens Greece
## 105 0.152 10.05 Q, SB Quarter Final 2004 Athens Greece
## 106 0.152 10.11 Q Quarter Final 2004 Athens Greece
## 107 0.142 10.17 Quarter Final 2004 Athens Greece
## 108 0.163 10.22 PB Quarter Final 2004 Athens Greece
## 109 0.113 10.24 Quarter Final 2004 Athens Greece
## 110 0.164 10.29 Quarter Final 2004 Athens Greece
## 111 0.184 10.39 Quarter Final 2004 Athens Greece
## 112 0.117 9.93 Q Quarter Final 2004 Athens Greece
## 113 0.142 9.99 Q Quarter Final 2004 Athens Greece
## 114 0.145 10.18 Q, SB Quarter Final 2004 Athens Greece
## 115 0.167 10.23 Quarter Final 2004 Athens Greece
## 116 0.162 10.24 Quarter Final 2004 Athens Greece
## 117 0.135 10.29 Quarter Final 2004 Athens Greece
## 118 0.134 10.30 Quarter Final 2004 Athens Greece
## 119 0.137 10.32 Quarter Final 2004 Athens Greece
## 120 0.173 10.07 Q Semi Final 2004 Athens Greece
## 121 0.191 10.09 Q Semi Final 2004 Athens Greece
## 122 0.155 10.11 Q Semi Final 2004 Athens Greece
## 123 0.160 10.22 Q Semi Final 2004 Athens Greece
## 124 0.163 10.28 Semi Final 2004 Athens Greece
## 125 0.146 10.29 Semi Final 2004 Athens Greece
## 126 0.144 10.32 Semi Final 2004 Athens Greece
## 127 0.188 10.35 Semi Final 2004 Athens Greece
## 128 0.158 9.95 Q Semi Final 2004 Athens Greece
## 129 0.181 9.97 Q Semi Final 2004 Athens Greece
## 130 0.125 9.97 Q Semi Final 2004 Athens Greece
## 131 0.150 10.02 Q, SB Semi Final 2004 Athens Greece
## 132 0.147 10.12 SB Semi Final 2004 Athens Greece
## 133 0.139 10.22 Semi Final 2004 Athens Greece
## 134 0.156 10.28 Semi Final 2004 Athens Greece
## 135 0.163 10.28 Semi Final 2004 Athens Greece
## 136 0.188 9.85 PB Final 2004 Athens Greece
## 137 0.163 9.86 AR Final 2004 Athens Greece
## 138 0.151 9.87 SB Final 2004 Athens Greece
## 139 0.161 9.89 PB Final 2004 Athens Greece
## 140 0.166 9.94 Final 2004 Athens Greece
## 141 0.175 10.00 SB Final 2004 Athens Greece
## 142 0.164 10.10 Final 2004 Athens Greece
Sydney 2000
syd_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_2000_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-syd_men_100m%>%html_table(fill=TRUE)
syd_men_100m_1<-tables[[6]]
syd_men_100m_2<-tables[[7]]
syd_men_100m_3<-tables[[8]]
syd_men_100m_4<-tables[[9]]
syd_men_100m_5<-tables[[10]]
syd_men_100m_6<-tables[[11]]
syd_men_100m_7<-tables[[12]]
syd_men_100m_8<-tables[[13]]
syd_men_100m_9<-tables[[14]]
syd_men_100m_10<-tables[[15]]
syd_men_100m_11<-tables[[16]]
syd_men_100m_12<-tables[[17]]
syd_men_100m_13<-tables[[18]]
syd_men_100m_14<-tables[[19]]
syd_men_100m_15<-tables[[20]]
syd_men_100m_16<-tables[[21]]
syd_men_100m_17<-tables[[22]]
syd_men_100m_18<-tables[[23]]
syd_men_100m_19<-tables[[24]]
syd_men_100m_1 <- syd_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
syd_men_100m_2 <- syd_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
syd_men_100m_3 <- syd_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
syd_men_100m_4 <- syd_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
syd_men_100m_5 <- syd_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
syd_men_100m_6 <- syd_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
syd_men_100m_7 <- syd_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
syd_men_100m_8 <- syd_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
syd_men_100m_9 <- syd_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
syd_men_100m_10 <- syd_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
syd_men_100m_11 <- syd_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
syd_men_100m_12 <- syd_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
syd_men_100m_13 <- syd_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
syd_men_100m_14 <- syd_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
syd_men_100m_15 <- syd_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
syd_men_100m_16 <- syd_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
syd_men_100m_17 <- syd_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
syd_men_100m_18 <- syd_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
syd_men_100m_19 <- syd_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
syd_men_100m_all <- bind_rows(syd_men_100m_1, syd_men_100m_2, syd_men_100m_3, syd_men_100m_4, syd_men_100m_5, syd_men_100m_6, syd_men_100m_7, syd_men_100m_8, syd_men_100m_9, syd_men_100m_10, syd_men_100m_11, syd_men_100m_12, syd_men_100m_13, syd_men_100m_14, syd_men_100m_15, syd_men_100m_16, syd_men_100m_17, syd_men_100m_18, syd_men_100m_19)
syd_men_100m_all <- syd_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=2000,"Host City" ="Sydney", "Host Country"="Australia")
syd_men_100m_all[152,1]<- "Gold"
syd_men_100m_all[153,1]<- "Silver"
syd_men_100m_all[154,1]<- "Bronze"
syd_men_100m_all
## Rank Lane Athlete Nation Reaction Time
## 1 1 9 Aziz Zakari Ghana 0.317 10.31
## 2 2 3 Patrick Johnson Australia 0.152 10.31
## 3 3 8 Venancio José Spain 0.169 10.36
## 4 4 5 Martin Lachkovics Austria 0.150 10.41
## 5 5 6 Nicolas Macrozonaris Canada 0.189 10.45
## 6 6 2 Jamal Al-Saffar Saudi Arabia 0.165 10.54
## 7 7 7 Lương Tích Thiện Vietnam 0.245 10.85
## 8 8 1 Pa Modou Gai The Gambia 0.173 11.03
## 9 9 4 Mario Bonello Malta 0.157 11.06
## 10 1 9 Marcin Nowak Poland 0.164 10.27
## 11 2 3 Sunday Emmanuel Nigeria 0.152 10.31
## 12 3 5 Freddy Mayola Cuba 0.155 10.33
## 13 4 6 Sayon Cooper Liberia 0.168 10.33
## 14 5 4 David Patros France 0.258 10.38
## 15 6 2 Chiang Wai Hung Hong Kong 0.200 10.64
## 16 7 1 Teymur Gasimov Azerbaijan 0.227 10.97
## 17 8 7 Haseri Asli Brunei 0.259 11.11
## 18 9 8 Sisomphone Vongphakdy Laos 0.221 11.47
## 19 1 1 Curtis Johnson United States 0.194 10.30
## 20 2 9 Vicente de Lima Brazil 0.159 10.31
## 21 3 2 Georgios Theodoridis Greece 0.169 10.34
## 22 4 6 Bruny Surin Canada 0.198 10.41
## 23 5 8 Renward Wells Bahamas 0.252 10.47
## 24 6 5 Dejan Vojnović Croatia 0.139 10.50
## 25 7 4 Tommi Hartonen Finland 0.235 10.53
## 26 8 3 Seun Ogunkoya Nigeria 0.193 10.72
## 27 1 2 Obadele Thompson Barbados 0.239 10.23
## 28 2 5 Deji Aliu Nigeria 0.214 10.35
## 29 3 7 Shingo Kawabata Japan 0.169 10.39
## 30 4 6 Stefano Tilli Italy 0.209 10.40
## 31 5 8 Raphael Oliveira Brazil 0.179 10.44
## 32 6 4 Paul Brizzell Ireland 0.205 10.62
## 33 7 3 Petko Yankov Bulgaria 0.227 10.63
## 34 8 9 Christopher Adolf Palau 0.147 11.01
## 35 9 1 Toluta'u Koula Tonga 0.215 11.01
## 36 1 1 Darren Campbell Great Britain 0.224 10.28
## 37 2 7 Serge Bengono Cameroon 0.200 10.35
## 38 3 5 Piotr Balcerzak Poland 0.146 10.42
## 39 4 9 Tommy Kafri Israel 0.207 10.43
## 40 5 2 Christian Nsiah Ghana 0.154 10.44
## 41 6 3 Francesco Scuderi Italy 0.152 10.50
## 42 7 4 Idrissa Sanou Burkina Faso 0.234 10.60
## 43 8 8 Youssouf Simpara Mali 0.218 10.82
## 44 1 3 Maurice Greene United States 0.195 10.31
## 45 2 5 Kim Collins Saint Kitts and Nevis 0.240 10.39
## 46 3 8 Joseph Batangdon Cameroon 0.192 10.45
## 47 4 9 Andrea Colombo Italy 0.264 10.52
## 48 5 7 Watson Nyambek Malaysia 0.175 10.61
## 49 6 4 John Muray Indonesia 0.180 10.68
## 50 7 2 Teina Teiti Cook Islands 0.170 11.22
## 51 1 2 Stéphane Buckland Mauritius 0.218 10.35
## 52 2 1 Dwain Chambers Great Britain 0.171 10.38
## 53 3 6 Donovan Bailey Canada 0.235 10.39
## 54 4 7 Marc Blume Germany 0.264 10.42
## 55 5 9 Paul di Bella Australia 0.231 10.52
## 56 6 4 Edgardo Antonio Serpas El Salvador 0.168 10.63
## 57 7 3 Hadhari Saindou Djaffar Comoros 0.250 10.68
## 58 8 5 Kelsey Nakanelua American Samoa 0.245 10.93
## 59 9 8 Jean Randriamamitiana Madagascar 0.210 12.50
## 60 1 9 Ato Boldon Trinidad and Tobago 0.170 10.04
## 61 2 1 Antoine Boussombo Gabon 0.177 10.13
## 62 3 2 Leo Myles-Mills Ghana 0.193 10.15
## 63 4 3 Ibrahim Meité Ivory Coast 0.191 10.24
## 64 5 6 Claudio Sousa Brazil 0.222 10.31
## 65 6 8 Anninos Marcoullides Cyprus 0.278 10.32
## 66 7 5 Yanes Raubaba Indonesia 0.247 10.54
## 67 8 4 Oltion Luli Albania 0.235 11.08
## 68 9 7 Mamane Sani Ali Niger 0.219 11.25
## 69 1 5 Jonathan Drummond United States 0.198 10.20
## 70 2 9 Matt Shirvington Australia 0.241 10.35
## 71 3 7 Patrick Jarrett Jamaica 0.146 10.41
## 72 4 2 Anatoliy Dovhal Ukraine 0.174 10.48
## 73 5 8 Oscar Meneses Guatemala 0.212 10.54
## 74 6 1 Shigeyuki Kojima Japan 0.217 10.59
## 75 7 6 Caimin Douglas Netherlands Antilles 0.259 10.69
## 76 8 3 Abraham Kepsin Vanuatu 0.172 11.12
## 77 9 4 Philam Garcia Guam 0.220 11.21
## 78 1 1 Jason Gardener Great Britain 0.188 10.38
## 79 2 3 Lindel Frater Jamaica 0.154 10.45
## 80 3 5 Kostyantyn Rurak Ukraine 0.224 10.48
## 81 4 4 Sherwin Vries Namibia 0.165 10.53
## 82 5 2 Niconnor Alexander Trinidad and Tobago 0.149 10.56
## 83 6 9 Sergey Bychkov Russia 0.183 10.68
## 84 7 8 Ruslan Rusidze Georgia 0.166 10.70
## 85 8 7 Alpha Kamara Sierra Leone 0.162 10.74
## 86 9 6 Vitaliy Medvedev Kazakhstan 0.209 10.75
## 87 1 3 Christopher Williams Jamaica 0.186 10.35
## 88 2 5 Mathew Quinn South Africa 0.170 10.44
## 89 3 7 Koji Ito Japan 0.234 10.45
## 90 4 6 Héber Viera Uruguay 0.246 10.54
## 91 5 4 Gabriel Simon Argentina 0.166 10.56
## 92 6 8 Erwin Heru Susanto Indonesia 0.164 10.87
## 93 7 1 Moumi Sebergue Chad 0.249 11.00
## 94 8 9 Guillermo Dongo Suriname 0.197 11.10
## 95 9 2 Nelson Lucas Seychelles 0.218 11.15
## 96 1 4 Maurice Greene United States 0.182 10.10
## 97 2 2 Leo Myles-Mills Ghana 0.145 10.23
## 98 3 5 Sunday Emmanuel Nigeria 0.165 10.36
## 99 4 6 Marcin Nowak Poland 0.186 10.37
## 100 5 8 Sayon Cooper Liberia 0.147 10.37
## 101 6 1 Ibrahim Meité Ivory Coast 0.191 10.40
## 102 7 3 Serge Bengono Cameroon 0.222 10.46
## 103 8 7 Shingo Kawabata Japan 0.184 10.60
## 104 1 3 Ato Boldon Trinidad and Tobago 0.155 10.11
## 105 2 4 Kim Collins Saint Kitts and Nevis 0.222 10.19
## 106 3 2 Bruny Surin Canada 0.130 10.20
## 107 4 5 Jason Gardener Great Britain 0.177 10.27
## 108 5 6 Christopher Williams Jamaica 0.187 10.30
## 109 6 8 Freddy Mayola Cuba 0.144 10.35
## 110 7 1 Piotr Balcerzak Poland 0.152 10.38
## 111 8 9 Martin Lachkovics Austria 0.189 10.44
## 112 9 7 Joseph Batangdon Cameroon 0.231 10.52
## 113 1 3 Obadele Thompson Barbados 0.187 10.04
## 114 2 5 Matt Shirvington Australia 0.142 10.13
## 115 3 6 Aziz Zakari Ghana 0.193 10.22
## 116 4 2 Lindel Frater Jamaica 0.185 10.23
## 117 5 4 Vicente de Lima Brazil 0.191 10.28
## 118 6 7 David Patros France 0.241 10.33
## 119 7 8 Kostyantyn Rurak Ukraine 0.191 10.38
## 120 8 1 Donovan Bailey Canada 0.216 11.36
## 121 1 4 Dwain Chambers Great Britain 0.150 10.12
## 122 2 5 Jonathan Drummond United States 0.145 10.15
## 123 3 1 Koji Ito Japan 0.221 10.25
## 124 4 6 Stéphane Buckland Mauritius 0.150 10.26
## 125 5 3 Antoine Boussombo Gabon 0.190 10.27
## 126 6 7 Stefano Tilli Italy 0.162 10.27
## 127 7 2 Mathew Quinn South Africa 0.157 10.27
## 128 8 8 Patrick Jarrett Jamaica 0.184 16.40
## 129 1 5 Darren Campbell Great Britain 0.229 10.21
## 130 2 3 Curtis Johnson United States 0.142 10.24
## 131 3 4 Deji Aliu Nigeria 0.181 10.29
## 132 4 7 Georgios Theodoridis Greece 0.144 10.29
## 133 5 6 Patrick Johnson Australia 0.236 10.44
## 134 6 1 Claudio Sousa Brazil 0.182 10.47
## 135 7 8 Anninos Marcoullides Cyprus 0.183 10.48
## 136 8 2 Venancio José Spain 0.189 10.53
## 137 1 5 Dwain Chambers Great Britain 0.164 10.14
## 138 2 4 Obadele Thompson Barbados 0.189 10.15
## 139 3 3 Darren Campbell Great Britain 0.161 10.19
## 140 4 6 Kim Collins Saint Kitts and Nevis 0.184 10.20
## 141 5 7 Leo Myles-Mills Ghana 0.220 10.25
## 142 6 1 Curtis Johnson United States 0.146 10.27
## 143 7 2 Koji Ito Japan 0.217 10.39
## 144 8 8 Lindel Frater Jamaica 0.203 10.46
## 145 1 5 Maurice Greene United States 0.227 10.06
## 146 2 3 Jonathan Drummond United States 0.137 10.10
## 147 3 4 Ato Boldon Trinidad and Tobago 0.212 10.13
## 148 4 1 Aziz Zakari Ghana 0.236 10.16
## 149 5 6 Matt Shirvington Australia 0.166 10.26
## 150 6 8 Deji Aliu Nigeria 0.253 10.32
## 151 7 7 Sunday Emmanuel Nigeria 0.163 10.45
## 152 Gold 5 Maurice Greene United States 0.197 9.87
## 153 Silver 8 Ato Boldon Trinidad and Tobago 0.136 9.99
## 154 Bronze 4 Obadele Thompson Barbados 0.216 10.04
## 155 4 3 Dwain Chambers Great Britain 0.174 10.08
## 156 5 6 Jon Drummond United States 0.147 10.09
## 157 6 1 Darren Campbell Great Britain 0.193 10.13
## 158 7 7 Kim Collins Saint Kitts and Nevis 0.210 10.17
## Notes Heat Var.7 Year Host City Host Country
## 1 Q 1 <NA> 2000 Sydney Australia
## 2 Q 1 <NA> 2000 Sydney Australia
## 3 Q 1 <NA> 2000 Sydney Australia
## 4 q 1 <NA> 2000 Sydney Australia
## 5 1 <NA> 2000 Sydney Australia
## 6 1 <NA> 2000 Sydney Australia
## 7 1 <NA> 2000 Sydney Australia
## 8 1 <NA> 2000 Sydney Australia
## 9 1 <NA> 2000 Sydney Australia
## 10 Q 2 <NA> 2000 Sydney Australia
## 11 Q 2 <NA> 2000 Sydney Australia
## 12 Q 2 <NA> 2000 Sydney Australia
## 13 q 2 <NA> 2000 Sydney Australia
## 14 q 2 <NA> 2000 Sydney Australia
## 15 2 <NA> 2000 Sydney Australia
## 16 2 <NA> 2000 Sydney Australia
## 17 2 <NA> 2000 Sydney Australia
## 18 2 <NA> 2000 Sydney Australia
## 19 Q 3 <NA> 2000 Sydney Australia
## 20 Q 3 <NA> 2000 Sydney Australia
## 21 Q 3 <NA> 2000 Sydney Australia
## 22 q 3 <NA> 2000 Sydney Australia
## 23 3 <NA> 2000 Sydney Australia
## 24 SB 3 <NA> 2000 Sydney Australia
## 25 3 <NA> 2000 Sydney Australia
## 26 3 <NA> 2000 Sydney Australia
## 27 Q 4 <NA> 2000 Sydney Australia
## 28 Q 4 <NA> 2000 Sydney Australia
## 29 Q 4 <NA> 2000 Sydney Australia
## 30 q 4 <NA> 2000 Sydney Australia
## 31 4 <NA> 2000 Sydney Australia
## 32 4 <NA> 2000 Sydney Australia
## 33 4 <NA> 2000 Sydney Australia
## 34 NR 4 <NA> 2000 Sydney Australia
## 35 4 <NA> 2000 Sydney Australia
## 36 Q 5 <NA> 2000 Sydney Australia
## 37 Q 5 <NA> 2000 Sydney Australia
## 38 Q 5 <NA> 2000 Sydney Australia
## 39 5 <NA> 2000 Sydney Australia
## 40 5 <NA> 2000 Sydney Australia
## 41 5 <NA> 2000 Sydney Australia
## 42 5 <NA> 2000 Sydney Australia
## 43 5 <NA> 2000 Sydney Australia
## 44 Q 6 <NA> 2000 Sydney Australia
## 45 Q 6 <NA> 2000 Sydney Australia
## 46 Q 6 <NA> 2000 Sydney Australia
## 47 6 <NA> 2000 Sydney Australia
## 48 6 <NA> 2000 Sydney Australia
## 49 6 <NA> 2000 Sydney Australia
## 50 6 <NA> 2000 Sydney Australia
## 51 Q 7 <NA> 2000 Sydney Australia
## 52 Q 7 <NA> 2000 Sydney Australia
## 53 Q 7 <NA> 2000 Sydney Australia
## 54 7 <NA> 2000 Sydney Australia
## 55 7 <NA> 2000 Sydney Australia
## 56 7 <NA> 2000 Sydney Australia
## 57 7 <NA> 2000 Sydney Australia
## 58 NR 7 <NA> 2000 Sydney Australia
## 59 7 <NA> 2000 Sydney Australia
## 60 Q 8 <NA> 2000 Sydney Australia
## 61 Q, =NR 8 <NA> 2000 Sydney Australia
## 62 Q, SB 8 <NA> 2000 Sydney Australia
## 63 q, PB 8 <NA> 2000 Sydney Australia
## 64 q 8 <NA> 2000 Sydney Australia
## 65 q, SB 8 <NA> 2000 Sydney Australia
## 66 8 <NA> 2000 Sydney Australia
## 67 8 <NA> 2000 Sydney Australia
## 68 SB 8 <NA> 2000 Sydney Australia
## 69 Q 9 <NA> 2000 Sydney Australia
## 70 Q 9 <NA> 2000 Sydney Australia
## 71 Q 9 <NA> 2000 Sydney Australia
## 72 9 <NA> 2000 Sydney Australia
## 73 9 <NA> 2000 Sydney Australia
## 74 9 <NA> 2000 Sydney Australia
## 75 9 <NA> 2000 Sydney Australia
## 76 PB 9 <NA> 2000 Sydney Australia
## 77 9 <NA> 2000 Sydney Australia
## 78 Q 10 <NA> 2000 Sydney Australia
## 79 Q 10 <NA> 2000 Sydney Australia
## 80 Q 10 <NA> 2000 Sydney Australia
## 81 10 <NA> 2000 Sydney Australia
## 82 10 <NA> 2000 Sydney Australia
## 83 10 <NA> 2000 Sydney Australia
## 84 10 <NA> 2000 Sydney Australia
## 85 10 <NA> 2000 Sydney Australia
## 86 10 <NA> 2000 Sydney Australia
## 87 Q 11 <NA> 2000 Sydney Australia
## 88 Q 11 <NA> 2000 Sydney Australia
## 89 Q 11 <NA> 2000 Sydney Australia
## 90 11 <NA> 2000 Sydney Australia
## 91 11 <NA> 2000 Sydney Australia
## 92 11 <NA> 2000 Sydney Australia
## 93 11 <NA> 2000 Sydney Australia
## 94 11 <NA> 2000 Sydney Australia
## 95 11 <NA> 2000 Sydney Australia
## 96 Q Quarter Final <NA> 2000 Sydney Australia
## 97 Q Quarter Final <NA> 2000 Sydney Australia
## 98 Q Quarter Final <NA> 2000 Sydney Australia
## 99 Quarter Final <NA> 2000 Sydney Australia
## 100 Quarter Final <NA> 2000 Sydney Australia
## 101 Quarter Final <NA> 2000 Sydney Australia
## 102 Quarter Final <NA> 2000 Sydney Australia
## 103 Quarter Final <NA> 2000 Sydney Australia
## 104 Q Quarter Final <NA> 2000 Sydney Australia
## 105 Q Quarter Final <NA> 2000 Sydney Australia
## 106 Q Quarter Final <NA> 2000 Sydney Australia
## 107 Quarter Final <NA> 2000 Sydney Australia
## 108 Quarter Final <NA> 2000 Sydney Australia
## 109 Quarter Final <NA> 2000 Sydney Australia
## 110 Quarter Final <NA> 2000 Sydney Australia
## 111 Quarter Final <NA> 2000 Sydney Australia
## 112 Quarter Final <NA> 2000 Sydney Australia
## 113 Q Quarter Final <NA> 2000 Sydney Australia
## 114 Q Quarter Final <NA> 2000 Sydney Australia
## 115 Q Quarter Final <NA> 2000 Sydney Australia
## 116 q Quarter Final <NA> 2000 Sydney Australia
## 117 Quarter Final <NA> 2000 Sydney Australia
## 118 Quarter Final <NA> 2000 Sydney Australia
## 119 Quarter Final <NA> 2000 Sydney Australia
## 120 Quarter Final <NA> 2000 Sydney Australia
## 121 Q Quarter Final <NA> 2000 Sydney Australia
## 122 Q Quarter Final <NA> 2000 Sydney Australia
## 123 Q, SB Quarter Final <NA> 2000 Sydney Australia
## 124 Quarter Final <NA> 2000 Sydney Australia
## 125 Quarter Final <NA> 2000 Sydney Australia
## 126 Quarter Final <NA> 2000 Sydney Australia
## 127 Quarter Final <NA> 2000 Sydney Australia
## 128 Quarter Final <NA> 2000 Sydney Australia
## 129 Q Quarter Final <NA> 2000 Sydney Australia
## 130 Q Quarter Final <NA> 2000 Sydney Australia
## 131 Q Quarter Final <NA> 2000 Sydney Australia
## 132 Quarter Final <NA> 2000 Sydney Australia
## 133 Quarter Final <NA> 2000 Sydney Australia
## 134 Quarter Final <NA> 2000 Sydney Australia
## 135 Quarter Final <NA> 2000 Sydney Australia
## 136 Quarter Final <NA> 2000 Sydney Australia
## 137 Q Semi Final <NA> 2000 Sydney Australia
## 138 Q Semi Final <NA> 2000 Sydney Australia
## 139 Q Semi Final <NA> 2000 Sydney Australia
## 140 Q Semi Final <NA> 2000 Sydney Australia
## 141 Semi Final <NA> 2000 Sydney Australia
## 142 Semi Final <NA> 2000 Sydney Australia
## 143 Semi Final <NA> 2000 Sydney Australia
## 144 Semi Final <NA> 2000 Sydney Australia
## 145 Q Semi Final <NA> 2000 Sydney Australia
## 146 Q Semi Final <NA> 2000 Sydney Australia
## 147 Q Semi Final <NA> 2000 Sydney Australia
## 148 Q Semi Final <NA> 2000 Sydney Australia
## 149 Semi Final <NA> 2000 Sydney Australia
## 150 Semi Final <NA> 2000 Sydney Australia
## 151 Semi Final <NA> 2000 Sydney Australia
## 152 <NA> Final 2000 Sydney Australia
## 153 <NA> Final 2000 Sydney Australia
## 154 <NA> Final 2000 Sydney Australia
## 155 <NA> Final SB 2000 Sydney Australia
## 156 <NA> Final 2000 Sydney Australia
## 157 <NA> Final 2000 Sydney Australia
## 158 <NA> Final 2000 Sydney Australia
Atlanta 1996
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")
atl_men_100m_2 <- atl_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_men_100m_3 <- atl_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_men_100m_4 <- atl_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_men_100m_5 <- atl_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_men_100m_6 <- atl_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_men_100m_7 <- atl_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_men_100m_8 <- atl_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_men_100m_9 <- atl_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_men_100m_10 <- atl_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_men_100m_11 <- atl_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
atl_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")
atl_men_100m_20 <- atl_men_100m_20 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
atl_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(Time))%>%
add_column("Year"=1996,"Host City" ="Atlanta", "Host Country"="United States")
atl_men_100m_all[162,1]<- "Gold"
atl_men_100m_all[163,1]<- "Silver"
atl_men_100m_all[164,1]<- "Bronze"
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 Gold 6 Donovan Bailey Canada <NA>
## 163 Silver 5 Frank Fredericks Namibia <NA>
## 164 Bronze 3 Ato Boldon Trinidad and Tobago <NA>
## 165 4 4 Dennis Mitchell United States <NA>
## 166 5 1 Michael Marsh United States <NA>
## 167 6 7 Davidson Ezinwa Nigeria <NA>
## 168 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 1 1996 Atlanta United States
## 11 10.08 Q 1 1996 Atlanta United States
## 12 10.24 Q 1 1996 Atlanta United States
## 13 10.48 1 1996 Atlanta United States
## 14 10.49 1 1996 Atlanta United States
## 15 10.57 1 1996 Atlanta United States
## 16 10.98 1 1996 Atlanta United States
## 17 12.20 1 1996 Atlanta United States
## 18 10.06 Q 1 1996 Atlanta United States
## 19 10.26 Q 1 1996 Atlanta United States
## 20 10.27 Q 1 1996 Atlanta United States
## 21 10.34 q 1 1996 Atlanta United States
## 22 10.38 q 1 1996 Atlanta United States
## 23 10.38 1 1996 Atlanta United States
## 24 10.44 1 1996 Atlanta United States
## 25 10.85 1 1996 Atlanta United States
## 26 11.02 1 1996 Atlanta United States
## 27 10.16 Q 1 1996 Atlanta United States
## 28 10.21 Q 1 1996 Atlanta United States
## 29 10.29 Q 1 1996 Atlanta United States
## 30 10.33 q 1 1996 Atlanta United States
## 31 10.39 1 1996 Atlanta United States
## 32 10.39 1 1996 Atlanta United States
## 33 10.48 1 1996 Atlanta United States
## 34 10.71 1 1996 Atlanta United States
## 35 10.88 1 1996 Atlanta United States
## 36 10.34 Q 1 1996 Atlanta United States
## 37 10.34 Q 1 1996 Atlanta United States
## 38 10.37 Q 1 1996 Atlanta United States
## 39 10.52 1 1996 Atlanta United States
## 40 10.58 1 1996 Atlanta United States
## 41 10.74 1 1996 Atlanta United States
## 42 10.90 1 1996 Atlanta United States
## 43 11.12 1 1996 Atlanta United States
## 44 11.24 1 1996 Atlanta United States
## 45 10.24 Q 1 1996 Atlanta United States
## 46 10.27 Q 1 1996 Atlanta United States
## 47 10.33 Q 1 1996 Atlanta United States
## 48 10.48 1 1996 Atlanta United States
## 49 10.51 1 1996 Atlanta United States
## 50 10.56 1 1996 Atlanta United States
## 51 10.58 1 1996 Atlanta United States
## 52 10.72 1 1996 Atlanta United States
## 53 10.74 1 1996 Atlanta United States
## 54 10.33 Q 1 1996 Atlanta United States
## 55 10.37 Q 1 1996 Atlanta United States
## 56 10.41 Q 1 1996 Atlanta United States
## 57 10.57 1 1996 Atlanta United States
## 58 10.64 1 1996 Atlanta United States
## 59 10.71 1 1996 Atlanta United States
## 60 11.11 1 1996 Atlanta United States
## 61 11.65 1 1996 Atlanta United States
## 62 22.69 1 1996 Atlanta United States
## 63 10.14 Q 1 1996 Atlanta United States
## 64 10.29 Q 1 1996 Atlanta United States
## 65 10.47 Q 1 1996 Atlanta United States
## 66 10.49 1 1996 Atlanta United States
## 67 10.52 1 1996 Atlanta United States
## 68 10.60 1 1996 Atlanta United States
## 69 10.62 1 1996 Atlanta United States
## 70 10.89 1 1996 Atlanta United States
## 71 11.05 1 1996 Atlanta United States
## 72 10.25 Q 1 1996 Atlanta United States
## 73 10.26 Q 1 1996 Atlanta United States
## 74 10.32 Q 1 1996 Atlanta United States
## 75 10.34 q 1 1996 Atlanta United States
## 76 10.53 1 1996 Atlanta United States
## 77 10.65 1 1996 Atlanta United States
## 78 10.66 1 1996 Atlanta United States
## 79 10.73 1 1996 Atlanta United States
## 80 10.76 1 1996 Atlanta United States
## 81 10.26 Q 1 1996 Atlanta United States
## 82 10.39 Q 1 1996 Atlanta United States
## 83 10.41 Q 1 1996 Atlanta United States
## 84 10.42 1 1996 Atlanta United States
## 85 10.52 1 1996 Atlanta United States
## 86 10.55 1 1996 Atlanta United States
## 87 10.78 1 1996 Atlanta United States
## 88 10.91 1 1996 Atlanta United States
## 89 11.14 1 1996 Atlanta United States
## 90 10.24 Q 1 1996 Atlanta United States
## 91 10.28 Q 1 1996 Atlanta United States
## 92 10.35 Q 1 1996 Atlanta United States
## 93 10.39 1 1996 Atlanta United States
## 94 10.42 1 1996 Atlanta United States
## 95 10.46 1 1996 Atlanta United States
## 96 10.70 1 1996 Atlanta United States
## 97 10.98 1 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.84 WR Final 1996 Atlanta United States
## 163 9.89 Final 1996 Atlanta United States
## 164 9.90 Final 1996 Atlanta United States
## 165 9.99 Final 1996 Atlanta United States
## 166 10.00 Final 1996 Atlanta United States
## 167 10.14 Final 1996 Atlanta United States
## 168 10.16 Final 1996 Atlanta United States
Barcelona 1992
bar_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1992_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-bar_men_100m%>%html_table(fill=TRUE)
bar_men_100m_1<-tables[[5]]
bar_men_100m_2<-tables[[6]]
bar_men_100m_3<-tables[[7]]
bar_men_100m_4<-tables[[8]]
bar_men_100m_5<-tables[[9]]
bar_men_100m_6<-tables[[10]]
bar_men_100m_7<-tables[[11]]
bar_men_100m_8<-tables[[12]]
bar_men_100m_9<-tables[[13]]
bar_men_100m_10<-tables[[14]]
bar_men_100m_11<-tables[[15]]
bar_men_100m_12<-tables[[16]]
bar_men_100m_13<-tables[[17]]
bar_men_100m_14<-tables[[18]]
bar_men_100m_15<-tables[[19]]
bar_men_100m_16<-tables[[20]]
bar_men_100m_17<-tables[[21]]
bar_men_100m_1 <- bar_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
bar_men_100m_2 <- bar_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
bar_men_100m_3 <- bar_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
bar_men_100m_4 <- bar_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
bar_men_100m_5 <- bar_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
bar_men_100m_6 <- bar_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
bar_men_100m_7 <- bar_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
bar_men_100m_8 <- bar_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
bar_men_100m_9 <- bar_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
bar_men_100m_10 <- bar_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
bar_men_100m_11 <- bar_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
bar_men_100m_12 <- bar_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
bar_men_100m_13 <- bar_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
bar_men_100m_14 <- bar_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
bar_men_100m_15 <- bar_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
bar_men_100m_16 <- bar_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
bar_men_100m_17 <- bar_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
bar_men_100m_all <- bind_rows(bar_men_100m_1, bar_men_100m_2, bar_men_100m_3, bar_men_100m_4, bar_men_100m_5, bar_men_100m_6, bar_men_100m_7, bar_men_100m_8, bar_men_100m_9, bar_men_100m_10, bar_men_100m_11, bar_men_100m_12, bar_men_100m_13, bar_men_100m_14, bar_men_100m_15, bar_men_100m_16, bar_men_100m_17)
bar_men_100m_all <- bar_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1992,"Host City" ="Barcelona", "Host Country"="Spain")
bar_men_100m_all[126,1]<- "Gold"
bar_men_100m_all[127,1]<- "Silver"
bar_men_100m_all[128,1]<- "Bronze"
bar_men_100m_all
## Rank Athlete Nation Time Notes
## 1 1 Leroy Burrell United States 10.21 Q
## 2 2 Satoru Inoue Japan 10.48 Q
## 3 3 Jean-Olivier Zirignon Ivory Coast 10.55 Q
## 4 4 Abdulieh Janneh The Gambia 10.71
## 5 5 Hassane Illiassou Niger 10.73
## 6 6 Khalid Juma Juma Bahrain 10.80
## 7 7 Jaime Zelaya Honduras 11.02
## 8 8 Claude Roumain Haiti 11.07
## 9 1 Dennis Mitchell United States 10.21 Q
## 10 2 Vitaliy Savin Unified Team 10.29 Q
## 11 3 Samuel Nchinda Cameroon 10.41 Q
## 12 4 Gustavo Envela Mahua Equatorial Guinea 10.65
## 13 5 Florencio Aguilar Panama 10.73
## 14 6 Dominique Canti San Marino 10.80
## 15 1 Linford Christie Great Britain 10.48 Q
## 16 2 Arnaldo da Silva Brazil 10.55 Q
## 17 3 Daniel Sangouma France 10.63 Q
## 18 4 Ato Boldon Trinidad and Tobago 10.77
## 19 5 Hussain Arif Pakistan 10.83
## 20 6 Fabian Muyaba Zimbabwe 10.84
## 21 7 Pascal Dangbo Benin 11.03
## 22 8 Henry Daley Colphon Costa Rica 11.11
## 23 1 Frankie Fredericks Namibia 10.29 Q
## 24 2 Marcus Adam Great Britain 10.57 Q
## 25 3 Atlee Mahorn Canada 10.64 Q
## 26 4 Boevi Lawson Togo 10.69
## 27 5 Sriyantha Dissanayake Sri Lanka 10.87
## 28 6 Gabriel Simeon Grenada 11.10
## 29 7 Adam Hassan Sakak Sudan 11.12
## 30 8 Robinson Stewart Swaziland 11.20
## 31 1 Ray Stewart Jamaica 10.61 Q
## 32 2 Patrick Stevens Belgium 10.63 Q
## 33 3 John Myles-Mills Ghana 10.64 Q
## 34 4 Neville Hodge Virgin Islands 10.71
## 35 5 Henrico Atkins Barbados 10.83
## 36 6 Golam Ambia Bangladesh 11.06
## 37 7 Gabrieli Qoro Fiji 11.14
## 38 8 Mark Sherwin Cook Islands 11.53
## 39 1 Davidson Ezinwa Nigeria 10.31 Q
## 40 2 Ben Johnson Canada 10.55 Q
## 41 3 Eric Akogyiram Ghana 10.60 Q
## 42 4 Juan Trapero Spain 10.64
## 43 5 Joel Otim Uganda 10.84
## 44 6 Soryba Diakité Guinea 11.10
## 45 7 Ould Nouroudine Mauritania 11.22
## 46 8 Ahmed Shageef Maldives 11.36
## 47 1 Olapade Adeniken Nigeria 10.36 Q
## 48 2 Talal Mansour Al-Rahim Qatar 10.43 Q
## 49 3 Stefan Burkart Switzerland 10.67 Q
## 50 4 Visut Watanasin Thailand 10.72
## 51 5 André da Silva Brazil 10.78
## 52 6 Valentin Ngbogo Central African Republic 10.79
## 53 7 Bernard Manana Papua New Guinea 11.35
## 54 8 Sitthixay Sacpraseuth Laos 12.02
## 55 1 Chidi Imoh Nigeria 10.47 Q
## 56 2 Daniel Cojocaru Romania 10.57 Q
## 57 3 Sanusi Turay Sierra Leone 10.58 Q
## 58 4 Kennedy Ondieki Kenya 10.60
## 59 5 Kareem Streete-Thompson Cayman Islands 10.78
## 60 6 David Nkoua Republic of the Congo 10.96
## 61 7 Emery Gill Belize 11.51
## 62 8 Ahmed Al-Moamari Bashir Oman 11.58
## 63 1 Max Morinière France 10.36 Q
## 64 2 Bruny Surin Canada 10.37 Q
## 65 3 Emmanuel Tuffour Ghana 10.45 Q
## 66 4 Tatsuo Sugimoto Japan 10.56
## 67 5 Ku Wai Ming Hong Kong 10.74
## 68 6 Toluta'u Koula Tonga 10.85
## 69 7 Afonso Ferraz Angola 11.32
## 70 8 Fletcher Wamilee Vanuatu 11.41
## 71 1 Robson da Silva Brazil 10.24 Q
## 72 2 Mark Witherspoon United States 10.27 Q
## 73 3 Pavel Galkin Unified Team 10.43 Q
## 74 4 Yiannis Zisimides Cyprus 10.51 q
## 75 5 Shinji Aoto Japan 10.54 q
## 76 6 Charles Louis Seck Senegal 10.57
## 77 7 Ousmane Diarra Mali 10.87
## 78 8 Bothloko Shebe Lesotho 10.94
## 79 1 Mark Witherspoon United States 10.19 Q
## 80 2 Robson da Silva Brazil 10.29 Q
## 81 3 Talal Mansour Al-Rahim Qatar 10.32 Q
## 82 4 Max Morinière France 10.34 Q
## 83 5 Marcus Adam Great Britain 10.35
## 84 6 Pavel Galkin Unified Team 10.37
## 85 7 Eric Akogyiram Ghana 10.68
## 86 8 Atlee Mahorn Canada 10.77
## 87 1 Frankie Fredericks Namibia 10.13 Q
## 88 2 Bruny Surin Canada 10.24 Q
## 89 3 Vitaliy Savin Unified Team 10.33 Q
## 90 4 Davidson Ezinwa Nigeria 10.38 Q
## 91 5 John Myles-Mills Ghana 10.41
## 92 6 Stefan Burkart Switzerland 10.57
## 93 7 Samuel Nchinda Cameroon 10.58
## 94 8 Patrick Stevens Belgium 10.69
## 95 1 Dennis Mitchell United States 10.22 Q
## 96 2 Olapade Adeniken Nigeria 10.22 Q
## 97 3 Emmanuel Tuffour Ghana 10.31 Q
## 98 4 Ray Stewart Jamaica 10.36 Q
## 99 5 Satoru Inoue Japan 10.50
## 100 6 Daniel Cojocaru Romania 10.57
## 101 7 Daniel Sangouma France 10.64
## 102 8 Yiannis Zisimides Cyprus 10.65
## 103 1 Linford Christie Great Britain 10.07 Q
## 104 2 Leroy Burrell United States 10.08 Q
## 105 3 Chidi Imoh Nigeria 10.21 Q
## 106 4 Ben Johnson Canada 10.30 Q
## 107 5 Sanusi Turay Sierra Leone 10.40
## 108 6 Arnaldo da Silva Brazil 10.47
## 109 7 Shinji Aoto Japan 10.53
## 110 8 Jean-Olivier Zirignon Ivory Coast 10.54
## 111 1 Leroy Burrell United States 9.97 Q
## 112 2 Linford Christie Great Britain 10.00 Q
## 113 3 Dennis Mitchell United States 10.10 Q
## 114 4 Davidson Ezinwa Nigeria 10.23 Q
## 115 5 Chidi Imoh Nigeria 10.30
## 116 6 Robson da Silva Brazil 10.32
## 117 7 Vitaliy Savin Unified Team 10.33
## 118 8 Ben Johnson Canada 10.70
## 119 1 Frankie Fredericks Namibia 10.17 Q
## 120 2 Bruny Surin Canada 10.21 Q
## 121 3 Olapade Adeniken Nigeria 10.28 Q
## 122 4 Ray Stewart Jamaica 10.33 Q
## 123 5 Talal Mansour Al-Rahim Qatar 10.34
## 124 6 Emmanuel Tuffour Ghana 10.34
## 125 7 Max Morinière France 10.42
## 126 Gold Linford Christie Great Britain 9.96 <NA>
## 127 Silver Frankie Fredericks Namibia 10.02 <NA>
## 128 Bronze Dennis Mitchell United States 10.04 <NA>
## 129 4 Bruny Surin Canada 10.09 <NA>
## 130 5 Leroy Burrell United States 10.10 <NA>
## 131 6 Olapade Adeniken Nigeria 10.12 <NA>
## 132 7 Ray Stewart Jamaica 10.22 <NA>
## 133 8 Davidson Ezinwa Nigeria 10.26 <NA>
## Heat Year Host City Host Country
## 1 1 1992 Barcelona Spain
## 2 1 1992 Barcelona Spain
## 3 1 1992 Barcelona Spain
## 4 1 1992 Barcelona Spain
## 5 1 1992 Barcelona Spain
## 6 1 1992 Barcelona Spain
## 7 1 1992 Barcelona Spain
## 8 1 1992 Barcelona Spain
## 9 2 1992 Barcelona Spain
## 10 2 1992 Barcelona Spain
## 11 2 1992 Barcelona Spain
## 12 2 1992 Barcelona Spain
## 13 2 1992 Barcelona Spain
## 14 2 1992 Barcelona Spain
## 15 3 1992 Barcelona Spain
## 16 3 1992 Barcelona Spain
## 17 3 1992 Barcelona Spain
## 18 3 1992 Barcelona Spain
## 19 3 1992 Barcelona Spain
## 20 3 1992 Barcelona Spain
## 21 3 1992 Barcelona Spain
## 22 3 1992 Barcelona Spain
## 23 4 1992 Barcelona Spain
## 24 4 1992 Barcelona Spain
## 25 4 1992 Barcelona Spain
## 26 4 1992 Barcelona Spain
## 27 4 1992 Barcelona Spain
## 28 4 1992 Barcelona Spain
## 29 4 1992 Barcelona Spain
## 30 4 1992 Barcelona Spain
## 31 5 1992 Barcelona Spain
## 32 5 1992 Barcelona Spain
## 33 5 1992 Barcelona Spain
## 34 5 1992 Barcelona Spain
## 35 5 1992 Barcelona Spain
## 36 5 1992 Barcelona Spain
## 37 5 1992 Barcelona Spain
## 38 5 1992 Barcelona Spain
## 39 6 1992 Barcelona Spain
## 40 6 1992 Barcelona Spain
## 41 6 1992 Barcelona Spain
## 42 6 1992 Barcelona Spain
## 43 6 1992 Barcelona Spain
## 44 6 1992 Barcelona Spain
## 45 6 1992 Barcelona Spain
## 46 6 1992 Barcelona Spain
## 47 7 1992 Barcelona Spain
## 48 7 1992 Barcelona Spain
## 49 7 1992 Barcelona Spain
## 50 7 1992 Barcelona Spain
## 51 7 1992 Barcelona Spain
## 52 7 1992 Barcelona Spain
## 53 7 1992 Barcelona Spain
## 54 7 1992 Barcelona Spain
## 55 8 1992 Barcelona Spain
## 56 8 1992 Barcelona Spain
## 57 8 1992 Barcelona Spain
## 58 8 1992 Barcelona Spain
## 59 8 1992 Barcelona Spain
## 60 8 1992 Barcelona Spain
## 61 8 1992 Barcelona Spain
## 62 8 1992 Barcelona Spain
## 63 9 1992 Barcelona Spain
## 64 9 1992 Barcelona Spain
## 65 9 1992 Barcelona Spain
## 66 9 1992 Barcelona Spain
## 67 9 1992 Barcelona Spain
## 68 9 1992 Barcelona Spain
## 69 9 1992 Barcelona Spain
## 70 9 1992 Barcelona Spain
## 71 10 1992 Barcelona Spain
## 72 10 1992 Barcelona Spain
## 73 10 1992 Barcelona Spain
## 74 10 1992 Barcelona Spain
## 75 10 1992 Barcelona Spain
## 76 10 1992 Barcelona Spain
## 77 10 1992 Barcelona Spain
## 78 10 1992 Barcelona Spain
## 79 Quarter Final 1992 Barcelona Spain
## 80 Quarter Final 1992 Barcelona Spain
## 81 Quarter Final 1992 Barcelona Spain
## 82 Quarter Final 1992 Barcelona Spain
## 83 Quarter Final 1992 Barcelona Spain
## 84 Quarter Final 1992 Barcelona Spain
## 85 Quarter Final 1992 Barcelona Spain
## 86 Quarter Final 1992 Barcelona Spain
## 87 Quarter Final 1992 Barcelona Spain
## 88 Quarter Final 1992 Barcelona Spain
## 89 Quarter Final 1992 Barcelona Spain
## 90 Quarter Final 1992 Barcelona Spain
## 91 Quarter Final 1992 Barcelona Spain
## 92 Quarter Final 1992 Barcelona Spain
## 93 Quarter Final 1992 Barcelona Spain
## 94 Quarter Final 1992 Barcelona Spain
## 95 Quarter Final 1992 Barcelona Spain
## 96 Quarter Final 1992 Barcelona Spain
## 97 Quarter Final 1992 Barcelona Spain
## 98 Quarter Final 1992 Barcelona Spain
## 99 Quarter Final 1992 Barcelona Spain
## 100 Quarter Final 1992 Barcelona Spain
## 101 Quarter Final 1992 Barcelona Spain
## 102 Quarter Final 1992 Barcelona Spain
## 103 Quarter Final 1992 Barcelona Spain
## 104 Quarter Final 1992 Barcelona Spain
## 105 Quarter Final 1992 Barcelona Spain
## 106 Quarter Final 1992 Barcelona Spain
## 107 Quarter Final 1992 Barcelona Spain
## 108 Quarter Final 1992 Barcelona Spain
## 109 Quarter Final 1992 Barcelona Spain
## 110 Quarter Final 1992 Barcelona Spain
## 111 Semi Final 1992 Barcelona Spain
## 112 Semi Final 1992 Barcelona Spain
## 113 Semi Final 1992 Barcelona Spain
## 114 Semi Final 1992 Barcelona Spain
## 115 Semi Final 1992 Barcelona Spain
## 116 Semi Final 1992 Barcelona Spain
## 117 Semi Final 1992 Barcelona Spain
## 118 Semi Final 1992 Barcelona Spain
## 119 Semi Final 1992 Barcelona Spain
## 120 Semi Final 1992 Barcelona Spain
## 121 Semi Final 1992 Barcelona Spain
## 122 Semi Final 1992 Barcelona Spain
## 123 Semi Final 1992 Barcelona Spain
## 124 Semi Final 1992 Barcelona Spain
## 125 Semi Final 1992 Barcelona Spain
## 126 Final 1992 Barcelona Spain
## 127 Final 1992 Barcelona Spain
## 128 Final 1992 Barcelona Spain
## 129 Final 1992 Barcelona Spain
## 130 Final 1992 Barcelona Spain
## 131 Final 1992 Barcelona Spain
## 132 Final 1992 Barcelona Spain
## 133 Final 1992 Barcelona Spain
Seoul 1988
seo_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1988_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-seo_men_100m%>%html_table(fill=TRUE)
seo_men_100m_1<-tables[[6]]
seo_men_100m_2<-tables[[7]]
seo_men_100m_3<-tables[[8]]
seo_men_100m_4<-tables[[9]]
seo_men_100m_5<-tables[[10]]
seo_men_100m_6<-tables[[11]]
seo_men_100m_7<-tables[[12]]
seo_men_100m_8<-tables[[13]]
seo_men_100m_9<-tables[[14]]
seo_men_100m_10<-tables[[15]]
seo_men_100m_11<-tables[[16]]
seo_men_100m_12<-tables[[17]]
seo_men_100m_13<-tables[[18]]
seo_men_100m_14<-tables[[19]]
seo_men_100m_15<-tables[[20]]
seo_men_100m_16<-tables[[21]]
seo_men_100m_17<-tables[[22]]
seo_men_100m_18<-tables[[23]]
seo_men_100m_19<-tables[[24]]
seo_men_100m_20<-tables[[25]]
seo_men_100m_21<-tables[[26]]
seo_men_100m_22<-tables[[27]]
seo_men_100m_1 <- seo_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
seo_men_100m_2 <- seo_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
seo_men_100m_3 <- seo_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
seo_men_100m_4 <- seo_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
seo_men_100m_5 <- seo_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
seo_men_100m_6 <- seo_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
seo_men_100m_7 <- seo_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
seo_men_100m_8 <- seo_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
seo_men_100m_9 <- seo_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
seo_men_100m_10 <- seo_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
seo_men_100m_11 <- seo_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
seo_men_100m_12 <- seo_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
seo_men_100m_13 <- seo_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "13")
seo_men_100m_14 <- seo_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
seo_men_100m_15 <- seo_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
seo_men_100m_16 <- seo_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
seo_men_100m_17 <- seo_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
seo_men_100m_18 <- seo_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
seo_men_100m_19 <- seo_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
seo_men_100m_20 <- seo_men_100m_20 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
seo_men_100m_21 <- seo_men_100m_21 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
seo_men_100m_22 <- seo_men_100m_22 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
seo_men_100m_all <- bind_rows(seo_men_100m_1, seo_men_100m_2, seo_men_100m_3, seo_men_100m_4, seo_men_100m_5, seo_men_100m_6, seo_men_100m_7, seo_men_100m_8, seo_men_100m_9, seo_men_100m_10, seo_men_100m_11, seo_men_100m_12, seo_men_100m_13, seo_men_100m_14, seo_men_100m_15, seo_men_100m_16, seo_men_100m_17, seo_men_100m_18, seo_men_100m_19, seo_men_100m_20, seo_men_100m_21, seo_men_100m_22)
seo_men_100m_all <- seo_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1988,"Host City" ="Seoul", "Host Country"="South Korea")
seo_men_100m_all[165,1]<- "Gold"
seo_men_100m_all[166,1]<- "Silver"
seo_men_100m_all[167,1]<- "Bronze"
seo_men_100m_all
## Rank Athlete Nation Time Notes
## 1 1 Robson da Silva Brazil 10.37 Q
## 2 2 Ezio Madonia Italy 10.40 Q
## 3 3 Cheng Hsin-fu Chinese Taipei 10.48 Q
## 4 4 Thierry Lauret France 10.56 q
## 5 5 Boevi Lawson Togo 10.59
## 6 6 Leung Wing Kwong Hong Kong 10.82
## 7 7 Mohamed Fahd Al-Bishi Saudi Arabia 10.85
## 8 8 Jerry Jeremiah Vanuatu 10.96
## 9 1 Calvin Smith United States 10.28 Q
## 10 2 Attila Kovács Hungary 10.39 Q
## 11 3 Mardi Lestari Indonesia 10.40 Q
## 12 4 Andrey Razin Soviet Union 10.58
## 13 5 Henri Ndinga Republic of the Congo 10.74
## 14 6 Fabian Muyaba Zimbabwe 10.75
## 15 7 Moustafa Kamel Salmi Algeria 11.08
## 16 8 Markus Büchel Liechtenstein 11.21
## 17 1 Talal Mansour Qatar 10.42 Q
## 18 2 Juan Núñez Dominican Republic 10.47 Q
## 19 3 Amadou M'Baye Senegal 10.64 Q
## 20 4 Fabian Whymns Bahamas 10.70
## 21 5 Neville Hodge Virgin Islands 10.73
## 22 6 Horace Dove-Edwin Sierra Leone 10.89
## 23 7 Alexandre Yougbare Burkina Faso 10.90
## 24 8 Henrico Atkins Barbados 11.01
## 25 1 Emmanuel Tuffour Ghana 10.31 Q
## 26 2 Koji Kurihara Japan 10.46 Q
## 27 3 Andrew Smith Jamaica 10.49 Q
## 28 4 Zheng Chen China 10.51 q
## 29 5 István Tatár Hungary 10.52 q
## 30 6 Christian Haas West Germany 10.54 q
## 31 7 John Hou Papua New Guinea 10.96
## 32 8 Ehab Fuad Ahmed Nagi South Yemen 11.53
## 33 1 Linford Christie Great Britain 10.19 Q
## 34 2 Max Morinière France 10.34 Q
## 35 3 Sven Matthes East Germany 10.35 Q
## 36 4 Li Tao China 10.47 q
## 37 5 Samuel Nchinda-Kaya Cameroon 10.60
## 38 6 Lee Shiunn-long Chinese Taipei 10.69
## 39 7 Bill Trott Bermuda 10.69
## 40 8 Frank Maziya Swaziland 11.52
## 41 1 Chidi Imoh Nigeria 10.62 Q
## 42 2 Charles-Louis Seck Senegal 10.64 Q
## 43 3 Issa Alassane-Ousséni Benin 10.72 Q
## 44 4 John Regis Great Britain 10.76
## 45 5 Mothobi Kharitse Lesotho 10.97
## 46 6 Robert Loua Guinea 11.20
## 47 7 Samuel Birch Liberia 11.68
## 48 1 Ray Stewart Jamaica 10.22 Q
## 49 2 Pierfrancesco Pavoni Italy 10.36 Q
## 50 3 Vitaliy Savin Soviet Union 10.52 Q
## 51 4 György Fetter Hungary 10.54 q
## 52 5 Khaled Ibrahim Jouma Bahrain 10.80
## 53 6 Muhammad Afzal Pakistan 10.91
## 54 7 Claude Roumain Haiti 11.22
## 55 1 Ben Johnson Canada 10.37 Q
## 56 2 Cai Jianming China 10.55 Q
## 57 3 Sim Deok-Seop South Korea 10.56 Q
## 58 4 Carlos Moreno Chile 10.70
## 59 5 Abdullah Salem Al-Khalidi Oman 10.90
## 60 6 Mohamed Shah Jalal Bangladesh 10.94
## 61 7 Joseph Ssali Uganda 10.95
## 62 8 St. Clair Soleyne Antigua and Barbuda 11.17
## 63 1 Desai Williams Canada 10.24 Q
## 64 2 Peter Wekesa Kenya 10.50 Q
## 65 3 Olapade Adeniken Nigeria 10.56 Q
## 66 4 Eduardo Nava Mexico 10.68
## 67 5 Jailto Bonfim Brazil 10.75
## 68 6 Lindel Hodge British Virgin Islands 10.79
## 69 7 Visut Watanasin Thailand 10.88
## 70 8 Arménio Fernandes Angola 10.92
## 71 1 Vladimir Krylov Soviet Union 10.34 Q
## 72 2 Arnaldo da Silva Brazil 10.44 Q
## 73 3 Michele Lazazzera Italy 10.47 Q
## 74 4 Kennedy Ondiek Kenya 10.51 q
## 75 5 Takahiko Kasahara Japan 10.62
## 76 6 Jimmy Flemming Virgin Islands 10.70
## 77 7 Jihad Salame Lebanon 11.49
## 78 8 Gilbert Bessi Monaco 11.55
## 79 1 Dennis Mitchell United States 10.37 Q
## 80 2 Isiaq Adeyanju Nigeria 10.45 Q
## 81 3 Ousmane Diarra Mali 10.53 Q
## 82 4 Oliver Daniels Liberia 10.68
## 83 5 Luís Cunha Portugal 10.80
## 84 6 Evaristo Ortíz Dominican Republic 11.01
## 85 7 Nguyễn Đình Minh Vietnam 11.09
## 86 8 Secundino Borabota Equatorial Guinea 11.52
## 87 1 John Myles-Mills Ghana 10.31 Q
## 88 2 Andreas Berger Austria 10.40 Q
## 89 3 Barrington Williams Great Britain 10.51 Q
## 90 4 Patrick Stevens Belgium 10.51 q
## 91 5 Enrique Talavera Spain 10.61
## 92 6 Tomohiro Osawa Japan 10.71
## 93 7 Dominique Canti San Marino 11.11
## 94 8 Ismail Asif Waheed Maldives 11.49
## 95 1 Carl Lewis United States 10.14 Q
## 96 2 Jean-Charles Trouabal France 10.39 Q
## 97 3 José Javier Arqués Spain 10.44 Q
## 98 4 John Mair Jamaica 10.44
## 99 5 Harouna Pale Burkina Faso 10.76
## 100 6 Peauope Suli Tonga 10.94
## 101 7 Maloni Bole Fiji 11.19
## 102 1 Linford Christie Great Britain 10.11 Q
## 103 2 Dennis Mitchell United States 10.13 Q
## 104 3 Ben Johnson Canada 10.17 q
## 105 4 John Mair Jamaica 10.41
## 106 5 Charles-Louis Seck Senegal 10.42
## 107 6 Li Tao China 10.53
## 108 7 Kennedy Ondiek Kenya 10.57
## 109 8 Ousmane Diarra Mali 10.61
## 110 1 Desai Williams Canada 10.16 Q
## 111 2 Arnaldo da Silva Brazil 10.25 Q
## 112 3 Vladimir Krylov Soviet Union 10.26 q
## 113 4 Attila Kovács Hungary 10.27 q
## 114 5 Michele Lazazzera Italy 10.50
## 115 6 Thierry Lauret France 10.51
## 116 7 Zheng Chen China 10.72
## 117 8 Chidi Imoh Nigeria 11.44
## 118 1 Ray Stewart Jamaica 10.25 Q
## 119 2 Juan Núñez Dominican Republic 10.33 Q
## 120 3 Sven Matthes East Germany 10.36
## 121 4 Jean-Charles Trouabal France 10.41
## 122 5 José Javier Arqués Spain 10.43
## 123 6 Amadou M'Baye Senegal 10.45
## 124 7 Barrington Williams Great Britain 10.55
## 125 8 Christian Haas West Germany 10.57
## 126 1 Calvin Smith United States 10.16 Q
## 127 2 Olapade Adeniken Nigeria 10.30 Q
## 128 3 Andreas Berger Austria 10.34
## 129 4 Emmanuel Tuffour Ghana 10.37
## 130 5 Talal Mansour Qatar 10.38
## 131 6 Patrick Stevens Belgium 10.50
## 132 7 Cheng Hsin-Fu Chinese Taipei 10.54
## 133 8 György Fetter Hungary 10.55
## 134 1 Carl Lewis United States 9.99 Q
## 135 2 Robson da Silva Brazil 10.24 Q
## 136 3 Isiaq Adeyanju Nigeria 10.32 q
## 137 4 Pierfrancesco Pavoni Italy 10.33
## 138 5 Vitaliy Savin Soviet Union 10.36
## 139 6 Koji Kurihara Japan 10.49
## 140 7 István Tatár Hungary 10.68
## 141 8 Issa Alassane-Ousséni Benin 10.83
## 142 1 John Myles-Mills Ghana 10.21 Q
## 143 2 Mardi Lestari Indonesia 10.32 Q
## 144 3 Max Morinière France 10.37
## 145 4 Ezio Madonia Italy 10.38
## 146 5 Peter Wekesa Kenya 10.43
## 147 6 Sim Deok-Seop South Korea 10.55
## 148 7 Andrew Smith Jamaica 10.63
## 149 8 Cai Jianming China 10.76
## 150 1 Carl Lewis United States 9.97 Q
## 151 2 Calvin Smith United States 10.15 Q
## 152 3 Ray Stewart Jamaica 10.18 Q
## 153 4 Desai Williams Canada 10.24 Q
## 154 5 Arnaldo da Silva Brazil 10.32
## 155 6 Olapade Adeniken Nigeria 10.33
## 156 7 Mardi Lestari Indonesia 10.39
## 157 8 John Myles-Mills Ghana 10.43
## 158 1 Ben Johnson Canada 10.03 Q
## 159 2 Linford Christie Great Britain 10.11 Q
## 160 3 Dennis Mitchell United States 10.23 Q
## 161 4 Robson da Silva Brazil 10.24 Q
## 162 5 Attila Kovács Hungary 10.31
## 163 6 Juan Núñez Dominican Republic 10.35
## 164 7 Isiaq Adeyanju Nigeria 10.60
## 165 Gold Carl Lewis United States 9.92 WR
## 166 Silver Linford Christie Great Britain 9.97 NR
## 167 Bronze Calvin Smith United States 9.99
## 168 4 Dennis Mitchell United States 10.04
## 169 5 Robson da Silva Brazil 10.11
## 170 6 Desai Williams Canada 10.11
## 171 7 Ray Stewart Jamaica 12.26
## 172 <NA> Ben Johnson Canada 9.79
## Heat Year Host City Host Country
## 1 1 1988 Seoul South Korea
## 2 1 1988 Seoul South Korea
## 3 1 1988 Seoul South Korea
## 4 1 1988 Seoul South Korea
## 5 1 1988 Seoul South Korea
## 6 1 1988 Seoul South Korea
## 7 1 1988 Seoul South Korea
## 8 1 1988 Seoul South Korea
## 9 2 1988 Seoul South Korea
## 10 2 1988 Seoul South Korea
## 11 2 1988 Seoul South Korea
## 12 2 1988 Seoul South Korea
## 13 2 1988 Seoul South Korea
## 14 2 1988 Seoul South Korea
## 15 2 1988 Seoul South Korea
## 16 2 1988 Seoul South Korea
## 17 3 1988 Seoul South Korea
## 18 3 1988 Seoul South Korea
## 19 3 1988 Seoul South Korea
## 20 3 1988 Seoul South Korea
## 21 3 1988 Seoul South Korea
## 22 3 1988 Seoul South Korea
## 23 3 1988 Seoul South Korea
## 24 3 1988 Seoul South Korea
## 25 4 1988 Seoul South Korea
## 26 4 1988 Seoul South Korea
## 27 4 1988 Seoul South Korea
## 28 4 1988 Seoul South Korea
## 29 4 1988 Seoul South Korea
## 30 4 1988 Seoul South Korea
## 31 4 1988 Seoul South Korea
## 32 4 1988 Seoul South Korea
## 33 5 1988 Seoul South Korea
## 34 5 1988 Seoul South Korea
## 35 5 1988 Seoul South Korea
## 36 5 1988 Seoul South Korea
## 37 5 1988 Seoul South Korea
## 38 5 1988 Seoul South Korea
## 39 5 1988 Seoul South Korea
## 40 5 1988 Seoul South Korea
## 41 6 1988 Seoul South Korea
## 42 6 1988 Seoul South Korea
## 43 6 1988 Seoul South Korea
## 44 6 1988 Seoul South Korea
## 45 6 1988 Seoul South Korea
## 46 6 1988 Seoul South Korea
## 47 6 1988 Seoul South Korea
## 48 7 1988 Seoul South Korea
## 49 7 1988 Seoul South Korea
## 50 7 1988 Seoul South Korea
## 51 7 1988 Seoul South Korea
## 52 7 1988 Seoul South Korea
## 53 7 1988 Seoul South Korea
## 54 7 1988 Seoul South Korea
## 55 8 1988 Seoul South Korea
## 56 8 1988 Seoul South Korea
## 57 8 1988 Seoul South Korea
## 58 8 1988 Seoul South Korea
## 59 8 1988 Seoul South Korea
## 60 8 1988 Seoul South Korea
## 61 8 1988 Seoul South Korea
## 62 8 1988 Seoul South Korea
## 63 9 1988 Seoul South Korea
## 64 9 1988 Seoul South Korea
## 65 9 1988 Seoul South Korea
## 66 9 1988 Seoul South Korea
## 67 9 1988 Seoul South Korea
## 68 9 1988 Seoul South Korea
## 69 9 1988 Seoul South Korea
## 70 9 1988 Seoul South Korea
## 71 10 1988 Seoul South Korea
## 72 10 1988 Seoul South Korea
## 73 10 1988 Seoul South Korea
## 74 10 1988 Seoul South Korea
## 75 10 1988 Seoul South Korea
## 76 10 1988 Seoul South Korea
## 77 10 1988 Seoul South Korea
## 78 10 1988 Seoul South Korea
## 79 11 1988 Seoul South Korea
## 80 11 1988 Seoul South Korea
## 81 11 1988 Seoul South Korea
## 82 11 1988 Seoul South Korea
## 83 11 1988 Seoul South Korea
## 84 11 1988 Seoul South Korea
## 85 11 1988 Seoul South Korea
## 86 11 1988 Seoul South Korea
## 87 12 1988 Seoul South Korea
## 88 12 1988 Seoul South Korea
## 89 12 1988 Seoul South Korea
## 90 12 1988 Seoul South Korea
## 91 12 1988 Seoul South Korea
## 92 12 1988 Seoul South Korea
## 93 12 1988 Seoul South Korea
## 94 12 1988 Seoul South Korea
## 95 13 1988 Seoul South Korea
## 96 13 1988 Seoul South Korea
## 97 13 1988 Seoul South Korea
## 98 13 1988 Seoul South Korea
## 99 13 1988 Seoul South Korea
## 100 13 1988 Seoul South Korea
## 101 13 1988 Seoul South Korea
## 102 Quarter Final 1988 Seoul South Korea
## 103 Quarter Final 1988 Seoul South Korea
## 104 Quarter Final 1988 Seoul South Korea
## 105 Quarter Final 1988 Seoul South Korea
## 106 Quarter Final 1988 Seoul South Korea
## 107 Quarter Final 1988 Seoul South Korea
## 108 Quarter Final 1988 Seoul South Korea
## 109 Quarter Final 1988 Seoul South Korea
## 110 Quarter Final 1988 Seoul South Korea
## 111 Quarter Final 1988 Seoul South Korea
## 112 Quarter Final 1988 Seoul South Korea
## 113 Quarter Final 1988 Seoul South Korea
## 114 Quarter Final 1988 Seoul South Korea
## 115 Quarter Final 1988 Seoul South Korea
## 116 Quarter Final 1988 Seoul South Korea
## 117 Quarter Final 1988 Seoul South Korea
## 118 Quarter Final 1988 Seoul South Korea
## 119 Quarter Final 1988 Seoul South Korea
## 120 Quarter Final 1988 Seoul South Korea
## 121 Quarter Final 1988 Seoul South Korea
## 122 Quarter Final 1988 Seoul South Korea
## 123 Quarter Final 1988 Seoul South Korea
## 124 Quarter Final 1988 Seoul South Korea
## 125 Quarter Final 1988 Seoul South Korea
## 126 Quarter Final 1988 Seoul South Korea
## 127 Quarter Final 1988 Seoul South Korea
## 128 Quarter Final 1988 Seoul South Korea
## 129 Quarter Final 1988 Seoul South Korea
## 130 Quarter Final 1988 Seoul South Korea
## 131 Quarter Final 1988 Seoul South Korea
## 132 Quarter Final 1988 Seoul South Korea
## 133 Quarter Final 1988 Seoul South Korea
## 134 Quarter Final 1988 Seoul South Korea
## 135 Quarter Final 1988 Seoul South Korea
## 136 Quarter Final 1988 Seoul South Korea
## 137 Quarter Final 1988 Seoul South Korea
## 138 Quarter Final 1988 Seoul South Korea
## 139 Quarter Final 1988 Seoul South Korea
## 140 Quarter Final 1988 Seoul South Korea
## 141 Quarter Final 1988 Seoul South Korea
## 142 Quarter Final 1988 Seoul South Korea
## 143 Quarter Final 1988 Seoul South Korea
## 144 Quarter Final 1988 Seoul South Korea
## 145 Quarter Final 1988 Seoul South Korea
## 146 Quarter Final 1988 Seoul South Korea
## 147 Quarter Final 1988 Seoul South Korea
## 148 Quarter Final 1988 Seoul South Korea
## 149 Quarter Final 1988 Seoul South Korea
## 150 Semi Final 1988 Seoul South Korea
## 151 Semi Final 1988 Seoul South Korea
## 152 Semi Final 1988 Seoul South Korea
## 153 Semi Final 1988 Seoul South Korea
## 154 Semi Final 1988 Seoul South Korea
## 155 Semi Final 1988 Seoul South Korea
## 156 Semi Final 1988 Seoul South Korea
## 157 Semi Final 1988 Seoul South Korea
## 158 Semi Final 1988 Seoul South Korea
## 159 Semi Final 1988 Seoul South Korea
## 160 Semi Final 1988 Seoul South Korea
## 161 Semi Final 1988 Seoul South Korea
## 162 Semi Final 1988 Seoul South Korea
## 163 Semi Final 1988 Seoul South Korea
## 164 Semi Final 1988 Seoul South Korea
## 165 Final 1988 Seoul South Korea
## 166 Final 1988 Seoul South Korea
## 167 Final 1988 Seoul South Korea
## 168 Final 1988 Seoul South Korea
## 169 Final 1988 Seoul South Korea
## 170 Final 1988 Seoul South Korea
## 171 Final 1988 Seoul South Korea
## 172 Final 1988 Seoul South Korea
Los Angeles 1984
los_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1984_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-los_men_100m%>%html_table(fill=TRUE)
los_men_100m_1<-tables[[5]]
los_men_100m_2<-tables[[6]]
los_men_100m_3<-tables[[7]]
los_men_100m_4<-tables[[8]]
los_men_100m_5<-tables[[9]]
los_men_100m_6<-tables[[10]]
los_men_100m_7<-tables[[11]]
los_men_100m_8<-tables[[12]]
los_men_100m_9<-tables[[13]]
los_men_100m_10<-tables[[14]]
los_men_100m_11<-tables[[15]]
los_men_100m_12<-tables[[16]]
los_men_100m_13<-tables[[17]]
los_men_100m_14<-tables[[18]]
los_men_100m_15<-tables[[19]]
los_men_100m_16<-tables[[20]]
los_men_100m_17<-tables[[21]]
los_men_100m_18<-tables[[22]]
los_men_100m_19<-tables[[23]]
los_men_100m_1 <- los_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
los_men_100m_2 <- los_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
los_men_100m_3 <- los_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
los_men_100m_4 <- los_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
los_men_100m_5 <- los_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
los_men_100m_6 <- los_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
los_men_100m_7 <- los_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
los_men_100m_8 <- los_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
los_men_100m_9 <- los_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
los_men_100m_10 <- los_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
los_men_100m_11 <- los_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
los_men_100m_12 <- los_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
los_men_100m_13 <- los_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
los_men_100m_14 <- los_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
los_men_100m_15 <- los_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
los_men_100m_16 <- los_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
los_men_100m_17 <- los_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
los_men_100m_18 <- los_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
los_men_100m_19 <- los_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
los_men_100m_all <- bind_rows(los_men_100m_1, los_men_100m_2, los_men_100m_3, los_men_100m_4, los_men_100m_5, los_men_100m_6, los_men_100m_7, los_men_100m_8, los_men_100m_9, los_men_100m_10, los_men_100m_11, los_men_100m_12, los_men_100m_13, los_men_100m_14, los_men_100m_15, los_men_100m_16, los_men_100m_17, los_men_100m_18, los_men_100m_19)
los_men_100m_all <- los_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1984,"Host City" ="Los Angeles", "Host Country"="United States")
los_men_100m_all[138,1]<- "Gold"
los_men_100m_all[139,1]<- "Silver"
los_men_100m_all[140,1]<- "Bronze"
los_men_100m_all
## Rank Athlete Nation Time Notes
## 1 1 Carl Lewis United States 10.32 Q
## 2 2 Tony Sharpe Canada 10.38 Q
## 3 3 Mike McFarlane Great Britain 10.47 Q
## 4 4 Hasely Crawford Trinidad and Tobago 10.48 q
## 5 5 Peter Van Miltenburg Australia 10.55 q
## 6 6 Vicente Daniel Mozambique 10.81
## 7 7 Henry Ngolwe Zambia 10.94
## 8 8 Paul Réneau Belize 10.96
## 9 1 Allan Wells Great Britain 10.32 Q
## 10 2 Mohamed Purnomo Indonesia 10.40 Q
## 11 3 José Javier Arqués Spain 10.42 Q
## 12 4 Marc Gasparoni France 10.47 q
## 13 5 Emilio Samayoa Guatemala 10.84
## 14 6 Barnabé Messomo Cameroon 10.98
## 15 7 Charles Mbazira Uganda 11.03
## 16 8 Mohamed Abdullah United Arab Emirates 11.11
## 17 1 Desai Williams Canada 10.35 Q
## 18 2 Chidi Imoh Nigeria 10.39 Q
## 19 3 Charles-Louis Seck Senegal 10.45 Q
## 20 4 Christian Nenepath Indonesia 10.66
## 21 4 Henri Ndinga Republic of the Congo 10.66
## 22 6 Abdullah Sulaiman Al-Akbary Oman 10.86
## 23 7 Inoke Bainimoli Fiji 11.15
## 24 8 Daniel André Mauritius 11.19
## 25 1 Sumet Promna Thailand 10.52 Q
## 26 2 Paul Narracott Australia 10.55 Q
## 27 3 Neville Hodge Virgin Islands 10.58 Q
## 28 4 Audrick Lightbourne Bahamas 10.64
## 29 5 Gus Young Jamaica 10.64
## 30 6 Bill Trott Bermuda 10.76
## 31 7 Kgosiemang Khumoyarano Botswana 11.49
## 32 1 Sam Graddy United States 10.29 Q
## 33 2 Donovan Reid Great Britain 10.41 Q
## 34 3 Jürgen Evers West Germany 10.54 Q
## 35 4 Hiroki Fuwa Japan 10.56
## 36 5 Philip Attipoe Ghana 10.60
## 37 6 Jean-Yves Mallat Lebanon 10.83
## 38 7 Markus Büchel Liechtenstein 10.98
## 39 8 Clifford Mamba Swaziland 11.24
## 40 1 Ray Stewart Jamaica 10.24 Q
## 41 2 Antoine Richard France 10.35 Q
## 42 3 Antonio Ullo Italy 10.36 Q
## 43 4 Paulo Roberto Correia Brazil 10.45 q
## 44 5 Anthony Jones Barbados 10.69
## 45 6 Oliver Daniels Liberia 10.76
## 46 7 Muhammad Mansha Pakistan 10.87
## 47 1 Ben Johnson Canada 10.35 Q
## 48 2 Yu Zhuanghui China 10.53 Q
## 49 3 Bruno Marie-Rose France 10.59 Q
## 50 4 Earl Haley Guyana 10.74
## 51 5 Julien Thode Netherlands Antilles 10.92
## 52 6 Ronald Russell Virgin Islands 11.02
## 53 7 Denis Rose Seychelles 11.04
## 54 1 Ronald Desruelles Belgium 10.46 Q
## 55 2 Stefano Tilli Italy 10.48 Q
## 56 3 Fred Martin Australia 10.64 Q
## 57 4 Luís Barroso Portugal 10.76
## 58 5 Gustavo Envela Equatorial Guinea 10.79
## 59 6 Oumar Fye The Gambia 10.87
## 60 7 Anthony Henry Antigua and Barbuda 10.99
## 61 8 Saidur Rahman Dawn Bangladesh 11.25
## 62 1 Ron Brown United States 10.58 Q
## 63 2 Luis Morales Puerto Rico 10.60 Q
## 64 3 Nelson dos Santos Brazil 10.70 Q
## 65 4 Ralf Lübke West Germany 10.70
## 66 5 Collins Mensah Ghana 10.92
## 67 6 Ivan Benjamin Sierra Leone 11.13
## 68 7 Johnson Kere Solomon Islands 11.57
## 69 1 Norman Edwards Jamaica 10.57 Q
## 70 2 Dudley Parker Bahamas 10.65 Q
## 71 3 Kouadio Otokpa Ivory Coast 10.72 Q
## 72 4 Pierfrancesco Pavoni Italy 10.72
## 73 5 Faraj Saad Marzouk Qatar 10.78
## 74 6 Odiya Silweya Malawi 11.22
## 75 7 Glen Abrahams Costa Rica 11.31
## 76 1 Christian Haas West Germany 10.41 Q
## 77 2 Alfonso Pitters Panama 10.50 Q
## 78 3 Katsuhiko Nakaya Brazil 10.55 Q
## 79 4 Bakary Jarjue The Gambia 10.68
## 80 5 Sim Deok-seop South Korea 10.72
## 81 6 Guy Hill British Virgin Islands 11.11
## 82 7 Aldo Salandra El Salvador 11.31
## 83 1 Ben Johnson Canada 10.41 Q
## 84 2 Donovan Reid Great Britain 10.47 Q
## 85 3 Christian Haas West Germany 10.51 Q
## 86 4 Hasely Crawford Trinidad and Tobago 10.56
## 87 5 Antonio Ullo Italy 10.57
## 88 6 Bruno Marie-Rose France 10.60
## 89 7 Paul Narracott Australia 10.60
## 90 8 Alfonso Pitters Panama 10.63
## 91 1 Sam Graddy United States 10.15 Q
## 92 2 Tony Sharpe Canada 10.33 Q
## 93 3 Norman Edwards Jamaica 10.44 Q
## 94 4 Nelson dos Santos Brazil 10.53
## 95 5 Charles-Louis Seck Senegal 10.54
## 96 6 Yu Zhuanghui China 10.59
## 97 7 Neville Hodge Virgin Islands 10.69
## 98 1 Stefano Tilli Italy 10.39 Q
## 99 2 Ron Brown United States 10.40 Q
## 100 3 Marc Gasparoni France 10.56 Q
## 101 4 Sumet Promna Thailand 10.61
## 102 5 Katsuhiko Nakaya Brazil 10.69
## 103 6 Hiroki Fuwa Japan 10.75
## 104 7 Philip Attipoe Ghana 10.78
## 105 8 Kouadio Otokpa Ivory Coast 10.80
## 106 1 Ray Stewart Jamaica 10.30 Q
## 107 2 Allan Wells Great Britain 10.33 Q
## 108 3 Mohamed Purnomo Indonesia 10.43 Q
## 109 4 José Javier Arqués Spain 10.52
## 110 4 Peter Van Miltenburg Australia 10.52
## 111 6 Antoine Richard France 10.53
## 112 7 Paulo Roberto Correia Brazil 10.54
## 113 8 Audrick Lightbourne Bahamas 10.59
## 114 1 Carl Lewis United States 10.04 Q
## 115 2 Desai Williams Canada 10.27 Q
## 116 3 Luis Morales Puerto Rico 10.35 Q
## 117 4 Mike McFarlane Great Britain 10.36 q
## 118 5 Chidi Imoh Nigeria 10.42
## 119 6 Dudley Parker Bahamas 10.58
## 120 7 Fred Martin Australia 10.61
## 121 8 Jürgen Evers West Germany 10.69
## 122 1 Ray Stewart Jamaica 10.26 Q
## 123 2 Sam Graddy United States 10.27 Q
## 124 3 Donovan Reid Great Britain 10.32 Q
## 125 4 Ron Brown United States 10.34 Q
## 126 5 Desai Williams Canada 10.34
## 127 6 Christian Haas West Germany 10.41
## 128 7 Marc Gasparoni France 10.49
## 129 8 Mohamed Purnomo Indonesia 10.51
## 130 1 Carl Lewis United States 10.14 Q
## 131 2 Ben Johnson Canada 10.42 Q
## 132 3 Mike McFarlane Great Britain 10.45 Q
## 133 4 Tony Sharpe Canada 10.52 Q
## 134 5 Luis Morales Puerto Rico 10.54
## 135 6 Stefano Tilli Italy 10.55
## 136 7 Norman Edwards Jamaica 10.63
## 137 8 Allan Wells Great Britain 10.71
## 138 Gold Carl Lewis United States 9.99 <NA>
## 139 Silver Sam Graddy United States 10.19 <NA>
## 140 Bronze Ben Johnson Canada 10.22 <NA>
## 141 4 Ron Brown United States 10.26 <NA>
## 142 5 Mike McFarlane Great Britain 10.27 <NA>
## 143 6 Ray Stewart Jamaica 10.29 <NA>
## 144 7 Donovan Reid Great Britain 10.33 <NA>
## 145 8 Tony Sharpe Canada 10.35 <NA>
## Heat Year Host City Host Country
## 1 1 1984 Los Angeles United States
## 2 1 1984 Los Angeles United States
## 3 1 1984 Los Angeles United States
## 4 1 1984 Los Angeles United States
## 5 1 1984 Los Angeles United States
## 6 1 1984 Los Angeles United States
## 7 1 1984 Los Angeles United States
## 8 1 1984 Los Angeles United States
## 9 2 1984 Los Angeles United States
## 10 2 1984 Los Angeles United States
## 11 2 1984 Los Angeles United States
## 12 2 1984 Los Angeles United States
## 13 2 1984 Los Angeles United States
## 14 2 1984 Los Angeles United States
## 15 2 1984 Los Angeles United States
## 16 2 1984 Los Angeles United States
## 17 3 1984 Los Angeles United States
## 18 3 1984 Los Angeles United States
## 19 3 1984 Los Angeles United States
## 20 3 1984 Los Angeles United States
## 21 3 1984 Los Angeles United States
## 22 3 1984 Los Angeles United States
## 23 3 1984 Los Angeles United States
## 24 3 1984 Los Angeles United States
## 25 4 1984 Los Angeles United States
## 26 4 1984 Los Angeles United States
## 27 4 1984 Los Angeles United States
## 28 4 1984 Los Angeles United States
## 29 4 1984 Los Angeles United States
## 30 4 1984 Los Angeles United States
## 31 4 1984 Los Angeles United States
## 32 5 1984 Los Angeles United States
## 33 5 1984 Los Angeles United States
## 34 5 1984 Los Angeles United States
## 35 5 1984 Los Angeles United States
## 36 5 1984 Los Angeles United States
## 37 5 1984 Los Angeles United States
## 38 5 1984 Los Angeles United States
## 39 5 1984 Los Angeles United States
## 40 6 1984 Los Angeles United States
## 41 6 1984 Los Angeles United States
## 42 6 1984 Los Angeles United States
## 43 6 1984 Los Angeles United States
## 44 6 1984 Los Angeles United States
## 45 6 1984 Los Angeles United States
## 46 6 1984 Los Angeles United States
## 47 7 1984 Los Angeles United States
## 48 7 1984 Los Angeles United States
## 49 7 1984 Los Angeles United States
## 50 7 1984 Los Angeles United States
## 51 7 1984 Los Angeles United States
## 52 7 1984 Los Angeles United States
## 53 7 1984 Los Angeles United States
## 54 8 1984 Los Angeles United States
## 55 8 1984 Los Angeles United States
## 56 8 1984 Los Angeles United States
## 57 8 1984 Los Angeles United States
## 58 8 1984 Los Angeles United States
## 59 8 1984 Los Angeles United States
## 60 8 1984 Los Angeles United States
## 61 8 1984 Los Angeles United States
## 62 9 1984 Los Angeles United States
## 63 9 1984 Los Angeles United States
## 64 9 1984 Los Angeles United States
## 65 9 1984 Los Angeles United States
## 66 9 1984 Los Angeles United States
## 67 9 1984 Los Angeles United States
## 68 9 1984 Los Angeles United States
## 69 10 1984 Los Angeles United States
## 70 10 1984 Los Angeles United States
## 71 10 1984 Los Angeles United States
## 72 10 1984 Los Angeles United States
## 73 10 1984 Los Angeles United States
## 74 10 1984 Los Angeles United States
## 75 10 1984 Los Angeles United States
## 76 11 1984 Los Angeles United States
## 77 11 1984 Los Angeles United States
## 78 11 1984 Los Angeles United States
## 79 11 1984 Los Angeles United States
## 80 11 1984 Los Angeles United States
## 81 11 1984 Los Angeles United States
## 82 11 1984 Los Angeles United States
## 83 Quarter Final 1984 Los Angeles United States
## 84 Quarter Final 1984 Los Angeles United States
## 85 Quarter Final 1984 Los Angeles United States
## 86 Quarter Final 1984 Los Angeles United States
## 87 Quarter Final 1984 Los Angeles United States
## 88 Quarter Final 1984 Los Angeles United States
## 89 Quarter Final 1984 Los Angeles United States
## 90 Quarter Final 1984 Los Angeles United States
## 91 Quarter Final 1984 Los Angeles United States
## 92 Quarter Final 1984 Los Angeles United States
## 93 Quarter Final 1984 Los Angeles United States
## 94 Quarter Final 1984 Los Angeles United States
## 95 Quarter Final 1984 Los Angeles United States
## 96 Quarter Final 1984 Los Angeles United States
## 97 Quarter Final 1984 Los Angeles United States
## 98 Quarter Final 1984 Los Angeles United States
## 99 Quarter Final 1984 Los Angeles United States
## 100 Quarter Final 1984 Los Angeles United States
## 101 Quarter Final 1984 Los Angeles United States
## 102 Quarter Final 1984 Los Angeles United States
## 103 Quarter Final 1984 Los Angeles United States
## 104 Quarter Final 1984 Los Angeles United States
## 105 Quarter Final 1984 Los Angeles United States
## 106 Quarter Final 1984 Los Angeles United States
## 107 Quarter Final 1984 Los Angeles United States
## 108 Quarter Final 1984 Los Angeles United States
## 109 Quarter Final 1984 Los Angeles United States
## 110 Quarter Final 1984 Los Angeles United States
## 111 Quarter Final 1984 Los Angeles United States
## 112 Quarter Final 1984 Los Angeles United States
## 113 Quarter Final 1984 Los Angeles United States
## 114 Quarter Final 1984 Los Angeles United States
## 115 Quarter Final 1984 Los Angeles United States
## 116 Quarter Final 1984 Los Angeles United States
## 117 Quarter Final 1984 Los Angeles United States
## 118 Quarter Final 1984 Los Angeles United States
## 119 Quarter Final 1984 Los Angeles United States
## 120 Quarter Final 1984 Los Angeles United States
## 121 Quarter Final 1984 Los Angeles United States
## 122 Semi Final 1984 Los Angeles United States
## 123 Semi Final 1984 Los Angeles United States
## 124 Semi Final 1984 Los Angeles United States
## 125 Semi Final 1984 Los Angeles United States
## 126 Semi Final 1984 Los Angeles United States
## 127 Semi Final 1984 Los Angeles United States
## 128 Semi Final 1984 Los Angeles United States
## 129 Semi Final 1984 Los Angeles United States
## 130 Semi Final 1984 Los Angeles United States
## 131 Semi Final 1984 Los Angeles United States
## 132 Semi Final 1984 Los Angeles United States
## 133 Semi Final 1984 Los Angeles United States
## 134 Semi Final 1984 Los Angeles United States
## 135 Semi Final 1984 Los Angeles United States
## 136 Semi Final 1984 Los Angeles United States
## 137 Semi Final 1984 Los Angeles United States
## 138 Final 1984 Los Angeles United States
## 139 Final 1984 Los Angeles United States
## 140 Final 1984 Los Angeles United States
## 141 Final 1984 Los Angeles United States
## 142 Final 1984 Los Angeles United States
## 143 Final 1984 Los Angeles United States
## 144 Final 1984 Los Angeles United States
## 145 Final 1984 Los Angeles United States
Moscow 1980
mos_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1980_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-mos_men_100m%>%html_table(fill=TRUE)
mos_men_100m_1<-tables[[5]]
mos_men_100m_2<-tables[[6]]
mos_men_100m_3<-tables[[7]]
mos_men_100m_4<-tables[[8]]
mos_men_100m_5<-tables[[9]]
mos_men_100m_6<-tables[[10]]
mos_men_100m_7<-tables[[11]]
mos_men_100m_8<-tables[[12]]
mos_men_100m_9<-tables[[13]]
mos_men_100m_10<-tables[[14]]
mos_men_100m_11<-tables[[15]]
mos_men_100m_12<-tables[[16]]
mos_men_100m_13<-tables[[17]]
mos_men_100m_14<-tables[[18]]
mos_men_100m_15<-tables[[19]]
mos_men_100m_16<-tables[[20]]
mos_men_100m_1 <- mos_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
mos_men_100m_2 <- mos_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
mos_men_100m_3 <- mos_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
mos_men_100m_4 <- mos_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
mos_men_100m_5 <- mos_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
mos_men_100m_6 <- mos_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
mos_men_100m_7 <- mos_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
mos_men_100m_8 <- mos_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
mos_men_100m_9 <- mos_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
mos_men_100m_10 <- mos_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mos_men_100m_11 <- mos_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mos_men_100m_12 <- mos_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mos_men_100m_13 <- mos_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mos_men_100m_14 <- mos_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mos_men_100m_15 <- mos_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mos_men_100m_16 <- mos_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
mos_men_100m_all <- bind_rows(mos_men_100m_1, mos_men_100m_2, mos_men_100m_3, mos_men_100m_4, mos_men_100m_5, mos_men_100m_6, mos_men_100m_7, mos_men_100m_8, mos_men_100m_9, mos_men_100m_10, mos_men_100m_11, mos_men_100m_12, mos_men_100m_13, mos_men_100m_14, mos_men_100m_15, mos_men_100m_16)
mos_men_100m_all <- mos_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1980,"Host City" ="Moscow", "Host Country"="Russia")
mos_men_100m_all[114,1]<- "Gold"
mos_men_100m_all[115,1]<- "Silver"
mos_men_100m_all[116,1]<- "Bronze"
mos_men_100m_all
## Rank Athlete Nation Time Notes
## 1 1 Silvio Leonard Cuba 10.33 Q
## 2 2 Peter Okodogbe Nigeria 10.39 Q
## 3 3 Christopher Brathwaite Trinidad and Tobago 10.44 Q
## 4 4 Klaus-Dieter Kurrat East Germany 10.53 q
## 5 5 Charles Kachenjela Zambia 11.03
## 6 6 John Carew Sierra Leone 11.11
## 7 7 Marc Larose Seychelles 11.27
## 8 1 Pietro Mennea Italy 10.56 Q
## 9 2 Lambros Kefalas Greece 10.70 Q
## 10 3 Katsuhiko Nakaya Brazil 10.72 Q
## 11 4 Momar N'Dao Senegal 10.73
## 12 5 Eduardo Costa Mozambique 11.02
## 13 6 Lucien Josiah Botswana 11.15
## 14 7 Soutsakhone Somninhom Laos 11.69
## 15 1 Aleksandr Aksinin Soviet Union 10.26 Q
## 16 2 Leszek Dunecki Poland 10.42 Q
## 17 3 Nelson dos Santos Brazil 10.51 Q
## 18 4 Hammed Adio Nigeria 10.58 q
## 19 5 Nabil Nahri Syria 10.67
## 20 6 Mwalimu Ally Tanzania 10.86
## 21 7 Rudolph George Sierra Leone 11.37
## 22 1 Petar Petrov Bulgaria 10.32 Q
## 23 2 Vladimir Muravyov Soviet Union 10.37 Q
## 24 3 Osvaldo Lara Cuba 10.39 Q
## 25 4 Antoine Richard France 10.51 q
## 26 5 Pascal Aho Benin 11.01
## 27 6 Joseph Letseka Lesotho 11.21
## 28 7 Ilídio Coelho Angola 11.42
## 29 8 Besha Tuffa Ethiopia 11.55
## 30 1 Eugen Ray East Germany 10.38 Q
## 31 2 Hasely Crawford Trinidad and Tobago 10.42 Q
## 32 3 Drew McMaster Great Britain 10.43 Q
## 33 4 Gerardo Suero Dominican Republic 10.53 q
## 34 5 Roland Dagher Lebanon 11.01
## 35 6 Sheku Boima Sierra Leone 11.08
## 36 7 Raghu Raj Onta Nepal 11.61
## 37 1 Sören Schlegel East Germany 10.44 Q
## 38 2 Hermann Panzo France 10.53 Q
## 39 3 Tomás González Cuba 10.65 Q
## 40 4 Antoine Kiakouama Republic of the Congo 10.69
## 41 5 Milton de Castro Brazil 10.74
## 42 6 Boubacar Diallo Senegal 10.75
## 43 7 Adille Sumariwalla India 11.04
## 44 1 Allan Wells Great Britain 10.35 Q
## 45 2 Don Quarrie Jamaica 10.37 Q
## 46 3 Krzysztof Zwoliński Poland 10.60 Q
## 47 4 Ivaylo Karanyotov Bulgaria 10.66
## 48 5 István Tatár Hungary 10.69
## 49 6 Mario Westbroek Netherlands 10.91
## 50 7 Oddur Sigurðsson Iceland 10.94
## 51 1 James Gilkes Guyana 10.34 Q
## 52 2 Cameron Sharp Great Britain 10.38 Q
## 53 3 Théophile Nkounkou Republic of the Congo 10.53 Q
## 54 4 István Nagy Hungary 10.68
## 55 5 David Lukuba Tanzania 10.74
## 56 6 Paul Haba Guinea 11.19
## 57 7 Abdul Majeed Al-Mosawi Kuwait 11.28
## 58 1 Grégoire Illorson Cameroon 10.34 Q
## 59 2 Marian Woronin Poland 10.35 Q
## 60 3 Andrey Shlyapnikov Soviet Union 10.43 Q
## 61 4 Samson Oyeledun Nigeria 10.59 q
## 62 5 Francis Adams Trinidad and Tobago 10.80
## 63 6 Peter Mwita Tanzania 11.07
## 64 7 Salif Koné Mali 11.07
## 65 8 José Luis Elias Peru 13.66
## 66 1 Allan Wells Great Britain 10.11 Q
## 67 2 Petar Petrov Bulgaria 10.13 Q
## 68 3 Osvaldo Lara Cuba 10.21 Q
## 69 4 Pietro Mennea Italy 10.27 Q
## 70 5 Hasely Crawford Trinidad and Tobago 10.28
## 71 6 Sören Schlegel East Germany 10.28
## 72 7 Nelson dos Santos Brazil 10.45
## 73 8 Lambros Kefalas Greece 10.62
## 74 1 Aleksandr Aksinin Soviet Union 10.29 Q
## 75 2 Don Quarrie Jamaica 10.29 Q
## 76 3 Hermann Panzo France 10.29 Q
## 77 4 Peter Okodogbe Nigeria 10.34 Q
## 78 5 Leszek Dunecki Poland 10.40
## 79 6 Drew McMaster Great Britain 10.42
## 80 7 Tomás González Cuba 10.44
## 81 8 Gerardo Suero Dominican Republic 10.57
## 82 1 Silvio Leonard Cuba 10.16 Q
## 83 2 Marian Woronin Poland 10.27 Q
## 84 3 Eugen Ray East Germany 10.30 Q
## 85 4 Christopher Brathwaite Trinidad and Tobago 10.37 Q
## 86 5 Andrei Shlyapnikov Soviet Union 10.41
## 87 6 Théophile Nkounkou Republic of the Congo 10.59
## 88 7 Hammed Adio Nigeria 10.67
## 89 8 Katsuhiko Nakaya Brazil 10.70
## 90 1 James Gilkes Guyana 10.26 Q
## 91 2 Grégoire Illorson Cameroon 10.29 Q
## 92 3 Vladimir Muravyov Soviet Union 10.34 Q
## 93 4 Cameron Sharp Great Britain 10.38 Q
## 94 5 Antoine Richard France 10.45
## 95 6 Klaus-Dieter Kurrat East Germany 10.54
## 96 7 Krzysztof Zwoliński Poland 10.54
## 97 8 Samson Oyeledun Nigeria 10.73
## 98 1 Petar Petrov Bulgaria 10.39 Q
## 99 2 Silvio Leonard Cuba 10.40 Q
## 100 3 Aleksandr Aksinin Soviet Union 10.45 Q
## 101 4 Hermann Panzo France 10.45 Q
## 102 5 Don Quarrie Jamaica 10.55
## 103 6 Pietro Mennea Italy 10.58
## 104 7 Cameron Sharp Great Britain 10.60
## 105 8 Grégoire Illorson Cameroon 10.60
## 106 1 Allan Wells Great Britain 10.27 Q
## 107 2 Osvaldo Lara Cuba 10.34 Q
## 108 3 Vladimir Muravyov Soviet Union 10.42 Q
## 109 4 Marian Woronin Poland 10.43 Q
## 110 5 James Gilkes Guyana 10.44
## 111 6 Eugen Ray East Germany 10.47
## 112 7 Peter Okodogbe Nigeria 10.51
## 113 8 Christopher Brathwaite Trinidad and Tobago 10.54
## 114 Gold Allan Wells Great Britain 10.25 <NA>
## 115 Silver Silvio Leonard Cuba 10.25 <NA>
## 116 Bronze Petar Petrov Bulgaria 10.39 <NA>
## 117 4 Aleksandr Aksinin Soviet Union 10.42 <NA>
## 118 5 Osvaldo Lara Cuba 10.43 <NA>
## 119 6 Vladimir Muravyov Soviet Union 10.44 <NA>
## 120 7 Marian Woronin Poland 10.46 <NA>
## 121 8 Hermann Panzo France 10.49 <NA>
## Heat Year Host City Host Country
## 1 1 1980 Moscow Russia
## 2 1 1980 Moscow Russia
## 3 1 1980 Moscow Russia
## 4 1 1980 Moscow Russia
## 5 1 1980 Moscow Russia
## 6 1 1980 Moscow Russia
## 7 1 1980 Moscow Russia
## 8 2 1980 Moscow Russia
## 9 2 1980 Moscow Russia
## 10 2 1980 Moscow Russia
## 11 2 1980 Moscow Russia
## 12 2 1980 Moscow Russia
## 13 2 1980 Moscow Russia
## 14 2 1980 Moscow Russia
## 15 3 1980 Moscow Russia
## 16 3 1980 Moscow Russia
## 17 3 1980 Moscow Russia
## 18 3 1980 Moscow Russia
## 19 3 1980 Moscow Russia
## 20 3 1980 Moscow Russia
## 21 3 1980 Moscow Russia
## 22 4 1980 Moscow Russia
## 23 4 1980 Moscow Russia
## 24 4 1980 Moscow Russia
## 25 4 1980 Moscow Russia
## 26 4 1980 Moscow Russia
## 27 4 1980 Moscow Russia
## 28 4 1980 Moscow Russia
## 29 4 1980 Moscow Russia
## 30 5 1980 Moscow Russia
## 31 5 1980 Moscow Russia
## 32 5 1980 Moscow Russia
## 33 5 1980 Moscow Russia
## 34 5 1980 Moscow Russia
## 35 5 1980 Moscow Russia
## 36 5 1980 Moscow Russia
## 37 6 1980 Moscow Russia
## 38 6 1980 Moscow Russia
## 39 6 1980 Moscow Russia
## 40 6 1980 Moscow Russia
## 41 6 1980 Moscow Russia
## 42 6 1980 Moscow Russia
## 43 6 1980 Moscow Russia
## 44 7 1980 Moscow Russia
## 45 7 1980 Moscow Russia
## 46 7 1980 Moscow Russia
## 47 7 1980 Moscow Russia
## 48 7 1980 Moscow Russia
## 49 7 1980 Moscow Russia
## 50 7 1980 Moscow Russia
## 51 8 1980 Moscow Russia
## 52 8 1980 Moscow Russia
## 53 8 1980 Moscow Russia
## 54 8 1980 Moscow Russia
## 55 8 1980 Moscow Russia
## 56 8 1980 Moscow Russia
## 57 8 1980 Moscow Russia
## 58 9 1980 Moscow Russia
## 59 9 1980 Moscow Russia
## 60 9 1980 Moscow Russia
## 61 9 1980 Moscow Russia
## 62 9 1980 Moscow Russia
## 63 9 1980 Moscow Russia
## 64 9 1980 Moscow Russia
## 65 9 1980 Moscow Russia
## 66 Quarter Final 1980 Moscow Russia
## 67 Quarter Final 1980 Moscow Russia
## 68 Quarter Final 1980 Moscow Russia
## 69 Quarter Final 1980 Moscow Russia
## 70 Quarter Final 1980 Moscow Russia
## 71 Quarter Final 1980 Moscow Russia
## 72 Quarter Final 1980 Moscow Russia
## 73 Quarter Final 1980 Moscow Russia
## 74 Quarter Final 1980 Moscow Russia
## 75 Quarter Final 1980 Moscow Russia
## 76 Quarter Final 1980 Moscow Russia
## 77 Quarter Final 1980 Moscow Russia
## 78 Quarter Final 1980 Moscow Russia
## 79 Quarter Final 1980 Moscow Russia
## 80 Quarter Final 1980 Moscow Russia
## 81 Quarter Final 1980 Moscow Russia
## 82 Quarter Final 1980 Moscow Russia
## 83 Quarter Final 1980 Moscow Russia
## 84 Quarter Final 1980 Moscow Russia
## 85 Quarter Final 1980 Moscow Russia
## 86 Quarter Final 1980 Moscow Russia
## 87 Quarter Final 1980 Moscow Russia
## 88 Quarter Final 1980 Moscow Russia
## 89 Quarter Final 1980 Moscow Russia
## 90 Quarter Final 1980 Moscow Russia
## 91 Quarter Final 1980 Moscow Russia
## 92 Quarter Final 1980 Moscow Russia
## 93 Quarter Final 1980 Moscow Russia
## 94 Quarter Final 1980 Moscow Russia
## 95 Quarter Final 1980 Moscow Russia
## 96 Quarter Final 1980 Moscow Russia
## 97 Quarter Final 1980 Moscow Russia
## 98 Semi Final 1980 Moscow Russia
## 99 Semi Final 1980 Moscow Russia
## 100 Semi Final 1980 Moscow Russia
## 101 Semi Final 1980 Moscow Russia
## 102 Semi Final 1980 Moscow Russia
## 103 Semi Final 1980 Moscow Russia
## 104 Semi Final 1980 Moscow Russia
## 105 Semi Final 1980 Moscow Russia
## 106 Semi Final 1980 Moscow Russia
## 107 Semi Final 1980 Moscow Russia
## 108 Semi Final 1980 Moscow Russia
## 109 Semi Final 1980 Moscow Russia
## 110 Semi Final 1980 Moscow Russia
## 111 Semi Final 1980 Moscow Russia
## 112 Semi Final 1980 Moscow Russia
## 113 Semi Final 1980 Moscow Russia
## 114 Final 1980 Moscow Russia
## 115 Final 1980 Moscow Russia
## 116 Final 1980 Moscow Russia
## 117 Final 1980 Moscow Russia
## 118 Final 1980 Moscow Russia
## 119 Final 1980 Moscow Russia
## 120 Final 1980 Moscow Russia
## 121 Final 1980 Moscow Russia
Montreal 1976
mon_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1976_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-mon_men_100m%>%html_table(fill=TRUE)
mon_men_100m_1<-tables[[5]]
mon_men_100m_2<-tables[[6]]
mon_men_100m_3<-tables[[7]]
mon_men_100m_4<-tables[[8]]
mon_men_100m_5<-tables[[9]]
mon_men_100m_6<-tables[[10]]
mon_men_100m_7<-tables[[11]]
mon_men_100m_8<-tables[[12]]
mon_men_100m_9<-tables[[13]]
mon_men_100m_10<-tables[[14]]
mon_men_100m_11<-tables[[15]]
mon_men_100m_12<-tables[[16]]
mon_men_100m_13<-tables[[17]]
mon_men_100m_14<-tables[[18]]
mon_men_100m_15<-tables[[19]]
mon_men_100m_16<-tables[[20]]
mon_men_100m_1 <- mon_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
mon_men_100m_2 <- mon_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
mon_men_100m_3 <- mon_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
mon_men_100m_4 <- mon_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
mon_men_100m_5 <- mon_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
mon_men_100m_6 <- mon_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
mon_men_100m_7 <- mon_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
mon_men_100m_8 <- mon_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
mon_men_100m_9 <- mon_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
mon_men_100m_10 <- mon_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mon_men_100m_11 <- mon_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mon_men_100m_12 <- mon_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mon_men_100m_13 <- mon_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mon_men_100m_14 <- mon_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mon_men_100m_15 <- mon_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mon_men_100m_16 <- mon_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
mon_men_100m_all <- bind_rows(mon_men_100m_1, mon_men_100m_2, mon_men_100m_3, mon_men_100m_4, mon_men_100m_5, mon_men_100m_6, mon_men_100m_7, mon_men_100m_8, mon_men_100m_9, mon_men_100m_10, mon_men_100m_11, mon_men_100m_12, mon_men_100m_13, mon_men_100m_14, mon_men_100m_15, mon_men_100m_16)
mon_men_100m_all <- mon_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1976,"Host City" ="Montreal", "Host Country"="Canada")
mon_men_100m_all[110,1]<- "Gold"
mon_men_100m_all[111,1]<- "Silver"
mon_men_100m_all[112,1]<- "Bronze"
mon_men_100m_all
## Rank Athlete Nation Time Notes
## 1 1 Hasely Crawford Trinidad and Tobago 10.42 Q
## 2 2 Alexander Thieme East Germany 10.64 Q
## 3 3 Luciano Caravani Italy 10.66 Q
## 4 4 Lambert Micha Belgium 10.69
## 5 5 Gregory Simons Bermuda 10.76
## 6 6 Bjarni Stefánsson Iceland 11.28
## 7 1 Johnny Lam Jones United States 10.43 Q
## 8 2 Amadou Meïté Ivory Coast 10.53 Q
## 9 3 Ainsley Armstrong Trinidad and Tobago 10.59 Q
## 10 4 Mike Sharpe Bermuda 10.70
## 11 5 Dominique Chauvelot France 10.79
## 12 6 Mohamed Al-Sehly Saudi Arabia 11.10
## 13 7 Werner Bastians West Germany 11.17
## 14 8 Armando Padilla Nicaragua 11.52
## 15 1 Petar Petrov Bulgaria 10.46 Q
## 16 2 Zenon Licznerski Poland 10.60 Q
## 17 3 Rui da Silva Brazil 10.61 Q
## 18 4 Christer Garpenborg Sweden 10.64 q
## 19 5 Jean-Claude Amoureux France 10.75
## 20 6 Abdul Kareem Al-Awad Kuwait 11.27
## 21 7 Ayoub Bodaghi Iran 11.39
## 22 1 Don Quarrie Jamaica 10.38 Q
## 23 2 Guy Abrahams Panama 10.40 Q
## 24 3 Marvin Nash Canada 10.59 Q
## 25 4 Mike Sands Bahamas 10.65 q
## 26 5 Dennis Trott Bermuda 10.67 q
## 27 6 Peter Fitzgerald Australia 10.87
## 28 7 Ronald Russell Virgin Islands 11.22
## 29 1 Harvey Glance United States 10.37 Q
## 30 2 Marian Woronin Poland 10.56 Q
## 31 3 Aleksandr Aksinin Soviet Union 10.60 Q
## 32 4 Colin Bradford Jamaica 10.64 q
## 33 5 Pedro Ferrer Puerto Rico 10.76
## 34 6 Vasilios Papageorgopoulos Greece 10.82
## 35 7 Leonard Jervis Bahamas 10.87
## 36 1 Klaus-Dieter Kurrat East Germany 10.37 Q
## 37 2 Valeriy Borzov Soviet Union 10.53 Q
## 38 3 Dieter Steinmann West Germany 10.68 Q
## 39 4 Francisco Gómez Cuba 10.68 q
## 40 5 Barka Sy Senegal 10.81
## 41 6 Masahide Jinno Japan 10.94
## 42 7 Colin Thurton Belize 11.03
## 43 8 Siegfried Regales Netherlands Antilles 11.11
## 44 1 Steve Riddick United States 10.43 Q
## 45 2 Andrzej Świerczyński Poland 10.62 Q
## 46 3 Adama Fall Senegal 10.72 Q
## 47 4 Suchart Chairsuvaparb Thailand 10.75
## 48 5 Roland Bombardella Luxembourg 10.76
## 49 6 Clive Sands Bahamas 10.82
## 50 7 Philippe Étienne Haiti 11.05
## 51 1 Gilles Échevin France 10.53 Q
## 52 2 Klaus Bieler West Germany 10.58 Q
## 53 3 Anat Ratanapol Thailand 10.71 Q
## 54 4 Hermes Ramírez Cuba 10.72
## 55 5 Momar N'Dao Senegal 10.74
## 56 6 Ramli Ahmad Malaysia 10.98
## 57 1 Sammy Monsels Suriname 10.58 Q
## 58 2 Silvio Leonard Cuba 10.62 Q
## 59 3 Juris Silovs Soviet Union 10.70 Q
## 60 4 Chris Brathwaite Trinidad and Tobago 10.71
## 61 5 Endre Lépold Hungary 10.82
## 62 6 Pearson Jordan Barbados 10.95
## 63 7 Tony Moore Fiji 11.16
## 64 1 Don Quarrie Jamaica 10.33 Q
## 65 2 Steve Riddick United States 10.36 Q
## 66 3 Marvin Nash Canada 10.48 Q
## 67 4 Aleksandr Aksinin Soviet Union 10.55 Q
## 68 5 Dennis Trott Bermuda 10.64
## 69 6 Anat Ratanapol Thailand 10.65
## 70 7 Luciano Caravani Italy 10.81
## 71 8 Gilles Échevin| France 12.00
## 72 1 Guy Abrahams Panama 10.35 Q
## 73 2 Johnny Lam Jones United States 10.46 Q
## 74 3 Alexander Thieme East Germany 10.50 Q
## 75 4 Marian Woronin Poland 10.53 Q
## 76 5 Silvio Leonard Cuba 10.59
## 77 6 Sammy Monsels Suriname 10.61
## 78 7 Colin Bradford Jamaica 10.62
## 79 8 Christer Garpenborg Sweden 10.63
## 80 1 Hasely Crawford Trinidad and Tobago 10.29 Q
## 81 2 Valeriy Borzov Soviet Union 10.39 Q
## 82 3 Amadou Meïté Ivory Coast 10.45 Q
## 83 4 Rui da Silva Brazil 10.57 Q
## 84 5 Andrzej Świerczyński Poland 10.59
## 85 6 Adama Fall Senegal 10.60
## 86 7 Klaus Bieler West Germany 10.80
## 87 1 Harvey Glance United States 10.23 Q
## 88 2 Klaus-Dieter Kurrat East Germany 10.29 Q
## 89 3 Petar Petrov Bulgaria 10.30 Q
## 90 4 Ainsley Armstrong Trinidad and Tobago 10.46 Q
## 91 5 Francisco Gómez Cuba 10.49
## 92 6 Zenon Licznerski Poland 10.52
## 93 7 Dieter Steinmann West Germany 10.67
## 94 1 Harvey Glance United States 10.24 Q
## 95 2 Valeriy Borzov Soviet Union 10.30 Q
## 96 3 Klaus-Dieter Kurrat East Germany 10.30 Q
## 97 4 Guy Abrahams Panama 10.37 Q
## 98 5 Marvin Nash Canada 10.52
## 99 6 Ainsley Armstrong Trinidad and Tobago 10.52
## 100 7 Rui da Silva Brazil 10.54
## 101 8 Marian Woronin Poland 10.69
## 102 1 Hasely Crawford Trinidad and Tobago 10.22 Q
## 103 2 Don Quarrie Jamaica 10.26 Q
## 104 3 Johnny Lam Jones United States 10.30 Q
## 105 4 Petar Petrov Bulgaria 10.30 Q
## 106 5 Steve Riddick United States 10.33
## 107 6 Amadou Meïté Ivory Coast 10.46
## 108 7 Aleksandr Aksinin Soviet Union 10.50
## 109 8 Alexander Thieme East Germany 10.50
## 110 Gold Hasely Crawford Trinidad and Tobago 10.06 <NA>
## 111 Silver Don Quarrie Jamaica 10.08 <NA>
## 112 Bronze Valeriy Borzov Soviet Union 10.14 <NA>
## 113 4 Harvey Glance United States 10.19 <NA>
## 114 5 Guy Abrahams Panama 10.25 <NA>
## 115 6 Johnny Lam Jones United States 10.27 <NA>
## 116 7 Klaus-Dieter Kurrat East Germany 10.31 <NA>
## 117 8 Petar Petrov Bulgaria 10.35 <NA>
## Heat Year Host City Host Country
## 1 1 1976 Montreal Canada
## 2 1 1976 Montreal Canada
## 3 1 1976 Montreal Canada
## 4 1 1976 Montreal Canada
## 5 1 1976 Montreal Canada
## 6 1 1976 Montreal Canada
## 7 2 1976 Montreal Canada
## 8 2 1976 Montreal Canada
## 9 2 1976 Montreal Canada
## 10 2 1976 Montreal Canada
## 11 2 1976 Montreal Canada
## 12 2 1976 Montreal Canada
## 13 2 1976 Montreal Canada
## 14 2 1976 Montreal Canada
## 15 3 1976 Montreal Canada
## 16 3 1976 Montreal Canada
## 17 3 1976 Montreal Canada
## 18 3 1976 Montreal Canada
## 19 3 1976 Montreal Canada
## 20 3 1976 Montreal Canada
## 21 3 1976 Montreal Canada
## 22 4 1976 Montreal Canada
## 23 4 1976 Montreal Canada
## 24 4 1976 Montreal Canada
## 25 4 1976 Montreal Canada
## 26 4 1976 Montreal Canada
## 27 4 1976 Montreal Canada
## 28 4 1976 Montreal Canada
## 29 5 1976 Montreal Canada
## 30 5 1976 Montreal Canada
## 31 5 1976 Montreal Canada
## 32 5 1976 Montreal Canada
## 33 5 1976 Montreal Canada
## 34 5 1976 Montreal Canada
## 35 5 1976 Montreal Canada
## 36 6 1976 Montreal Canada
## 37 6 1976 Montreal Canada
## 38 6 1976 Montreal Canada
## 39 6 1976 Montreal Canada
## 40 6 1976 Montreal Canada
## 41 6 1976 Montreal Canada
## 42 6 1976 Montreal Canada
## 43 6 1976 Montreal Canada
## 44 7 1976 Montreal Canada
## 45 7 1976 Montreal Canada
## 46 7 1976 Montreal Canada
## 47 7 1976 Montreal Canada
## 48 7 1976 Montreal Canada
## 49 7 1976 Montreal Canada
## 50 7 1976 Montreal Canada
## 51 8 1976 Montreal Canada
## 52 8 1976 Montreal Canada
## 53 8 1976 Montreal Canada
## 54 8 1976 Montreal Canada
## 55 8 1976 Montreal Canada
## 56 8 1976 Montreal Canada
## 57 9 1976 Montreal Canada
## 58 9 1976 Montreal Canada
## 59 9 1976 Montreal Canada
## 60 9 1976 Montreal Canada
## 61 9 1976 Montreal Canada
## 62 9 1976 Montreal Canada
## 63 9 1976 Montreal Canada
## 64 Quarter Final 1976 Montreal Canada
## 65 Quarter Final 1976 Montreal Canada
## 66 Quarter Final 1976 Montreal Canada
## 67 Quarter Final 1976 Montreal Canada
## 68 Quarter Final 1976 Montreal Canada
## 69 Quarter Final 1976 Montreal Canada
## 70 Quarter Final 1976 Montreal Canada
## 71 Quarter Final 1976 Montreal Canada
## 72 Quarter Final 1976 Montreal Canada
## 73 Quarter Final 1976 Montreal Canada
## 74 Quarter Final 1976 Montreal Canada
## 75 Quarter Final 1976 Montreal Canada
## 76 Quarter Final 1976 Montreal Canada
## 77 Quarter Final 1976 Montreal Canada
## 78 Quarter Final 1976 Montreal Canada
## 79 Quarter Final 1976 Montreal Canada
## 80 Quarter Final 1976 Montreal Canada
## 81 Quarter Final 1976 Montreal Canada
## 82 Quarter Final 1976 Montreal Canada
## 83 Quarter Final 1976 Montreal Canada
## 84 Quarter Final 1976 Montreal Canada
## 85 Quarter Final 1976 Montreal Canada
## 86 Quarter Final 1976 Montreal Canada
## 87 Quarter Final 1976 Montreal Canada
## 88 Quarter Final 1976 Montreal Canada
## 89 Quarter Final 1976 Montreal Canada
## 90 Quarter Final 1976 Montreal Canada
## 91 Quarter Final 1976 Montreal Canada
## 92 Quarter Final 1976 Montreal Canada
## 93 Quarter Final 1976 Montreal Canada
## 94 Semi Final 1976 Montreal Canada
## 95 Semi Final 1976 Montreal Canada
## 96 Semi Final 1976 Montreal Canada
## 97 Semi Final 1976 Montreal Canada
## 98 Semi Final 1976 Montreal Canada
## 99 Semi Final 1976 Montreal Canada
## 100 Semi Final 1976 Montreal Canada
## 101 Semi Final 1976 Montreal Canada
## 102 Semi Final 1976 Montreal Canada
## 103 Semi Final 1976 Montreal Canada
## 104 Semi Final 1976 Montreal Canada
## 105 Semi Final 1976 Montreal Canada
## 106 Semi Final 1976 Montreal Canada
## 107 Semi Final 1976 Montreal Canada
## 108 Semi Final 1976 Montreal Canada
## 109 Semi Final 1976 Montreal Canada
## 110 Final 1976 Montreal Canada
## 111 Final 1976 Montreal Canada
## 112 Final 1976 Montreal Canada
## 113 Final 1976 Montreal Canada
## 114 Final 1976 Montreal Canada
## 115 Final 1976 Montreal Canada
## 116 Final 1976 Montreal Canada
## 117 Final 1976 Montreal Canada
Munich 1972
mun_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1972_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-mun_men_100m%>%html_table(fill=TRUE)
mun_men_100m_1<-tables[[5]]
mun_men_100m_2<-tables[[6]]
mun_men_100m_3<-tables[[7]]
mun_men_100m_4<-tables[[8]]
mun_men_100m_5<-tables[[9]]
mun_men_100m_6<-tables[[10]]
mun_men_100m_7<-tables[[11]]
mun_men_100m_8<-tables[[12]]
mun_men_100m_9<-tables[[13]]
mun_men_100m_10<-tables[[14]]
mun_men_100m_11<-tables[[15]]
mun_men_100m_12<-tables[[16]]
mun_men_100m_13<-tables[[17]]
mun_men_100m_14<-tables[[18]]
mun_men_100m_15<-tables[[19]]
mun_men_100m_16<-tables[[20]]
mun_men_100m_17<-tables[[21]]
mun_men_100m_18<-tables[[22]]
mun_men_100m_19<-tables[[23]]
mun_men_100m_20<-tables[[24]]
mun_men_100m_1 <- mun_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
mun_men_100m_2 <- mun_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
mun_men_100m_3 <- mun_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
mun_men_100m_4 <- mun_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
mun_men_100m_5 <- mun_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
mun_men_100m_6 <- mun_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
mun_men_100m_7 <- mun_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
mun_men_100m_8 <- mun_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
mun_men_100m_9 <- mun_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
mun_men_100m_10 <- mun_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
mun_men_100m_11 <- mun_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
mun_men_100m_12 <- mun_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
mun_men_100m_13 <- mun_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mun_men_100m_14 <- mun_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mun_men_100m_15 <- mun_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mun_men_100m_16 <- mun_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mun_men_100m_17 <- mun_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mun_men_100m_18 <- mun_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mun_men_100m_19 <- mun_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mun_men_100m_20 <- mun_men_100m_20 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
mun_men_100m_all <- bind_rows(mun_men_100m_1, mun_men_100m_2, mun_men_100m_3, mun_men_100m_4, mun_men_100m_5, mun_men_100m_6, mun_men_100m_7, mun_men_100m_8, mun_men_100m_9, mun_men_100m_10, mun_men_100m_11, mun_men_100m_12, mun_men_100m_13, mun_men_100m_14, mun_men_100m_15, mun_men_100m_16, mun_men_100m_17, mun_men_100m_18, mun_men_100m_19, mun_men_100m_20)
mun_men_100m_all <- mun_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1972,"Host City" ="Munich", "Host Country"="Germany")
mun_men_100m_all[139,1]<- "Gold"
mun_men_100m_all[140,1]<- "Silver"
mun_men_100m_all[141,1]<- "Bronze"
mun_men_100m_all
## Rank Athlete Nation Time Notes
## 1 1 Lennox Miller Jamaica 10.45 Q
## 2 2 Amadou Meïté Ivory Coast 10.51 Q
## 3 3 Hans-Jürgen Bombach East Germany 10.66 Q
## 4 4 Rudy Reid Trinidad and Tobago 10.74
## 5 5 Dan Amuke Kenya 10.76
## 6 6 Byambajavyn Enkhbaatar Mongolia 10.93
## 7 7 Samphon Mao Khmer Republic 10.95
## 8 8 Luis Alers Puerto Rico 11.09
## 9 1 Valeriy Borzov Soviet Union 10.47 Q
## 10 2 Mike Sands Bahamas 10.67 Q
## 11 3 Luděk Bohman Czechoslovakia 10.72 Q
## 12 4 Gerhard Wucherer West Germany 10.82
## 13 5 Tadeusz Cuch Poland 10.89
## 14 6 Yeo Kian Chye Singapore 10.92
## 15 7 Alphonse Yanghat Republic of the Congo 10.95
## 16 8 Andrew Sartee Liberia 11.09
## 17 1 Manfred Kokot East Germany 10.49 Q
## 18 2 Sandy Osei-Agyemang Ghana 10.52 Q
## 19 3 Les Piggot Great Britain 10.54 Q
## 20 4 John Mwebi Kenya 10.60
## 21 5 Luís da Silva Brazil 10.63
## 22 6 Kevin Johnson Bahamas 10.91
## 23 7 Mansour Al-Juaid Saudi Arabia 11.23
## 24 1 Jaroslav Matoušek Czechoslovakia 10.37 Q
## 25 2 Brian Green Great Britain 10.41 Q
## 26 3 Kouakou Komenan Ivory Coast 10.50 Q
## 27 4 Walter Callander Bahamas 10.78
## 28 5 George Calhern Virgin Islands 10.90
## 29 6 Farhan Navab Iran 11.02
## 30 7 Angel Guerreros Paraguay 11.12
## 31 1 Aleksandr Kornelyuk Soviet Union 10.38 Q
## 32 2 Kola Abdulai Nigeria 10.57 Q
## 33 3 Stanisław Wagner Poland 10.62 Q
## 34 4 Juraj Demeč Czechoslovakia 10.66
## 35 5 Félix Mata Venezuela 10.73
## 36 6 Bjarni Stefánsson Iceland 10.99
## 37 7 Younis Abdallah Kuwait 11.20
## 38 1 Rey Robinson United States 10.56 Q
## 39 2 Philippe Clerc Switzerland 10.58 Q
## 40 3 Sammy Monsels Suriname 10.61 Q
## 41 4 George Daniels Ghana 10.65
## 42 5 André Bicaba Upper Volta 10.71
## 43 6 Motsapi Moorosi Lesotho 10.74
## 44 7 William Dralu Uganda 10.92
## 45 1 Hasely Crawford Trinidad and Tobago 10.50 Q
## 46 2 Don Halliday Great Britain 10.58 Q
## 47 3 Erik Gustafsson Finland 10.68 Q
## 48 4 Guillermo González Puerto Rico 10.73
## 49 5 Norman Chihota Tanzania 10.79
## 50 6 Egzi Gebre-Gebre Ethiopia 10.89
## 51 7 Pierre-Richard Gaetjens Haiti 11.50
## 52 1 Barka Sy Senegal 10.30 Q
## 53 2 Bernd Borth East Germany 10.48 Q
## 54 3 Audun Garshol Norway 10.49 Q
## 55 4 Su Wen-Ho Republic of China 10.59 q
## 56 5 Gana Abba Kimet Chad 10.89
## 57 6 Raimo Vilén Finland 11.00
## 58 7 Lionel Caero Bolivia 11.19
## 59 1 Alain Sarteur France 10.42 Q
## 60 2 Saleh Alah-Djaba Chad 10.65 Q
## 61 3 Charlie Francis Canada 10.68 Q
## 62 4 Andrés Calonge Argentina 10.73
## 63 5 Laurie D'Arcy New Zealand 10.77
## 64 6 Larmeck Mukonde Zambia 11.16
## 65 1 Vasilios Papageorgopoulos Greece 10.24 Q
## 66 2 Jean-Louis Ravelomanantsoa Madagascar 10.29 Q
## 67 3 Michael Fray Jamaica 10.47 Q
## 68 4 Antti Rajamäki Finland 10.52 q
## 69 5 Ainsley Armstrong Trinidad and Tobago 10.56 q
## 70 6 Jorge Vizcarrondo Puerto Rico 10.79
## 71 7 Zain-ud-Din bin Abdul Wahab Malaysia 10.80
## 72 1 Eddie Hart United States 10.47 Q
## 73 2 Dominique Chauvelot France 10.66 Q
## 74 3 Klaus Ehl West Germany 10.67 Q
## 75 4 Benedict Majekodunmi Nigeria 10.70
## 76 5 Gaston Malam Cameroon 10.88
## 77 6 Sunil Gunawardene Ceylon 11.00
## 78 7 Tukal Mokalam Philippines 11.02
## 79 1 Robert Taylor United States 10.32 Q
## 80 2 Jobst Hirscht West Germany 10.36 Q
## 81 3 Zenon Nowosz Poland 10.36 Q
## 82 4 Volodymyr Atamas Soviet Union 10.51 q
## 83 5 Axel Nepraunik Austria 10.61
## 84 6 André Byrame France 10.64
## 85 7 Moustafa Matola Malawi 11.31
## 86 1 Jobst Hirscht West Germany 10.25 Q
## 87 2 Jaroslav Matoušek Czechoslovakia 10.35 Q
## 88 3 Bernd Borth East Germany 10.44 Q
## 89 4 Philippe Clerc Switzerland 10.45
## 90 5 Ainsley Armstrong Trinidad and Tobago 10.47
## 91 6 Mike Sands Bahamas 10.50
## 92 7 Audun Garshol Norway 10.55
## 93 1 Jean-Louis Ravelomanantsoa Madagascar 10.47 Q
## 94 2 Brian Green Great Britain 10.58 Q
## 95 3 Kouakou Komenan Ivory Coast 10.60 Q
## 96 4 Stanisław Wagner Poland 10.61
## 97 5 Sandy Osei-Agyemang Ghana 10.66
## 98 6 Erik Gustafsson Finland 10.78
## 99 7 Su Wen-Ho Republic of China 10.82
## 100 1 Valeriy Borzov Soviet Union 10.07 Q, ER
## 101 2 Robert Taylor United States 10.16 Q
## 102 3 Hasely Crawford Trinidad and Tobago 10.18 Q
## 103 4 Zenon Nowosz Poland 10.40 q
## 104 5 Klaus Ehl West Germany 10.44
## 105 6 Les Piggot Great Britain 10.53
## 106 7 Dominique Chauvelot France 10.54
## 107 8 Hans-Jürgen Bombach East Germany 10.64
## 108 1 Aleksandr Kornelyuk Soviet Union 10.23 Q
## 109 2 Barka Sy Senegal 10.27 Q
## 110 3 Michael Fray Jamaica 10.28 Q
## 111 4 Kola Abdulai Nigeria 10.41
## 112 5 Antti Rajamäki Finland 10.43
## 113 6 Manfred Kokot East Germany 10.44
## 114 7 Saleh Alah-Djaba Chad 10.51
## 115 8 Charlie Francis Canada 10.51
## 116 1 Lennox Miller Jamaica 10.33 Q
## 117 2 Alain Sarteur France 10.40 Q
## 118 3 Vasilios Papageorgopoulos Greece 10.45 Q
## 119 4 Amadou Meïté Ivory Coast 10.52
## 120 5 Luděk Bohman Czechoslovakia 10.52
## 121 6 Don Halliday Great Britain 10.60
## 122 7 Sammy Monsels Suriname 10.64
## 123 8 Vladimir Atamas Soviet Union 10.83
## 124 1 Valeriy Borzov Soviet Union 10.21 Q
## 125 2 Hasely Crawford Trinidad and Tobago 10.36 Q
## 126 3 Jobst Hirscht West Germany 10.36 Q
## 127 4 Michael Fray Jamaica 10.48 Q
## 128 5 Alain Sarteur France 10.51
## 129 6 Kouakou Komenan Ivory Coast 10.57
## 130 7 Bernd Borth East Germany 10.60
## 131 1 Robert Taylor United States 10.30 Q
## 132 2 Lennox Miller Jamaica 10.31 Q
## 133 3 Aleksandr Kornelyuk Soviet Union 10.35 Q
## 134 4 Zenon Nowosz Poland 10.42 Q
## 135 5 Barka Sy Senegal 10.42
## 136 6 Jean-Louis Ravelomanantsoa Madagascar 10.46
## 137 7 Jaroslav Matoušek Czechoslovakia 10.40
## 138 8 Brian Green Great Britain 10.40
## 139 Gold Valeriy Borzov Soviet Union 10.14 <NA>
## 140 Silver Robert Taylor United States 10.24 <NA>
## 141 Bronze Lennox Miller Jamaica 10.33 <NA>
## 142 4 Aleksandr Kornelyuk Soviet Union 10.36 <NA>
## 143 5 Michael Fray Jamaica 10.40 <NA>
## 144 6 Jobst Hirscht West Germany 10.40 <NA>
## 145 7 Zenon Nowosz Poland 10.46 <NA>
## Heat Lane Year Host City Host Country
## 1 1 NA 1972 Munich Germany
## 2 1 NA 1972 Munich Germany
## 3 1 NA 1972 Munich Germany
## 4 1 NA 1972 Munich Germany
## 5 1 NA 1972 Munich Germany
## 6 1 NA 1972 Munich Germany
## 7 1 NA 1972 Munich Germany
## 8 1 NA 1972 Munich Germany
## 9 2 NA 1972 Munich Germany
## 10 2 NA 1972 Munich Germany
## 11 2 NA 1972 Munich Germany
## 12 2 NA 1972 Munich Germany
## 13 2 NA 1972 Munich Germany
## 14 2 NA 1972 Munich Germany
## 15 2 NA 1972 Munich Germany
## 16 2 NA 1972 Munich Germany
## 17 3 NA 1972 Munich Germany
## 18 3 NA 1972 Munich Germany
## 19 3 NA 1972 Munich Germany
## 20 3 NA 1972 Munich Germany
## 21 3 NA 1972 Munich Germany
## 22 3 NA 1972 Munich Germany
## 23 3 NA 1972 Munich Germany
## 24 4 NA 1972 Munich Germany
## 25 4 NA 1972 Munich Germany
## 26 4 NA 1972 Munich Germany
## 27 4 NA 1972 Munich Germany
## 28 4 NA 1972 Munich Germany
## 29 4 NA 1972 Munich Germany
## 30 4 NA 1972 Munich Germany
## 31 5 NA 1972 Munich Germany
## 32 5 NA 1972 Munich Germany
## 33 5 NA 1972 Munich Germany
## 34 5 NA 1972 Munich Germany
## 35 5 NA 1972 Munich Germany
## 36 5 NA 1972 Munich Germany
## 37 5 NA 1972 Munich Germany
## 38 6 NA 1972 Munich Germany
## 39 6 NA 1972 Munich Germany
## 40 6 NA 1972 Munich Germany
## 41 6 NA 1972 Munich Germany
## 42 6 NA 1972 Munich Germany
## 43 6 NA 1972 Munich Germany
## 44 6 NA 1972 Munich Germany
## 45 7 NA 1972 Munich Germany
## 46 7 NA 1972 Munich Germany
## 47 7 NA 1972 Munich Germany
## 48 7 NA 1972 Munich Germany
## 49 7 NA 1972 Munich Germany
## 50 7 NA 1972 Munich Germany
## 51 7 NA 1972 Munich Germany
## 52 8 NA 1972 Munich Germany
## 53 8 NA 1972 Munich Germany
## 54 8 NA 1972 Munich Germany
## 55 8 NA 1972 Munich Germany
## 56 8 NA 1972 Munich Germany
## 57 8 NA 1972 Munich Germany
## 58 8 NA 1972 Munich Germany
## 59 9 NA 1972 Munich Germany
## 60 9 NA 1972 Munich Germany
## 61 9 NA 1972 Munich Germany
## 62 9 NA 1972 Munich Germany
## 63 9 NA 1972 Munich Germany
## 64 9 NA 1972 Munich Germany
## 65 10 NA 1972 Munich Germany
## 66 10 NA 1972 Munich Germany
## 67 10 NA 1972 Munich Germany
## 68 10 NA 1972 Munich Germany
## 69 10 NA 1972 Munich Germany
## 70 10 NA 1972 Munich Germany
## 71 10 NA 1972 Munich Germany
## 72 11 NA 1972 Munich Germany
## 73 11 NA 1972 Munich Germany
## 74 11 NA 1972 Munich Germany
## 75 11 NA 1972 Munich Germany
## 76 11 NA 1972 Munich Germany
## 77 11 NA 1972 Munich Germany
## 78 11 NA 1972 Munich Germany
## 79 12 NA 1972 Munich Germany
## 80 12 NA 1972 Munich Germany
## 81 12 NA 1972 Munich Germany
## 82 12 NA 1972 Munich Germany
## 83 12 NA 1972 Munich Germany
## 84 12 NA 1972 Munich Germany
## 85 12 NA 1972 Munich Germany
## 86 Quarter Final NA 1972 Munich Germany
## 87 Quarter Final NA 1972 Munich Germany
## 88 Quarter Final NA 1972 Munich Germany
## 89 Quarter Final NA 1972 Munich Germany
## 90 Quarter Final NA 1972 Munich Germany
## 91 Quarter Final NA 1972 Munich Germany
## 92 Quarter Final NA 1972 Munich Germany
## 93 Quarter Final NA 1972 Munich Germany
## 94 Quarter Final NA 1972 Munich Germany
## 95 Quarter Final NA 1972 Munich Germany
## 96 Quarter Final NA 1972 Munich Germany
## 97 Quarter Final NA 1972 Munich Germany
## 98 Quarter Final NA 1972 Munich Germany
## 99 Quarter Final NA 1972 Munich Germany
## 100 Quarter Final NA 1972 Munich Germany
## 101 Quarter Final NA 1972 Munich Germany
## 102 Quarter Final NA 1972 Munich Germany
## 103 Quarter Final NA 1972 Munich Germany
## 104 Quarter Final NA 1972 Munich Germany
## 105 Quarter Final NA 1972 Munich Germany
## 106 Quarter Final NA 1972 Munich Germany
## 107 Quarter Final NA 1972 Munich Germany
## 108 Quarter Final NA 1972 Munich Germany
## 109 Quarter Final NA 1972 Munich Germany
## 110 Quarter Final NA 1972 Munich Germany
## 111 Quarter Final NA 1972 Munich Germany
## 112 Quarter Final NA 1972 Munich Germany
## 113 Quarter Final NA 1972 Munich Germany
## 114 Quarter Final NA 1972 Munich Germany
## 115 Quarter Final NA 1972 Munich Germany
## 116 Quarter Final NA 1972 Munich Germany
## 117 Quarter Final NA 1972 Munich Germany
## 118 Quarter Final NA 1972 Munich Germany
## 119 Quarter Final NA 1972 Munich Germany
## 120 Quarter Final NA 1972 Munich Germany
## 121 Quarter Final NA 1972 Munich Germany
## 122 Quarter Final NA 1972 Munich Germany
## 123 Quarter Final NA 1972 Munich Germany
## 124 Semi Final NA 1972 Munich Germany
## 125 Semi Final NA 1972 Munich Germany
## 126 Semi Final NA 1972 Munich Germany
## 127 Semi Final NA 1972 Munich Germany
## 128 Semi Final NA 1972 Munich Germany
## 129 Semi Final NA 1972 Munich Germany
## 130 Semi Final NA 1972 Munich Germany
## 131 Semi Final NA 1972 Munich Germany
## 132 Semi Final NA 1972 Munich Germany
## 133 Semi Final NA 1972 Munich Germany
## 134 Semi Final NA 1972 Munich Germany
## 135 Semi Final NA 1972 Munich Germany
## 136 Semi Final NA 1972 Munich Germany
## 137 Semi Final NA 1972 Munich Germany
## 138 Semi Final NA 1972 Munich Germany
## 139 Final 2 1972 Munich Germany
## 140 Final 4 1972 Munich Germany
## 141 Final 5 1972 Munich Germany
## 142 Final 6 1972 Munich Germany
## 143 Final 8 1972 Munich Germany
## 144 Final 7 1972 Munich Germany
## 145 Final 1 1972 Munich Germany
Mexico City 1968
mex_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1968_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-mex_men_100m%>%html_table(fill=TRUE)
mex_men_100m_1<-tables[[5]]
mex_men_100m_2<-tables[[6]]
mex_men_100m_3<-tables[[7]]
mex_men_100m_4<-tables[[8]]
mex_men_100m_5<-tables[[9]]
mex_men_100m_6<-tables[[10]]
mex_men_100m_7<-tables[[11]]
mex_men_100m_8<-tables[[12]]
mex_men_100m_9<-tables[[13]]
mex_men_100m_10<-tables[[14]]
mex_men_100m_11<-tables[[15]]
mex_men_100m_12<-tables[[16]]
mex_men_100m_13<-tables[[17]]
mex_men_100m_14<-tables[[18]]
mex_men_100m_15<-tables[[19]]
mex_men_100m_16<-tables[[20]]
names(mex_men_100m_16)[5] <- "Time"
mex_men_100m_1 <- mex_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
mex_men_100m_2 <- mex_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
mex_men_100m_3 <- mex_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
mex_men_100m_4 <- mex_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
mex_men_100m_5 <- mex_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
mex_men_100m_6 <- mex_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
mex_men_100m_7 <- mex_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
mex_men_100m_8 <- mex_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
mex_men_100m_9 <- mex_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
mex_men_100m_10 <- mex_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mex_men_100m_11 <- mex_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mex_men_100m_12 <- mex_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mex_men_100m_13 <- mex_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mex_men_100m_14 <- mex_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mex_men_100m_15 <- mex_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mex_men_100m_16 <- mex_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
mex_men_100m_all <- bind_rows(mex_men_100m_1, mex_men_100m_2, mex_men_100m_3, mex_men_100m_4, mex_men_100m_5, mex_men_100m_6, mex_men_100m_7, mex_men_100m_8, mex_men_100m_9, mex_men_100m_10, mex_men_100m_11, mex_men_100m_12, mex_men_100m_13, mex_men_100m_14, mex_men_100m_15, mex_men_100m_16)
mex_men_100m_all <- mex_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1968,"Host City" ="Mexico City", "Host Country"="Mexico")
mex_men_100m_all[113,1]<- "Gold"
mex_men_100m_all[114,1]<- "Silver"
mex_men_100m_all[115,1]<- "Bronze"
mex_men_100m_all
## Rank Athlete Nation Time
## 1 1 Charles Greene United States 10.09
## 2 2 Hideo Iijima Japan 10.24
## 3 3 Canagasabai Kunalan Singapore 10.47
## 4 4 Wiesław Maniak Poland 10.49
## 5 5 Barka Sy Senegal 10.61
## 6 1 Jim Hines United States 10.26
## 7 2 Jean-Louis Ravelomanantsoa Madagascar 10.30
## 8 3 Gaoussou Koné Ivory Coast 10.37
## 9 4 Amos Omolo Uganda 10.50
## 10 5 Porfirio Veras Dominican Republic 10.51
## 11 6 Julius Sang Kenya 10.64
## 12 7 Jorge Vizcarrondo Puerto Rico 10.71
## 13 8 Manuel Planchart Venezuela 10.80
## 14 1 Enrique Figuerola Cuba 10.40
## 15 2 Iván Moreno Chile 10.53
## 16 3 Barrie Kelly Great Britain 10.55
## 17 4 Yevgeny Sinyayev Soviet Union 10.56
## 18 5 Zenon Nowosz Poland 10.57
## 19 6 Charles Asati Kenya 10.63
## 20 7 Jimmy Sierra Colombia 10.88
## 21 1 Pablo Montes Cuba 10.14
## 22 2 Mel Pender United States 10.35
## 23 3 Ron Jones Great Britain 10.45
## 24 4 Oleksiy Khlopotnov Soviet Union 10.49
## 25 5 Norris Stubbs Bahamas 10.67
## 26 6 Chen Chuan-show Taiwan 10.91
## 27 7 Philippe Housiaux Belgium 10.94
## 28 1 Roger Bambuck France 10.18
## 29 2 Heinz Erbstößer East Germany 10.42
## 30 3 Michael Ahey Ghana 10.59
## 31 4 Bernard Nottage Bahamas 10.64
## 32 5 Ennio Preatoni Italy 10.65
## 33 6 Hansruedi Wiedmer Switzerland 10.75
## 34 7 Su Wen-ho Taiwan 10.81
## 35 1 Lennox Miller Jamaica 10.15
## 36 2 Hartmut Schelter East Germany 10.34
## 37 3 Manikavasagam Jegathesan Malaysia 10.35
## 38 4 Robert Ojo Nigeria 10.47
## 39 5 Ron Monsegue Trinidad and Tobago 10.56
## 40 6 Rogelio Onofre Philippines 10.58
## 41 1 Harry Jerome Canada 10.35
## 42 2 Karl-Peter Schmidtke West Germany 10.38
## 43 3 Harald Eggers East Germany 10.38
## 44 4 Kola Abdulai Nigeria 10.45
## 45 5 Miguel Angel González Mexico 10.59
## 46 6 Pablo McNeil Jamaica 10.62
## 47 7 Hassan El-Mech Morocco 10.79
## 48 8 Morgan Gesmalla Sudan 11.09
## 49 1 Gérard Fenouil France 10.42
## 50 2 Gerhard Wucherer West Germany 10.42
## 51 3 Marian Dudziak Poland 10.46
## 52 4 Vladislav Sapeya Soviet Union 10.46
## 53 5 Eddy Monsels Suriname 10.48
## 54 6 Greg Lewis Australia 10.55
## 55 7 Félix Bécquer Mexico 10.72
## 56 8 Rafael Santos El Salvador 11.22
## 57 1 Hermes Ramírez Cuba 10.30
## 58 2 Andrés Calonge Argentina 10.44
## 59 3 Jocelyn Delecour France 10.45
## 60 4 Gert Metz West Germany 10.55
## 61 5 Norman Chihota Tanzania 10.57
## 62 6 Horacio Esteves Venezuela 10.65
## 63 7 José Luis Sánchez Paraíso Spain 10.69
## 64 8 Juan Argüello Nicaragua 11.18
## 65 1 Lennox Miller Jamaica 10.11
## 66 2 Jim Hines United States 10.14
## 67 3 Enrique Figuerola Cuba 10.23
## 68 4 Iván Moreno Chile 10.37
## 69 5 Andrés Calonge Argentina 10.39
## 70 6 Ron Jones Great Britain 10.42
## 71 7 Karl-Peter Schmidtke West Germany 10.48
## 72 8 Vladislav Sapeya Soviet Union 10.51
## 73 1 Hermes Ramírez Cuba 10.10
## 74 2 Mel Pender United States 10.16
## 75 3 Roger Bambuck France 10.17
## 76 4 Harry Jerome Canada 10.22
## 77 5 Heinz Erbstößer East Germany 10.28
## 78 6 Gerhard Wucherer West Germany 10.33
## 79 7 Kola Abdulai Nigeria 10.38
## 80 8 Michael Ahey Ghana 10.49
## 81 1 Pablo Montes Cuba 10.16
## 82 2 Hartmut Schelter East Germany 10.29
## 83 3 Hideo Iijima Japan 10.31
## 84 4 Gérard Fenouil France 10.31
## 85 5 Marian Dudziak Poland 10.32
## 86 6 Manikavasagam Jegathesan Malaysia 10.38
## 87 7 Amos Omolo Uganda 10.45
## 88 8 Robert Ojo Nigeria 10.45
## 89 1 Charlie Greene United States 10.02
## 90 2 Jean-Louis Ravelomanantsoa Madagascar 10.18
## 91 3 Gaoussou Koné Ivory Coast 10.22
## 92 4 Harald Eggers East Germany 10.25
## 93 5 Barrie Kelly Great Britain 10.35
## 94 6 Jocelyn Delecour France 10.36
## 95 7 Canagasabai Kunalan Singapore 10.38
## 96 8 Eddy Monsels Suriname 10.45
## 97 1 Jim Hines United States 10.08
## 98 2 Roger Bambuck France 10.11
## 99 3 Harry Jerome Canada 10.17
## 100 4 Mel Pender United States 10.21
## 101 5 Enrique Figuerola Cuba 10.23
## 102 6 Hermes Ramírez Cuba 10.25
## 103 7 Harald Eggers East Germany 10.29
## 104 8 Hideo Iijima Japan 10.34
## 105 1 Charlie Greene United States 10.13
## 106 2 Lennox Miller Jamaica 10.15
## 107 3 Pablo Montes Cuba 10.19
## 108 4 Jean-Louis Ravelomanantsoa Madagascar 10.26
## 109 5 Gaoussou Koné Ivory Coast 10.27
## 110 6 Iván Moreno Chile 10.37
## 111 7 Gérard Fenouil France 10.40
## 112 8 Hartmut Schelter East Germany 10.40
## 113 Gold Jim Hines United States 9.90
## 114 Silver Lennox Miller Jamaica 10.00
## 115 Bronze Charlie Greene United States 10.00
## 116 4 Pablo Montes Cuba 10.10
## 117 5 Roger Bambuck France 10.10
## 118 6 Mel Pender United States 10.10
## 119 7 Harry Jerome Canada 10.20
## 120 8 Jean-Louis Ravelomanantsoa Madagascar 10.20
## Notes Heat Lane Time..a. Year Host City
## 1 Q 1 NA NA 1968 Mexico City
## 2 Q 1 NA NA 1968 Mexico City
## 3 Q 1 NA NA 1968 Mexico City
## 4 1 NA NA 1968 Mexico City
## 5 1 NA NA 1968 Mexico City
## 6 Q 2 NA NA 1968 Mexico City
## 7 Q 2 NA NA 1968 Mexico City
## 8 Q 2 NA NA 1968 Mexico City
## 9 q 2 NA NA 1968 Mexico City
## 10 2 NA NA 1968 Mexico City
## 11 2 NA NA 1968 Mexico City
## 12 2 NA NA 1968 Mexico City
## 13 2 NA NA 1968 Mexico City
## 14 Q 3 NA NA 1968 Mexico City
## 15 Q 3 NA NA 1968 Mexico City
## 16 Q 3 NA NA 1968 Mexico City
## 17 3 NA NA 1968 Mexico City
## 18 3 NA NA 1968 Mexico City
## 19 3 NA NA 1968 Mexico City
## 20 3 NA NA 1968 Mexico City
## 21 Q 4 NA NA 1968 Mexico City
## 22 Q 4 NA NA 1968 Mexico City
## 23 Q 4 NA NA 1968 Mexico City
## 24 4 NA NA 1968 Mexico City
## 25 4 NA NA 1968 Mexico City
## 26 4 NA NA 1968 Mexico City
## 27 4 NA NA 1968 Mexico City
## 28 Q 5 NA NA 1968 Mexico City
## 29 Q 5 NA NA 1968 Mexico City
## 30 Q 5 NA NA 1968 Mexico City
## 31 5 NA NA 1968 Mexico City
## 32 5 NA NA 1968 Mexico City
## 33 5 NA NA 1968 Mexico City
## 34 5 NA NA 1968 Mexico City
## 35 Q 6 NA NA 1968 Mexico City
## 36 Q 6 NA NA 1968 Mexico City
## 37 Q 6 NA NA 1968 Mexico City
## 38 q 6 NA NA 1968 Mexico City
## 39 6 NA NA 1968 Mexico City
## 40 6 NA NA 1968 Mexico City
## 41 Q 7 NA NA 1968 Mexico City
## 42 Q 7 NA NA 1968 Mexico City
## 43 Q 7 NA NA 1968 Mexico City
## 44 q 7 NA NA 1968 Mexico City
## 45 7 NA NA 1968 Mexico City
## 46 7 NA NA 1968 Mexico City
## 47 7 NA NA 1968 Mexico City
## 48 7 NA NA 1968 Mexico City
## 49 Q 8 NA NA 1968 Mexico City
## 50 Q 8 NA NA 1968 Mexico City
## 51 Q 8 NA NA 1968 Mexico City
## 52 q 8 NA NA 1968 Mexico City
## 53 q 8 NA NA 1968 Mexico City
## 54 8 NA NA 1968 Mexico City
## 55 8 NA NA 1968 Mexico City
## 56 8 NA NA 1968 Mexico City
## 57 Q 9 NA NA 1968 Mexico City
## 58 Q 9 NA NA 1968 Mexico City
## 59 Q 9 NA NA 1968 Mexico City
## 60 9 NA NA 1968 Mexico City
## 61 9 NA NA 1968 Mexico City
## 62 9 NA NA 1968 Mexico City
## 63 9 NA NA 1968 Mexico City
## 64 9 NA NA 1968 Mexico City
## 65 Q Quarter Final NA NA 1968 Mexico City
## 66 Q Quarter Final NA NA 1968 Mexico City
## 67 Q Quarter Final NA NA 1968 Mexico City
## 68 Q Quarter Final NA NA 1968 Mexico City
## 69 Quarter Final NA NA 1968 Mexico City
## 70 Quarter Final NA NA 1968 Mexico City
## 71 Quarter Final NA NA 1968 Mexico City
## 72 Quarter Final NA NA 1968 Mexico City
## 73 Q Quarter Final NA NA 1968 Mexico City
## 74 Q Quarter Final NA NA 1968 Mexico City
## 75 Q Quarter Final NA NA 1968 Mexico City
## 76 Q Quarter Final NA NA 1968 Mexico City
## 77 Quarter Final NA NA 1968 Mexico City
## 78 Quarter Final NA NA 1968 Mexico City
## 79 Quarter Final NA NA 1968 Mexico City
## 80 Quarter Final NA NA 1968 Mexico City
## 81 Q Quarter Final NA NA 1968 Mexico City
## 82 Q Quarter Final NA NA 1968 Mexico City
## 83 Q Quarter Final NA NA 1968 Mexico City
## 84 Q Quarter Final NA NA 1968 Mexico City
## 85 Quarter Final NA NA 1968 Mexico City
## 86 Quarter Final NA NA 1968 Mexico City
## 87 Quarter Final NA NA 1968 Mexico City
## 88 Quarter Final NA NA 1968 Mexico City
## 89 Q Quarter Final NA NA 1968 Mexico City
## 90 Q, NR Quarter Final NA NA 1968 Mexico City
## 91 Q Quarter Final NA NA 1968 Mexico City
## 92 Q Quarter Final NA NA 1968 Mexico City
## 93 Quarter Final NA NA 1968 Mexico City
## 94 Quarter Final NA NA 1968 Mexico City
## 95 Quarter Final NA NA 1968 Mexico City
## 96 Quarter Final NA NA 1968 Mexico City
## 97 Q Semi Final NA NA 1968 Mexico City
## 98 Q Semi Final NA NA 1968 Mexico City
## 99 Q Semi Final NA NA 1968 Mexico City
## 100 Q Semi Final NA NA 1968 Mexico City
## 101 Semi Final NA NA 1968 Mexico City
## 102 Semi Final NA NA 1968 Mexico City
## 103 Semi Final NA NA 1968 Mexico City
## 104 Semi Final NA NA 1968 Mexico City
## 105 Q Semi Final NA NA 1968 Mexico City
## 106 Q Semi Final NA NA 1968 Mexico City
## 107 Q Semi Final NA NA 1968 Mexico City
## 108 Q Semi Final NA NA 1968 Mexico City
## 109 Semi Final NA NA 1968 Mexico City
## 110 Semi Final NA NA 1968 Mexico City
## 111 Semi Final NA NA 1968 Mexico City
## 112 Semi Final NA NA 1968 Mexico City
## 113 =WR (h), WR (a) Final 3 9.95 1968 Mexico City
## 114 Final 4 10.04 1968 Mexico City
## 115 Final 1 10.07 1968 Mexico City
## 116 Final 2 10.14 1968 Mexico City
## 117 Final 6 10.14 1968 Mexico City
## 118 Final 5 10.17 1968 Mexico City
## 119 Final 7 10.20 1968 Mexico City
## 120 Photo-finish shows 10.275 Final 8 10.28 1968 Mexico City
## Host Country
## 1 Mexico
## 2 Mexico
## 3 Mexico
## 4 Mexico
## 5 Mexico
## 6 Mexico
## 7 Mexico
## 8 Mexico
## 9 Mexico
## 10 Mexico
## 11 Mexico
## 12 Mexico
## 13 Mexico
## 14 Mexico
## 15 Mexico
## 16 Mexico
## 17 Mexico
## 18 Mexico
## 19 Mexico
## 20 Mexico
## 21 Mexico
## 22 Mexico
## 23 Mexico
## 24 Mexico
## 25 Mexico
## 26 Mexico
## 27 Mexico
## 28 Mexico
## 29 Mexico
## 30 Mexico
## 31 Mexico
## 32 Mexico
## 33 Mexico
## 34 Mexico
## 35 Mexico
## 36 Mexico
## 37 Mexico
## 38 Mexico
## 39 Mexico
## 40 Mexico
## 41 Mexico
## 42 Mexico
## 43 Mexico
## 44 Mexico
## 45 Mexico
## 46 Mexico
## 47 Mexico
## 48 Mexico
## 49 Mexico
## 50 Mexico
## 51 Mexico
## 52 Mexico
## 53 Mexico
## 54 Mexico
## 55 Mexico
## 56 Mexico
## 57 Mexico
## 58 Mexico
## 59 Mexico
## 60 Mexico
## 61 Mexico
## 62 Mexico
## 63 Mexico
## 64 Mexico
## 65 Mexico
## 66 Mexico
## 67 Mexico
## 68 Mexico
## 69 Mexico
## 70 Mexico
## 71 Mexico
## 72 Mexico
## 73 Mexico
## 74 Mexico
## 75 Mexico
## 76 Mexico
## 77 Mexico
## 78 Mexico
## 79 Mexico
## 80 Mexico
## 81 Mexico
## 82 Mexico
## 83 Mexico
## 84 Mexico
## 85 Mexico
## 86 Mexico
## 87 Mexico
## 88 Mexico
## 89 Mexico
## 90 Mexico
## 91 Mexico
## 92 Mexico
## 93 Mexico
## 94 Mexico
## 95 Mexico
## 96 Mexico
## 97 Mexico
## 98 Mexico
## 99 Mexico
## 100 Mexico
## 101 Mexico
## 102 Mexico
## 103 Mexico
## 104 Mexico
## 105 Mexico
## 106 Mexico
## 107 Mexico
## 108 Mexico
## 109 Mexico
## 110 Mexico
## 111 Mexico
## 112 Mexico
## 113 Mexico
## 114 Mexico
## 115 Mexico
## 116 Mexico
## 117 Mexico
## 118 Mexico
## 119 Mexico
## 120 Mexico
Tokyo 1964
tok_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1964_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-tok_men_100m%>%html_table(fill=TRUE)
tok_men_100m_1<-tables[[6]]
tok_men_100m_2<-tables[[7]]
tok_men_100m_3<-tables[[8]]
tok_men_100m_4<-tables[[9]]
tok_men_100m_5<-tables[[10]]
tok_men_100m_6<-tables[[11]]
tok_men_100m_7<-tables[[12]]
tok_men_100m_8<-tables[[13]]
tok_men_100m_9<-tables[[14]]
tok_men_100m_10<-tables[[15]]
tok_men_100m_11<-tables[[16]]
tok_men_100m_12<-tables[[17]]
tok_men_100m_13<-tables[[18]]
tok_men_100m_14<-tables[[19]]
tok_men_100m_15<-tables[[20]]
tok_men_100m_16<-tables[[21]]
tok_men_100m_17<-tables[[22]]
tok_men_100m_1 <- tok_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
tok_men_100m_2 <- tok_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
tok_men_100m_3 <- tok_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
tok_men_100m_4 <- tok_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
tok_men_100m_5 <- tok_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
tok_men_100m_6 <- tok_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
tok_men_100m_7 <- tok_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
tok_men_100m_8 <- tok_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
tok_men_100m_9 <- tok_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
tok_men_100m_10 <- tok_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
tok_men_100m_11 <- tok_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
tok_men_100m_12 <- tok_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
tok_men_100m_13 <- tok_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
tok_men_100m_14 <- tok_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
tok_men_100m_15 <- tok_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
tok_men_100m_16 <- tok_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
tok_men_100m_17 <- tok_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
tok_men_100m_all <- bind_rows(tok_men_100m_1, tok_men_100m_2, tok_men_100m_3, tok_men_100m_4, tok_men_100m_5, tok_men_100m_6, tok_men_100m_7, tok_men_100m_8, tok_men_100m_9, tok_men_100m_10, tok_men_100m_11, tok_men_100m_12, tok_men_100m_13, tok_men_100m_14, tok_men_100m_15, tok_men_100m_16, tok_men_100m_17)
tok_men_100m_all <- tok_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1964,"Host City" ="Tokyo", "Host Country"="Japan")
tok_men_100m_all[119,1]<- "Gold"
tok_men_100m_all[120,1]<- "Silver"
tok_men_100m_all[121,1]<- "Bronze"
tok_men_100m_all
## Rank Athlete Nation Time Notes
## 1 1 Hideo Iijima Japan 10.3 Q
## 2 2 Bernard Laidebeur France 10.5 Q
## 3 3 Edvin Ozolin Soviet Union 10.5 Q
## 4 4 Kenneth Powell India 10.7
## 5 5 Zbigniew Syka Poland 10.7
## 6 6 Jean-Louis Ravelomanantsoa Madagascar 10.8
## 7 7 Sara Camara Mali 11.3
## 8 1 Trenton Jackson United States 10.5 Q
## 9 2 Peter Radford Great Britain 10.6 Q
## 10 3 B. El Maachi Bouchaib Morocco 10.6 Q
## 11 4 Csaba Csutorás Hungary 10.7
## 12 5 Johan Du Preez Rhodesia 10.7
## 13 6 Jeong Gi-seon South Korea 11.0
## 14 7 Arnulfo Valles Philippines 11.1
## 15 1 Gaoussou Koné Ivory Coast 10.5 Q
## 16 2 Mel Pender United States 10.5 Q
## 17 3 Michael Ahey Ghana 10.6 Q
## 18 4 Franciscus Luitjes Netherlands 10.6
## 19 5 Wilton Jackson Trinidad and Tobago 10.6
## 20 6 Lynn Davies Great Britain 10.7
## 21 7 Gerardo di Tolla Peru 10.9
## 22 8 Lee Ar-tu Taiwan 11.2
## 23 1 Marian Dudziak Poland 10.6 Q
## 24 2 Stanley Fabian Allotey Ghana 10.6 Q
## 25 3 John Owiti Kenya 10.6 Q
## 26 4 Carlos Lorenzo Mexico 10.7
## 27 5 George Collie Bahamas 10.9
## 28 6 Masaru Kamata Japan 10.9
## 29 7 Ho Thành Chinh Vietnam 11.9
## 30 1 Harry Jerome Canada 10.5 Q
## 31 2 Claude Piquemal France 10.5 Q
## 32 3 Lloyd Murad Venezuela 10.8 Q
## 33 4 James Odongo Uganda 10.9
## 34 5 Gusman Kosanov Soviet Union 10.9
## 35 6 Abdoulaye N'Diaye Senegal 11.0
## 36 7 Levy Psawkin Israel 11.1
## 37 1 Heinz Schumann United Team of Germany 10.5 Q
## 38 2 Dennis O. Johnson Jamaica 10.6 Q
## 39 3 William Earle Australia 10.7 Q
## 40 4 Serafino Antao Kenya 10.7
## 41 5 Huba Rozsnyai Hungary 10.8
## 42 6 Alf Meakin Great Britain 10.8
## 43 7 David Njitock Cameroon 11.1
## 44 8 Akbar Babakhanlou Iran 11.1
## 45 1 Wiesław Maniak Poland 10.5 Q
## 46 2 Arquímedes Herrera Venezuela 10.5 Q
## 47 3 Mani Jegathesan Malaysia 10.6 Q
## 48 4 José de Rocha Portugal 11.0
## 49 5 Bassirou Doumbia Senegal 11.0
## 50 6 Francisco Gutiérrez Colombia 11.0
## 51 7 Iftikhar Shah Pakistan 11.4
## 52 1 Bob Hayes United States 10.4 Q
## 53 2 Tom Robinson Bahamas 10.5 Q
## 54 3 Bob Lay Australia 10.5 Q
## 55 4 Ito Jiani Italy 10.6
## 56 5 Rogelio Onofre Philippines 10.7
## 57 6 Khudher Zalada Iraq 11.1
## 58 1 Fritz Obersiebrasse United Team of Germany 10.4 Q
## 59 2 Iván Moreno Chile 10.5 Q
## 60 3 Pablo McNeil Jamaica 10.5 Q
## 61 4 László Mihályfi Hungary 10.6
## 62 5 Gary Holdsworth Australia 10.6
## 63 6 Max Barandun Switzerland 10.7
## 64 7 Jeffery Smith Northern Rhodesia 10.8
## 65 1 Enrique Figuerola Cuba 10.5 Q
## 66 2 Lynn Headley Jamaica 10.5 Q
## 67 3 Roger Bambuck France 10.6 Q
## 68 4 Manfred Knickenberg United Team of Germany 10.7
## 69 5 Léon Yombe Republic of the Congo 10.8
## 70 6 Alberto Torres Dominican Republic 10.9
## 71 7 Suthi Manyakass Thailand 10.9
## 72 8 Rogelio Rivas Spain 11.1
## 73 1 Harry Jerome Canada 10.3 Q
## 74 2 Trenton Jackson United States 10.4 Q
## 75 3 Fritz Obersiebrasse United Team of Germany 10.4 Q
## 76 4 Gaoussou Koné Ivory Coast 10.4 Q
## 77 5 Dennis O. Johnson Jamaica 10.5
## 78 6 Marian Dudziak Poland 10.5
## 79 7 Bernard Laidebeur France 10.5
## 80 8 William Joseph Earle Australia 10.9
## 81 1 Enrique Figuerola Cuba 10.3 Q
## 82 2 Wiesław Maniak Poland 10.3 Q
## 83 3 Bob Lay Australia 10.4 Q
## 84 4 Claude Piquemal France 10.4 Q
## 85 5 Edvin Ozolin Soviet Union 10.4
## 86 6 B. El Maachi Bouchaib Morocco 10.5
## 87 7 John Owiti Kenya 10.6
## 88 1 Tom Robinson Bahamas 10.3 Q
## 89 2 Mel Pender United States 10.4 Q
## 90 3 Iijima Hideo Japan 10.5 Q
## 91 4 Pablo McNeil Jamaica 10.5 Q
## 92 5 Mani Jegathesan Malaysia 10.6
## 93 6 Ivan Moreno Chile 10.6
## 94 7 Stanley Fabian Allotey Ghana 10.7
## 95 8 Lloyd Murad Venezuela 10.7
## 96 1 Bob Hayes United States 10.3 Q
## 97 2 Arquimedes Herrera Venezuela 10.4 Q
## 98 3 Lynn Headley Jamaica 10.4 Q
## 99 4 Heinz Schumann United Team of Germany 10.5 Q
## 100 5 Peter Radford Great Britain 10.5
## 101 6 Roger Bambuck France 10.5
## 102 7 Michael Ahey Ghana 10.6
## 103 1 Bob Hayes United States 9.9 Q
## 104 2 Wiesław Maniak Poland 10.1 Q
## 105 3 Tom Robinson Bahamas 10.2 Q
## 106 4 Heinz Schumann United Team of Germany 10.3 Q
## 107 5 Robert William Lay Australia 10.3
## 108 6 Pablo McNeil Jamaica 10.3
## 109 7 Arquimedes Herrera Venezuela 10.4
## 110 8 Trenton Jackson United States 10.6
## 111 1 Harry Jerome Canada 10.3 Q
## 112 2 Gaoussou Koné Ivory Coast 10.4 Q
## 113 3 Enrique Figuerola Cuba 10.4 Q
## 114 4 Mel Pender United States 10.4 Q
## 115 5 Claude Piquemal France 10.5
## 116 6 Lynn Headley Jamaica 10.5
## 117 7 Iijima Hideo Japan 10.6
## 118 8 Fritz Obersiebrasse United Team of Germany 10.6
## 119 Gold Bob Hayes United States 10.0 =WR
## 120 Silver Enrique Figuerola Cuba 10.2
## 121 Bronze Harry Jerome Canada 10.2
## 122 4 Wiesław Maniak Poland 10.4
## 123 5 Heinz Schumann United Team of Germany 10.4
## 124 6 Gaoussou Koné Ivory Coast 10.4
## 125 6 Mel Pender United States 10.4
## 126 8 Tom Robinson Bahamas 10.5
## Heat Year Host City Host Country
## 1 1 1964 Tokyo Japan
## 2 1 1964 Tokyo Japan
## 3 1 1964 Tokyo Japan
## 4 1 1964 Tokyo Japan
## 5 1 1964 Tokyo Japan
## 6 1 1964 Tokyo Japan
## 7 1 1964 Tokyo Japan
## 8 2 1964 Tokyo Japan
## 9 2 1964 Tokyo Japan
## 10 2 1964 Tokyo Japan
## 11 2 1964 Tokyo Japan
## 12 2 1964 Tokyo Japan
## 13 2 1964 Tokyo Japan
## 14 2 1964 Tokyo Japan
## 15 3 1964 Tokyo Japan
## 16 3 1964 Tokyo Japan
## 17 3 1964 Tokyo Japan
## 18 3 1964 Tokyo Japan
## 19 3 1964 Tokyo Japan
## 20 3 1964 Tokyo Japan
## 21 3 1964 Tokyo Japan
## 22 3 1964 Tokyo Japan
## 23 4 1964 Tokyo Japan
## 24 4 1964 Tokyo Japan
## 25 4 1964 Tokyo Japan
## 26 4 1964 Tokyo Japan
## 27 4 1964 Tokyo Japan
## 28 4 1964 Tokyo Japan
## 29 4 1964 Tokyo Japan
## 30 5 1964 Tokyo Japan
## 31 5 1964 Tokyo Japan
## 32 5 1964 Tokyo Japan
## 33 5 1964 Tokyo Japan
## 34 5 1964 Tokyo Japan
## 35 5 1964 Tokyo Japan
## 36 5 1964 Tokyo Japan
## 37 6 1964 Tokyo Japan
## 38 6 1964 Tokyo Japan
## 39 6 1964 Tokyo Japan
## 40 6 1964 Tokyo Japan
## 41 6 1964 Tokyo Japan
## 42 6 1964 Tokyo Japan
## 43 6 1964 Tokyo Japan
## 44 6 1964 Tokyo Japan
## 45 7 1964 Tokyo Japan
## 46 7 1964 Tokyo Japan
## 47 7 1964 Tokyo Japan
## 48 7 1964 Tokyo Japan
## 49 7 1964 Tokyo Japan
## 50 7 1964 Tokyo Japan
## 51 7 1964 Tokyo Japan
## 52 8 1964 Tokyo Japan
## 53 8 1964 Tokyo Japan
## 54 8 1964 Tokyo Japan
## 55 8 1964 Tokyo Japan
## 56 8 1964 Tokyo Japan
## 57 8 1964 Tokyo Japan
## 58 9 1964 Tokyo Japan
## 59 9 1964 Tokyo Japan
## 60 9 1964 Tokyo Japan
## 61 9 1964 Tokyo Japan
## 62 9 1964 Tokyo Japan
## 63 9 1964 Tokyo Japan
## 64 9 1964 Tokyo Japan
## 65 10 1964 Tokyo Japan
## 66 10 1964 Tokyo Japan
## 67 10 1964 Tokyo Japan
## 68 10 1964 Tokyo Japan
## 69 10 1964 Tokyo Japan
## 70 10 1964 Tokyo Japan
## 71 10 1964 Tokyo Japan
## 72 10 1964 Tokyo Japan
## 73 Quarter Final 1964 Tokyo Japan
## 74 Quarter Final 1964 Tokyo Japan
## 75 Quarter Final 1964 Tokyo Japan
## 76 Quarter Final 1964 Tokyo Japan
## 77 Quarter Final 1964 Tokyo Japan
## 78 Quarter Final 1964 Tokyo Japan
## 79 Quarter Final 1964 Tokyo Japan
## 80 Quarter Final 1964 Tokyo Japan
## 81 Quarter Final 1964 Tokyo Japan
## 82 Quarter Final 1964 Tokyo Japan
## 83 Quarter Final 1964 Tokyo Japan
## 84 Quarter Final 1964 Tokyo Japan
## 85 Quarter Final 1964 Tokyo Japan
## 86 Quarter Final 1964 Tokyo Japan
## 87 Quarter Final 1964 Tokyo Japan
## 88 Quarter Final 1964 Tokyo Japan
## 89 Quarter Final 1964 Tokyo Japan
## 90 Quarter Final 1964 Tokyo Japan
## 91 Quarter Final 1964 Tokyo Japan
## 92 Quarter Final 1964 Tokyo Japan
## 93 Quarter Final 1964 Tokyo Japan
## 94 Quarter Final 1964 Tokyo Japan
## 95 Quarter Final 1964 Tokyo Japan
## 96 Quarter Final 1964 Tokyo Japan
## 97 Quarter Final 1964 Tokyo Japan
## 98 Quarter Final 1964 Tokyo Japan
## 99 Quarter Final 1964 Tokyo Japan
## 100 Quarter Final 1964 Tokyo Japan
## 101 Quarter Final 1964 Tokyo Japan
## 102 Quarter Final 1964 Tokyo Japan
## 103 Semi Final 1964 Tokyo Japan
## 104 Semi Final 1964 Tokyo Japan
## 105 Semi Final 1964 Tokyo Japan
## 106 Semi Final 1964 Tokyo Japan
## 107 Semi Final 1964 Tokyo Japan
## 108 Semi Final 1964 Tokyo Japan
## 109 Semi Final 1964 Tokyo Japan
## 110 Semi Final 1964 Tokyo Japan
## 111 Semi Final 1964 Tokyo Japan
## 112 Semi Final 1964 Tokyo Japan
## 113 Semi Final 1964 Tokyo Japan
## 114 Semi Final 1964 Tokyo Japan
## 115 Semi Final 1964 Tokyo Japan
## 116 Semi Final 1964 Tokyo Japan
## 117 Semi Final 1964 Tokyo Japan
## 118 Semi Final 1964 Tokyo Japan
## 119 Final 1964 Tokyo Japan
## 120 Final 1964 Tokyo Japan
## 121 Final 1964 Tokyo Japan
## 122 Final 1964 Tokyo Japan
## 123 Final 1964 Tokyo Japan
## 124 Final 1964 Tokyo Japan
## 125 Final 1964 Tokyo Japan
## 126 Final 1964 Tokyo Japan
Rome 1960
rom_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1960_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-rom_men_100m%>%html_table(fill=TRUE)
rom_men_100m_1<-tables[[5]]
rom_men_100m_2<-tables[[6]]
rom_men_100m_3<-tables[[7]]
rom_men_100m_4<-tables[[8]]
rom_men_100m_5<-tables[[9]]
rom_men_100m_6<-tables[[10]]
rom_men_100m_7<-tables[[11]]
rom_men_100m_8<-tables[[12]]
rom_men_100m_9<-tables[[13]]
rom_men_100m_10<-tables[[14]]
rom_men_100m_11<-tables[[15]]
rom_men_100m_12<-tables[[16]]
rom_men_100m_13<-tables[[17]]
rom_men_100m_14<-tables[[18]]
rom_men_100m_15<-tables[[19]]
rom_men_100m_16<-tables[[20]]
rom_men_100m_1 <- rom_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
rom_men_100m_2 <- rom_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
rom_men_100m_3 <- rom_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
rom_men_100m_4 <- rom_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
rom_men_100m_5 <- rom_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
rom_men_100m_6 <- rom_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
rom_men_100m_7 <- rom_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
rom_men_100m_8 <- rom_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
rom_men_100m_9 <- rom_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
rom_men_100m_10 <- rom_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
rom_men_100m_11 <- rom_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
rom_men_100m_12 <- rom_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
rom_men_100m_13 <- rom_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
rom_men_100m_14 <- rom_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
rom_men_100m_15 <- rom_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
rom_men_100m_16 <- rom_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
rom_men_100m_all <- bind_rows(rom_men_100m_1, rom_men_100m_2, rom_men_100m_3, rom_men_100m_4, rom_men_100m_5, rom_men_100m_6, rom_men_100m_7, rom_men_100m_8, rom_men_100m_9, rom_men_100m_10, rom_men_100m_11, rom_men_100m_12, rom_men_100m_13, rom_men_100m_14, rom_men_100m_15, rom_men_100m_16)
rom_men_100m_all <- rom_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1960,"Host City" ="Rome", "Host Country"="Italy")
rom_men_100m_all[99,1]<- "Gold"
rom_men_100m_all[100,1]<- "Silver"
rom_men_100m_all[101,1]<- "Bronze"
rom_men_100m_all
## Rank Athlete Nation Time Notes
## 1 1 Enrique Figuerola Cuba 10.4 Q
## 2 2 Carl Fredrik Bunæs Norway 10.7 Q
## 3 3 Yuriy Konovalov Soviet Union 10.7 Q
## 4 4 Suthi Manyakass Thailand 10.8
## 5 5 Mikhail Bachvarov Bulgaria 11.0
## 6 6 Amos Grodzinowsky Israel 11.1
## 7 7 Raj Joshi Tilak India 11.3
## 8 1 Seraphino Antao Kenya 10.5 Q
## 9 2 Armin Hary United Team of Germany 10.6 Q
## 10 3 Heinz Müller Switzerland 10.8 Q
## 11 4 Gustav Ntiforo Ghana 11.0
## 12 5 Isaac Gómez Philippines 11.0
## 13 6 Dennis Tipping Australia 11.2
## 14 7 Abdul Khaliq Pakistan 11.2
## 15 1 Horacio Esteves Venezuela 10.4 Q
## 16 2 Dennis Johnson British West Indies 10.4 Q
## 17 3 Dave Sime United States 10.5 Q
## 18 4 Lynn Eves Canada 10.8
## 19 5 Aggrey Awori Uganda 10.9
## 20 6 Patrick Lowry Ireland 10.9
## 21 7 Roba Negousse Ethiopia 11.3
## 22 1 Harry Jerome Canada 10.5 Q
## 23 2 Jocelyn Delecour France 10.5 Q
## 24 3 Erasmus Amukun Uganda 10.6 Q
## 25 4 Affonso da Silva Brazil 10.8
## 26 5 Bouchaib El-Maachi Morocco 10.9
## 27 6 Shahrudin Mohamed Ali Malaya 10.9
## 28 1 Tom Robinson Bahamas 10.5 Q
## 29 2 Lloyd Murad Venezuela 10.7 Q
## 30 3 Sitiveni Moceidreke Fiji 10.8 Q
## 31 4 George Short Canada 10.9
## 32 5 Emmanuel Putu Liberia 11.2
## 33 6 Kim Jong-cheol South Korea 11.5
## 34 1 Ray Norton United States 10.7 Q
## 35 2 Gusman Kosanov Soviet Union 10.7 Q
## 36 3 Santiago Plaza Mexico 10.8 Q
## 37 4 Walter Mahlendorf United Team of Germany 10.8
## 38 5 Romain Poté Belgium 11.0
## 39 6 Aydin Onur Turkey 11.3
## 40 7 Abdul Hadi Shekaib Afghanistan 11.6
## 41 1 David Jones Great Britain 10.5 Q
## 42 2 Abdoulaye Seye France 10.6 Q
## 43 3 Rafael Romero Venezuela 10.7 Q
## 44 4 Elmar Kunauer Austria 11.0
## 45 5 Huang Suh-chuang Formosa 11.2
## 46 6 Khudhir Zalata Iraq 11.3
## 47 1 Marian Foik Poland 10.5 Q
## 48 2 Edward Jefferys South Africa 10.6 Q
## 49 3 Claude Piquemal France 10.7 Q
## 50 4 Jalal Gozal Indonesia 10.9
## 51 5 Manfred Germar United Team of Germany 11.0
## 52 6 Hamdan El-Tayeb Sudan 11.1
## 53 7 José Albarrán Spain 11.2
## 54 1 Peter Radford Great Britain 10.4 Q
## 55 2 Frank Budd United States 10.4 Q
## 56 3 Edvin Ozolin Soviet Union 10.7 Q
## 57 4 Hilmar Thorbjörnsson Iceland 10.9
## 58 5 Nikolaos Georgopoulos Greece 11.0
## 59 6 Moustafa Abdel Kader Egypt 11.2
## 60 7 James Roberts Liberia 11.2
## 61 1 Horacio Esteves Venezuela 10.5 Q
## 62 2 Tom Robinson Bahamas 10.6 Q
## 63 3 Ray Norton United States 10.6 Q
## 64 4 Jocelyn Delecour France 10.7
## 65 5 Edward Jefferys South Africa 10.7
## 66 6 Edvin Ozolin Soviet Union 10.7
## 67 7 Heinz Müller Switzerland 10.8
## 68 1 Armin Hary United Team of Germany 10.2 Q, OR
## 69 2 Dave Sime United States 10.3 Q
## 70 3 Marian Foik Poland 10.4 Q
## 71 4 Dennis Johnson British West Indies 10.4
## 72 5 Carl Fredrik Bunæs Norway 10.5
## 73 6 Yuriy Konovalov Soviet Union 10.5
## 74 7 Sitiveni Moceidreke Fiji 10.7
## 75 1 Frank Budd United States 10.4 Q
## 76 2 Enrique Figuerola Cuba 10.4 Q
## 77 3 David Jones Great Britain 10.5 Q
## 78 4 Erasmus Amukun Uganda 10.6
## 79 5 Claude Piquemal France 10.6
## 80 6 Gusman Kosanov Soviet Union 10.7
## 81 7 Santiago Plaza Mexico 10.8
## 82 1 Harry Jerome Canada 10.4 Q
## 83 2 Peter Radford Great Britain 10.4 Q
## 84 3 Seraphino Antao Kenya 10.4 Q
## 85 4 Abdoulaye Seye France 10.4
## 86 5 Lloyd Murad Venezuela 10.8
## 87 6 Rafael Romero Venezuela 11.1
## 88 1 Peter Radford Great Britain 10.4 Q
## 89 2 Enrique Figuerola Cuba 10.4 Q
## 90 3 Frank Budd United States 10.5 Q
## 91 4 Marian Foik Poland 10.5
## 92 5 Tom Robinson Bahamas 10.5
## 93 1 Armin Hary United Team of Germany 10.3 Q
## 94 2 Dave Sime United States 10.4 Q
## 95 3 Ray Norton United States 10.4 Q
## 96 4 David Jones Great Britain 10.4
## 97 5 Horacio Esteves Venezuela 10.5
## 98 6 Seraphino Antao Kenya 10.6
## 99 Gold Armin Hary United Team of Germany 10.2 =OR
## 100 Silver Dave Sime United States 10.2 =OR
## 101 Bronze Peter Radford Great Britain 10.3
## 102 4 Enrique Figuerola Cuba 10.3
## 103 5 Frank Budd United States 10.3
## 104 6 Ray Norton United States 10.4
## Heat Year Host City Host Country
## 1 1 1960 Rome Italy
## 2 1 1960 Rome Italy
## 3 1 1960 Rome Italy
## 4 1 1960 Rome Italy
## 5 1 1960 Rome Italy
## 6 1 1960 Rome Italy
## 7 1 1960 Rome Italy
## 8 2 1960 Rome Italy
## 9 2 1960 Rome Italy
## 10 2 1960 Rome Italy
## 11 2 1960 Rome Italy
## 12 2 1960 Rome Italy
## 13 2 1960 Rome Italy
## 14 2 1960 Rome Italy
## 15 3 1960 Rome Italy
## 16 3 1960 Rome Italy
## 17 3 1960 Rome Italy
## 18 3 1960 Rome Italy
## 19 3 1960 Rome Italy
## 20 3 1960 Rome Italy
## 21 3 1960 Rome Italy
## 22 4 1960 Rome Italy
## 23 4 1960 Rome Italy
## 24 4 1960 Rome Italy
## 25 4 1960 Rome Italy
## 26 4 1960 Rome Italy
## 27 4 1960 Rome Italy
## 28 5 1960 Rome Italy
## 29 5 1960 Rome Italy
## 30 5 1960 Rome Italy
## 31 5 1960 Rome Italy
## 32 5 1960 Rome Italy
## 33 5 1960 Rome Italy
## 34 6 1960 Rome Italy
## 35 6 1960 Rome Italy
## 36 6 1960 Rome Italy
## 37 6 1960 Rome Italy
## 38 6 1960 Rome Italy
## 39 6 1960 Rome Italy
## 40 6 1960 Rome Italy
## 41 7 1960 Rome Italy
## 42 7 1960 Rome Italy
## 43 7 1960 Rome Italy
## 44 7 1960 Rome Italy
## 45 7 1960 Rome Italy
## 46 7 1960 Rome Italy
## 47 8 1960 Rome Italy
## 48 8 1960 Rome Italy
## 49 8 1960 Rome Italy
## 50 8 1960 Rome Italy
## 51 8 1960 Rome Italy
## 52 8 1960 Rome Italy
## 53 8 1960 Rome Italy
## 54 9 1960 Rome Italy
## 55 9 1960 Rome Italy
## 56 9 1960 Rome Italy
## 57 9 1960 Rome Italy
## 58 9 1960 Rome Italy
## 59 9 1960 Rome Italy
## 60 9 1960 Rome Italy
## 61 Quarter Final 1960 Rome Italy
## 62 Quarter Final 1960 Rome Italy
## 63 Quarter Final 1960 Rome Italy
## 64 Quarter Final 1960 Rome Italy
## 65 Quarter Final 1960 Rome Italy
## 66 Quarter Final 1960 Rome Italy
## 67 Quarter Final 1960 Rome Italy
## 68 Quarter Final 1960 Rome Italy
## 69 Quarter Final 1960 Rome Italy
## 70 Quarter Final 1960 Rome Italy
## 71 Quarter Final 1960 Rome Italy
## 72 Quarter Final 1960 Rome Italy
## 73 Quarter Final 1960 Rome Italy
## 74 Quarter Final 1960 Rome Italy
## 75 Quarter Final 1960 Rome Italy
## 76 Quarter Final 1960 Rome Italy
## 77 Quarter Final 1960 Rome Italy
## 78 Quarter Final 1960 Rome Italy
## 79 Quarter Final 1960 Rome Italy
## 80 Quarter Final 1960 Rome Italy
## 81 Quarter Final 1960 Rome Italy
## 82 Quarter Final 1960 Rome Italy
## 83 Quarter Final 1960 Rome Italy
## 84 Quarter Final 1960 Rome Italy
## 85 Quarter Final 1960 Rome Italy
## 86 Quarter Final 1960 Rome Italy
## 87 Quarter Final 1960 Rome Italy
## 88 Semi Final 1960 Rome Italy
## 89 Semi Final 1960 Rome Italy
## 90 Semi Final 1960 Rome Italy
## 91 Semi Final 1960 Rome Italy
## 92 Semi Final 1960 Rome Italy
## 93 Semi Final 1960 Rome Italy
## 94 Semi Final 1960 Rome Italy
## 95 Semi Final 1960 Rome Italy
## 96 Semi Final 1960 Rome Italy
## 97 Semi Final 1960 Rome Italy
## 98 Semi Final 1960 Rome Italy
## 99 Final 1960 Rome Italy
## 100 Final 1960 Rome Italy
## 101 Final 1960 Rome Italy
## 102 Final 1960 Rome Italy
## 103 Final 1960 Rome Italy
## 104 Final 1960 Rome Italy
Melbourne 1956
mel_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1956_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-mel_men_100m%>%html_table(fill=TRUE)
mel_men_100m_1<-tables[[5]]
mel_men_100m_2<-tables[[6]]
mel_men_100m_3<-tables[[7]]
mel_men_100m_4<-tables[[8]]
mel_men_100m_5<-tables[[9]]
mel_men_100m_6<-tables[[10]]
mel_men_100m_7<-tables[[11]]
mel_men_100m_8<-tables[[12]]
mel_men_100m_9<-tables[[13]]
mel_men_100m_10<-tables[[14]]
mel_men_100m_11<-tables[[15]]
mel_men_100m_12<-tables[[16]]
mel_men_100m_13<-tables[[17]]
mel_men_100m_14<-tables[[18]]
mel_men_100m_15<-tables[[19]]
mel_men_100m_16<-tables[[20]]
mel_men_100m_17<-tables[[21]]
mel_men_100m_18<-tables[[22]]
mel_men_100m_19<-tables[[23]]
names(mel_men_100m_19)[5] <- "Time"
mel_men_100m_1 <- mel_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
mel_men_100m_2 <- mel_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
mel_men_100m_3 <- mel_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
mel_men_100m_4 <- mel_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
mel_men_100m_5 <- mel_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
mel_men_100m_6 <- mel_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
mel_men_100m_7 <- mel_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
mel_men_100m_8 <- mel_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
mel_men_100m_9 <- mel_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
mel_men_100m_10 <- mel_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
mel_men_100m_11 <- mel_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
mel_men_100m_12 <- mel_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
mel_men_100m_13 <- mel_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mel_men_100m_14 <- mel_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mel_men_100m_15 <- mel_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mel_men_100m_16 <- mel_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
mel_men_100m_17 <- mel_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mel_men_100m_18 <- mel_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
mel_men_100m_19 <- mel_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
mel_men_100m_all <- bind_rows(mel_men_100m_1, mel_men_100m_2, mel_men_100m_3, mel_men_100m_4, mel_men_100m_5, mel_men_100m_6, mel_men_100m_7, mel_men_100m_8, mel_men_100m_9, mel_men_100m_10, mel_men_100m_11, mel_men_100m_12, mel_men_100m_13, mel_men_100m_14, mel_men_100m_15, mel_men_100m_16, mel_men_100m_17, mel_men_100m_18, mel_men_100m_19)
mel_men_100m_all <- mel_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1956,"Host City" ="Melbourne", "Host Country"="Australia")
mel_men_100m_all[102,1]<- "Gold"
mel_men_100m_all[103,1]<- "Silver"
mel_men_100m_all[104,1]<- "Bronze"
mel_men_100m_all
## Rank Athlete Nation Time
## 1 1 Ira Murchison United States 10.67
## 2 2 Jan Jarzembowski Poland 10.95
## 3 3 Hilmar Þorbjörnsson Iceland 11.12
## 4 4 Mario Colarossi Italy 11.14
## 5 5 René Ahumada Mexico 11.26
## 6 6 Raja bin Ngah Ali Malaya 11.41
## 7 1 Mike Agostini Trinidad and Tobago 10.98
## 8 2 Luigi Gnocchi Italy 11.01
## 9 3 Titus Erinle Nigeria 11.09
## 10 4 Jorge de Barros Brazil 11.15
## 11 5 Vanchak Voradilok Thailand 11.78
## 12 6 Roba Negousse Ethiopia 12.07
## 13 1 Maurice Rae New Zealand 10.84
## 14 2 Abdul Khaliq Pakistan 10.97
## 15 3 Manfred Steinbach United Team of Germany 10.99
## 16 4 Rafael Romero Venezuela 11.14
## 17 5 Evaristo Iglesias Cuba 11.50
## 18 1 Ben Nduga Uganda 10.88
## 19 2 Ken Box Great Britain 10.96
## 20 3 Kyohei Ushio Japan 11.09
## 21 4 Kesavan Soon Singapore 11.35
## 22 5 Jack Parrington Canada 11.62
## 23 1 Marian Foik Poland 10.88
## 24 2 Boris Tokarev Soviet Union 11.09
## 25 3 Franco Galbiati Italy 11.13
## 26 4 Tom Robinson Bahamas 11.30
## 27 5 Jalal Gozal Indonesia 11.45
## 28 6 James Roberts Liberia 11.45
## 29 1 Manfred Germar United Team of Germany 10.91
## 30 2 Ray Land Australia 11.05
## 31 3 Keith Gardner Jamaica 11.22
## 32 4 Alain David France 11.24
## 33 5 Emmanuel Putu Liberia 11.44
## 34 6 Beyene Legesse Ethiopia 11.94
## 35 1 Leonid Bartenev Soviet Union 10.93
## 36 2 Béla Goldoványi Hungary 11.02
## 37 3 Clive Bonas Venezuela 11.17
## 38 4 Gavin Carragher Australia 11.36
## 39 5 Thomas Obi Nigeria 11.47
## 40 6 Bjørn Nilsen Norway 11.58
## 41 1 Hec Hogan Australia 10.72
## 42 2 René Bonino France 10.96
## 43 3 Géza Varasdi Hungary 11.00
## 44 4 Akira Kiyofuji Japan 11.00
## 45 1 Thane Baker United States 10.93
## 46 2 Edmund Turton Trinidad and Tobago 11.38
## 47 3 Sinnayah Karuppiah Jarabalan Malaya 11.56
## 48 4 Tan Eng Yoon Singapore 11.63
## 49 1 Stan Levenson Canada 10.94
## 50 2 Heinz Fütterer United Team of Germany 11.10
## 51 3 João Pires Sobrinho Brazil 11.14
## 52 4 Joe Goddard Trinidad and Tobago 11.19
## 53 5 Oliver Hunter Guyana 11.22
## 54 6 Ghulam Raziq Pakistan 11.26
## 55 1 Edward Ajado Nigeria 11.01
## 56 2 Roy Sandstrom Great Britain 11.05
## 57 3 Dick Harding Canada 11.20
## 58 4 Muhammad Sharif Butt Pakistan 11.26
## 59 5 Abebe Hailou Ethiopia 11.54
## 60 6 Sneh Wongchaoom Thailand 11.95
## 61 1 Bobby Morrow United States 10.90
## 62 2 Yuriy Konovalov Soviet Union 11.04
## 63 3 David Segal Great Britain 11.19
## 64 4 Paiboon Vacharapan Thailand 11.27
## 65 5 Lee Kah Fook Malaya 11.84
## 66 1 Bobby Morrow United States 10.55
## 67 2 Mike Agostini Trinidad and Tobago 10.75
## 68 3 Maurice Rae New Zealand 10.78
## 69 4 Béla Goldoványi Hungary 10.95
## 70 5 Heinz Fütterer United Team of Germany 10.99
## 71 6 Ray Land Australia 11.15
## 72 1 Ira Murchison United States 10.55
## 73 2 Abdul Khaliq Pakistan 10.78
## 74 3 Yuriy Konovalov Soviet Union 10.93
## 75 4 Luigi Gnocchi Italy 10.96
## 76 5 Edmund Turton Trinidad and Tobago 11.37
## 77 6 Ben Nduga Uganda 12.95
## 78 1 Hec Hogan Australia 10.78
## 79 2 Boris Tokarev Soviet Union 10.87
## 80 3 Stan Levenson Canada 10.93
## 81 4 Jan Jarzembowski Poland 10.98
## 82 5 Edward Ajado Nigeria 11.02
## 83 6 Ken Box Great Britain 11.45
## 84 1 Thane Baker United States 10.62
## 85 2 Manfred Germar Germany 10.80
## 86 3 Marian Foik Poland 10.83
## 87 4 Leonid Bartenev Soviet Union 10.84
## 88 5 René Bonino France 10.96
## 89 6 Roy Sandstrom Great Britain 11.03
## 90 1 Ira Murchison United States 10.79
## 91 2 Mike Agostini Trinidad and Tobago 10.79
## 92 3 Manfred Germar United Team of Germany 10.85
## 93 4 Abdul Khaliq Pakistan 10.93
## 94 5 Stan Levenson Canada 10.94
## 95 6 Yuriy Konovalov Soviet Union 11.11
## 96 1 Bobby Morrow United States 10.52
## 97 2 Thane Baker United States 10.61
## 98 3 Hec Hogan Australia 10.62
## 99 4 Maurice Rae New Zealand 10.68
## 100 5 Marian Foik Poland 10.84
## 101 6 Boris Tokarev Soviet Union 10.91
## 102 Gold Bobby Morrow United States 10.62
## 103 Silver Thane Baker United States 10.77
## 104 Bronze Hec Hogan Australia 10.77
## 105 4 Ira Murchison United States 10.79
## 106 5 Manfred Germar United Team of Germany 10.86
## 107 6 Mike Agostini Trinidad and Tobago 10.88
## Notes Heat Time..hand. Year Host City Host Country
## 1 Q 1 NA 1956 Melbourne Australia
## 2 Q 1 NA 1956 Melbourne Australia
## 3 1 NA 1956 Melbourne Australia
## 4 1 NA 1956 Melbourne Australia
## 5 1 NA 1956 Melbourne Australia
## 6 1 NA 1956 Melbourne Australia
## 7 Q 2 NA 1956 Melbourne Australia
## 8 Q 2 NA 1956 Melbourne Australia
## 9 2 NA 1956 Melbourne Australia
## 10 2 NA 1956 Melbourne Australia
## 11 2 NA 1956 Melbourne Australia
## 12 2 NA 1956 Melbourne Australia
## 13 Q 3 NA 1956 Melbourne Australia
## 14 Q 3 NA 1956 Melbourne Australia
## 15 3 NA 1956 Melbourne Australia
## 16 3 NA 1956 Melbourne Australia
## 17 3 NA 1956 Melbourne Australia
## 18 Q 4 NA 1956 Melbourne Australia
## 19 Q 4 NA 1956 Melbourne Australia
## 20 4 NA 1956 Melbourne Australia
## 21 4 NA 1956 Melbourne Australia
## 22 4 NA 1956 Melbourne Australia
## 23 Q 5 NA 1956 Melbourne Australia
## 24 Q 5 NA 1956 Melbourne Australia
## 25 5 NA 1956 Melbourne Australia
## 26 5 NA 1956 Melbourne Australia
## 27 5 NA 1956 Melbourne Australia
## 28 5 NA 1956 Melbourne Australia
## 29 Q 6 NA 1956 Melbourne Australia
## 30 Q 6 NA 1956 Melbourne Australia
## 31 6 NA 1956 Melbourne Australia
## 32 6 NA 1956 Melbourne Australia
## 33 6 NA 1956 Melbourne Australia
## 34 6 NA 1956 Melbourne Australia
## 35 Q 7 NA 1956 Melbourne Australia
## 36 Q 7 NA 1956 Melbourne Australia
## 37 7 NA 1956 Melbourne Australia
## 38 7 NA 1956 Melbourne Australia
## 39 7 NA 1956 Melbourne Australia
## 40 7 NA 1956 Melbourne Australia
## 41 Q 8 NA 1956 Melbourne Australia
## 42 Q 8 NA 1956 Melbourne Australia
## 43 8 NA 1956 Melbourne Australia
## 44 8 NA 1956 Melbourne Australia
## 45 Q 9 NA 1956 Melbourne Australia
## 46 Q 9 NA 1956 Melbourne Australia
## 47 9 NA 1956 Melbourne Australia
## 48 9 NA 1956 Melbourne Australia
## 49 Q 10 NA 1956 Melbourne Australia
## 50 Q 10 NA 1956 Melbourne Australia
## 51 10 NA 1956 Melbourne Australia
## 52 10 NA 1956 Melbourne Australia
## 53 10 NA 1956 Melbourne Australia
## 54 10 NA 1956 Melbourne Australia
## 55 Q 11 NA 1956 Melbourne Australia
## 56 Q 11 NA 1956 Melbourne Australia
## 57 11 NA 1956 Melbourne Australia
## 58 11 NA 1956 Melbourne Australia
## 59 11 NA 1956 Melbourne Australia
## 60 11 NA 1956 Melbourne Australia
## 61 Q 12 NA 1956 Melbourne Australia
## 62 Q 12 NA 1956 Melbourne Australia
## 63 12 NA 1956 Melbourne Australia
## 64 12 NA 1956 Melbourne Australia
## 65 12 NA 1956 Melbourne Australia
## 66 Q, =OR (10.3 hand) Quarter Final NA 1956 Melbourne Australia
## 67 Q Quarter Final NA 1956 Melbourne Australia
## 68 Q Quarter Final NA 1956 Melbourne Australia
## 69 Quarter Final NA 1956 Melbourne Australia
## 70 Quarter Final NA 1956 Melbourne Australia
## 71 Quarter Final NA 1956 Melbourne Australia
## 72 Q, =OR (10.3 hand) Quarter Final NA 1956 Melbourne Australia
## 73 Q Quarter Final NA 1956 Melbourne Australia
## 74 Q Quarter Final NA 1956 Melbourne Australia
## 75 Quarter Final NA 1956 Melbourne Australia
## 76 Quarter Final NA 1956 Melbourne Australia
## 77 Quarter Final NA 1956 Melbourne Australia
## 78 Q Quarter Final NA 1956 Melbourne Australia
## 79 Q Quarter Final NA 1956 Melbourne Australia
## 80 Q Quarter Final NA 1956 Melbourne Australia
## 81 Quarter Final NA 1956 Melbourne Australia
## 82 Quarter Final NA 1956 Melbourne Australia
## 83 Quarter Final NA 1956 Melbourne Australia
## 84 Q Quarter Final NA 1956 Melbourne Australia
## 85 Q Quarter Final NA 1956 Melbourne Australia
## 86 Q Quarter Final NA 1956 Melbourne Australia
## 87 Quarter Final NA 1956 Melbourne Australia
## 88 Quarter Final NA 1956 Melbourne Australia
## 89 Quarter Final NA 1956 Melbourne Australia
## 90 Q Semi Final NA 1956 Melbourne Australia
## 91 Q Semi Final NA 1956 Melbourne Australia
## 92 Q Semi Final NA 1956 Melbourne Australia
## 93 Semi Final NA 1956 Melbourne Australia
## 94 Semi Final NA 1956 Melbourne Australia
## 95 Semi Final NA 1956 Melbourne Australia
## 96 Q, =OR (10.3 hand) Semi Final NA 1956 Melbourne Australia
## 97 Q Semi Final NA 1956 Melbourne Australia
## 98 Q Semi Final NA 1956 Melbourne Australia
## 99 Semi Final NA 1956 Melbourne Australia
## 100 Semi Final NA 1956 Melbourne Australia
## 101 Semi Final NA 1956 Melbourne Australia
## 102 <NA> Final 10.5 1956 Melbourne Australia
## 103 <NA> Final 10.5 1956 Melbourne Australia
## 104 <NA> Final 10.6 1956 Melbourne Australia
## 105 <NA> Final 10.6 1956 Melbourne Australia
## 106 <NA> Final 10.7 1956 Melbourne Australia
## 107 <NA> Final 10.7 1956 Melbourne Australia
Helsinki 1952
hel_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[[22]]
hel_men_100m_19<-tables[[23]]
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")
hel_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")
hel_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(Time))%>%
add_column("Year"=1952,"Host City" ="Helsinki", "Host Country"="Finland")
hel_men_100m_all[107,1]<- "Gold"
hel_men_100m_all[108,1]<- "Silver"
hel_men_100m_all[109,1]<- "Bronze"
hel_men_100m_all
## Rank Athlete Nation Time Notes
## 1 1 John Treloar Australia 10.92 Q
## 2 2 Alan Lillington Great Britain 11.06 Q
## 3 3 Gabriel Lareya Ghana 11.18
## 4 4 Miroslav Horčic Czechoslovakia 11.23
## 5 5 Ásmundur Bjarnason Iceland 11.40
## 6 6 Youssef Ali Omar Egypt 11.53
## 7 7 José Julio Barillas Guatemala 11.56
## 8 1 Étienne Bally France 10.97 Q
## 9 2 Angel Kolev Bulgaria 11.01 Q
## 10 3 Paul Dolan Ireland 11.12
## 11 4 Raúl Mazorra Cuba 11.19
## 12 5 Robert Hutchinson Canada 11.26
## 13 6 Masaji Tajima Japan 11.29
## 14 7 Adul Wanasatith Thailand 11.61
## 15 1 McDonald Bailey Great Britain 10.65 Q
## 16 2 Carlo Vittori Italy 10.98 Q
## 17 3 Mikhail Kazantsev Soviet Union 11.16
## 18 4 Hörður Haraldsson Iceland 11.31
## 19 5 Javier Souza Mexico 11.32
## 20 6 Stefanos Petrakis Greece 11.33
## 21 1 William Jack Great Britain 11.05 Q
## 22 2 Romeo Galán Argentina 11.11 Q
## 23 3 Levan Sanadze Soviet Union 11.13
## 24 4 Emad El-Din Shafei Egypt 11.40
## 25 5 Guillermo Gutiérrez Venezuela 11.42
## 26 6 Boonterm Pakpuang Thailand 11.85
## 27 1 Herb McKenley Jamaica 10.88 Q
## 28 2 György Csányi Hungary 11.09 Q
## 29 3 Emil Kiszka Poland 11.13
## 30 4 Pauli Tavisalo Finland 11.30
## 31 5 Tomás Paquete Portugal 11.45
## 32 6 Walter Sutton Canada 11.45
## 33 1 David Tabak Israel 11.12 Q
## 34 2 Tomio Hosoda Japan 11.14 Q
## 35 3 Willy Schneider Switzerland 11.22
## 36 4 Angel Gavrilov Bulgaria 11.29
## 37 5 Juan Leiva Venezuela 11.31
## 38 1 Vladimir Sukharev Soviet Union 10.93 Q
## 39 2 Theo Saat Netherlands 11.02 Q
## 40 3 Muhammad Sharif Butt Pakistan 11.17
## 41 4 Voitto Hellstén Finland 11.36
## 42 5 George Acquaah Ghana 11.47
## 43 6 Mariano Acosta Argentina 11.58
## 44 7 Wolfango Montanari Italy 12.25
## 45 1 Rafael Fortún Cuba 10.93 Q
## 46 2 Byron LaBeach Jamaica 11.09 Q
## 47 3 Franco Leccese Italy 11.18
## 48 4 Issi Baran Finland 11.32
## 49 5 Fritz Griesser Switzerland 11.54
## 50 1 Werner Zandt Germany 11.03 Q
## 51 2 Muhammad Aslam Pakistan 11.18 Q
## 52 3 Don McFarlane Canada 11.25
## 53 4 Zdeněk Pospíšil Czechoslovakia 11.25
## 54 5 Edward Ajado Nigeria 11.25
## 55 6 Fawzi Chaaban Egypt 11.51
## 56 1 Art Bragg United States 10.73 Q
## 57 2 Hans Wehrli Switzerland 11.00 Q
## 58 3 Titus Erinle Nigeria 11.12
## 59 4 László Zarándi Hungary 11.26
## 60 5 Pétur Sigurðsson Iceland 11.55
## 61 6 Arun Sankosik Thailand 11.76
## 62 1 Lindy Remigino United States 10.73 Q
## 63 2 Lavy Pinto India 11.00 Q
## 64 3 René Bonino France 11.00
## 65 4 František Brož Czechoslovakia 11.32
## 66 5 Abdul Aziz Pakistan 11.48
## 67 6 Rui Maia Portugal 11.79
## 68 1 Dean Smith United States 10.90 Q
## 69 2 Alain Porthault France 11.04 Q
## 70 3 Erich Fuchs Germany 11.19
## 71 4 Karim Olowu Nigeria 11.27
## 72 1 McDonald Bailey Great Britain 10.73 Q
## 73 2 John Treloar Australia 10.84 Q
## 74 3 Alain Porthault France 10.99 Q
## 75 4 Muhammad Aslam Pakistan 11.02
## 76 5 Byron LaBeach Jamaica 11.05
## 77 1 Lindy Remigino United States 10.68 Q
## 78 2 Theo Saat Netherlands 10.93 Q
## 79 3 Lavy Pinto India 10.98 Q
## 80 4 Étienne Bally France 10.98
## 81 5 Hans Wehrli Switzerland 11.05
## 82 6 Alan Lillington Great Britain 11.26
## 83 1 Dean Smith United States 10.69 Q
## 84 2 Rafael Fortún Cuba 10.90 Q
## 85 3 William Jack Great Britain 10.94 Q
## 86 4 Werner Zandt Germany 10.98
## 87 5 Romeo Galán Argentina 11.08
## 88 6 David Tabak Israel 11.10
## 89 1 Herb McKenley Jamaica 10.72 Q
## 90 2 Art Bragg United States 10.75 Q
## 91 3 Vladimir Sukharev Soviet Union 10.92 Q
## 92 4 Tomio Hosoda Japan 11.03
## 93 5 György Csányi Hungary 11.07
## 94 6 Carlo Vittori Italy 11.79
## 95 1 McDonald Bailey Great Britain 10.74 Q
## 96 2 Dean Smith United States 10.78 Q
## 97 3 Vladimir Sukharev Soviet Union 10.86 Q
## 98 4 Lavy Pinto India 10.94
## 99 5 Alain Porthault France 11.04
## 100 6 Art Bragg United States 11.43
## 101 1 Herb McKenley Jamaica 10.74 Q
## 102 2 Lindy Remigino United States 10.74 Q
## 103 3 John Treloar Australia 10.76 Q
## 104 4 Rafael Fortún Cuba 10.92
## 105 5 William Jack Great Britain 11.01
## 106 6 Theo Saat Netherlands 11.12
## 107 Gold Lindy Remigino United States 10.79 Photo-determined finish
## 108 Silver Herb McKenley Jamaica 10.80
## 109 Bronze McDonald Bailey Great Britain 10.83
## 110 4 Dean Smith United States 10.84
## 111 5 Vladimir Sukharev Soviet Union 10.88
## 112 6 John Treloar Australia 10.91
## Heat Year Host City Host Country
## 1 1 1952 Helsinki Finland
## 2 1 1952 Helsinki Finland
## 3 1 1952 Helsinki Finland
## 4 1 1952 Helsinki Finland
## 5 1 1952 Helsinki Finland
## 6 1 1952 Helsinki Finland
## 7 1 1952 Helsinki Finland
## 8 2 1952 Helsinki Finland
## 9 2 1952 Helsinki Finland
## 10 2 1952 Helsinki Finland
## 11 2 1952 Helsinki Finland
## 12 2 1952 Helsinki Finland
## 13 2 1952 Helsinki Finland
## 14 2 1952 Helsinki Finland
## 15 3 1952 Helsinki Finland
## 16 3 1952 Helsinki Finland
## 17 3 1952 Helsinki Finland
## 18 3 1952 Helsinki Finland
## 19 3 1952 Helsinki Finland
## 20 3 1952 Helsinki Finland
## 21 4 1952 Helsinki Finland
## 22 4 1952 Helsinki Finland
## 23 4 1952 Helsinki Finland
## 24 4 1952 Helsinki Finland
## 25 4 1952 Helsinki Finland
## 26 4 1952 Helsinki Finland
## 27 5 1952 Helsinki Finland
## 28 5 1952 Helsinki Finland
## 29 5 1952 Helsinki Finland
## 30 5 1952 Helsinki Finland
## 31 5 1952 Helsinki Finland
## 32 5 1952 Helsinki Finland
## 33 6 1952 Helsinki Finland
## 34 6 1952 Helsinki Finland
## 35 6 1952 Helsinki Finland
## 36 6 1952 Helsinki Finland
## 37 6 1952 Helsinki Finland
## 38 7 1952 Helsinki Finland
## 39 7 1952 Helsinki Finland
## 40 7 1952 Helsinki Finland
## 41 7 1952 Helsinki Finland
## 42 7 1952 Helsinki Finland
## 43 7 1952 Helsinki Finland
## 44 7 1952 Helsinki Finland
## 45 8 1952 Helsinki Finland
## 46 8 1952 Helsinki Finland
## 47 8 1952 Helsinki Finland
## 48 8 1952 Helsinki Finland
## 49 8 1952 Helsinki Finland
## 50 9 1952 Helsinki Finland
## 51 9 1952 Helsinki Finland
## 52 9 1952 Helsinki Finland
## 53 9 1952 Helsinki Finland
## 54 9 1952 Helsinki Finland
## 55 9 1952 Helsinki Finland
## 56 10 1952 Helsinki Finland
## 57 10 1952 Helsinki Finland
## 58 10 1952 Helsinki Finland
## 59 10 1952 Helsinki Finland
## 60 10 1952 Helsinki Finland
## 61 10 1952 Helsinki Finland
## 62 11 1952 Helsinki Finland
## 63 11 1952 Helsinki Finland
## 64 11 1952 Helsinki Finland
## 65 11 1952 Helsinki Finland
## 66 11 1952 Helsinki Finland
## 67 11 1952 Helsinki Finland
## 68 12 1952 Helsinki Finland
## 69 12 1952 Helsinki Finland
## 70 12 1952 Helsinki Finland
## 71 12 1952 Helsinki Finland
## 72 Quarter Final 1952 Helsinki Finland
## 73 Quarter Final 1952 Helsinki Finland
## 74 Quarter Final 1952 Helsinki Finland
## 75 Quarter Final 1952 Helsinki Finland
## 76 Quarter Final 1952 Helsinki Finland
## 77 Quarter Final 1952 Helsinki Finland
## 78 Quarter Final 1952 Helsinki Finland
## 79 Quarter Final 1952 Helsinki Finland
## 80 Quarter Final 1952 Helsinki Finland
## 81 Quarter Final 1952 Helsinki Finland
## 82 Quarter Final 1952 Helsinki Finland
## 83 Quarter Final 1952 Helsinki Finland
## 84 Quarter Final 1952 Helsinki Finland
## 85 Quarter Final 1952 Helsinki Finland
## 86 Quarter Final 1952 Helsinki Finland
## 87 Quarter Final 1952 Helsinki Finland
## 88 Quarter Final 1952 Helsinki Finland
## 89 Quarter Final 1952 Helsinki Finland
## 90 Quarter Final 1952 Helsinki Finland
## 91 Quarter Final 1952 Helsinki Finland
## 92 Quarter Final 1952 Helsinki Finland
## 93 Quarter Final 1952 Helsinki Finland
## 94 Quarter Final 1952 Helsinki Finland
## 95 Semi Final 1952 Helsinki Finland
## 96 Semi Final 1952 Helsinki Finland
## 97 Semi Final 1952 Helsinki Finland
## 98 Semi Final 1952 Helsinki Finland
## 99 Semi Final 1952 Helsinki Finland
## 100 Semi Final 1952 Helsinki Finland
## 101 Semi Final 1952 Helsinki Finland
## 102 Semi Final 1952 Helsinki Finland
## 103 Semi Final 1952 Helsinki Finland
## 104 Semi Final 1952 Helsinki Finland
## 105 Semi Final 1952 Helsinki Finland
## 106 Semi Final 1952 Helsinki Finland
## 107 Final 1952 Helsinki Finland
## 108 Final 1952 Helsinki Finland
## 109 Final 1952 Helsinki Finland
## 110 Final 1952 Helsinki Finland
## 111 Final 1952 Helsinki Finland
## 112 Final 1952 Helsinki Finland
London 1948
lon48_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1948_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-lon48_men_100m%>%html_table(fill=TRUE)
lon48_men_100m_1<-tables[[6]]
lon48_men_100m_1[4,4] <- as.factor(11.25)
lon48_men_100m_1[5,4] <- as.factor(11.54)
lon48_men_100m_2<-tables[[7]]
lon48_men_100m_2[4,4] <- as.factor(11.16)
lon48_men_100m_2[5,4] <- as.factor(11.50)
lon48_men_100m_2[6,4] <- as.factor(11.97)
lon48_men_100m_3<-tables[[8]]
lon48_men_100m_4<-tables[[9]]
lon48_men_100m_4[4,4] <- as.factor(11.04)
lon48_men_100m_4[5,4] <- as.factor(11.23)
lon48_men_100m_5<-tables[[10]]
lon48_men_100m_5[4,4] <- as.factor(11.30)
lon48_men_100m_6<-tables[[11]]
lon48_men_100m_6[4,4] <- as.factor(11.08)
lon48_men_100m_6[5,4] <- as.factor(11.32)
lon48_men_100m_6[6,4] <- as.factor(11.69)
lon48_men_100m_7<-tables[[12]]
lon48_men_100m_7[4,4] <- as.factor(11.24)
lon48_men_100m_7[5,4] <- as.factor(11.71)
lon48_men_100m_7[6,4] <- as.factor(11.90)
lon48_men_100m_8<-tables[[13]]
lon48_men_100m_8[4,4] <- as.factor(11.09)
lon48_men_100m_8[5,4] <- as.factor(11.09)
lon48_men_100m_9<-tables[[14]]
lon48_men_100m_9[4,4] <- as.factor(11.22)
lon48_men_100m_9[5,4] <- as.factor(11.35)
lon48_men_100m_10<-tables[[15]]
lon48_men_100m_10[4,4] <- as.factor(11.19)
lon48_men_100m_10[5,4] <- as.factor(11.62)
lon48_men_100m_11<-tables[[16]]
lon48_men_100m_11[4,4] <- as.factor(11.23)
lon48_men_100m_12<-tables[[17]]
lon48_men_100m_12[4,4] <- as.factor(11.36)
lon48_men_100m_12[5,4] <- as.factor(11.45)
lon48_men_100m_12[6,4] <- as.factor(11.78)
lon48_men_100m_13<-tables[[18]]
lon48_men_100m_13[4,4] <- as.factor(10.93)
lon48_men_100m_13[5,4] <- as.factor(10.97)
lon48_men_100m_13[6,4] <- as.factor(11.32)
lon48_men_100m_14<-tables[[19]]
lon48_men_100m_14[4,4] <- as.factor(11.04)
lon48_men_100m_14[5,4] <- as.factor(11.11)
lon48_men_100m_14[6,4] <- as.factor(11.18)
lon48_men_100m_15<-tables[[20]]
lon48_men_100m_15[4,4] <- as.factor(10.82)
lon48_men_100m_15[5,4] <- as.factor(11.08)
lon48_men_100m_15[6,4] <- as.factor(11.10)
lon48_men_100m_16<-tables[[21]]
lon48_men_100m_16[4,4] <- as.factor(11.04)
lon48_men_100m_16[5,4] <- as.factor(11.09)
lon48_men_100m_16[6,4] <- as.factor(11.26)
lon48_men_100m_17<-tables[[22]]
lon48_men_100m_17[4,4] <- as.factor(10.98)
lon48_men_100m_17[5,4] <- as.factor(11.05)
lon48_men_100m_17[6,4] <- as.factor(11.15)
lon48_men_100m_18<-tables[[23]]
lon48_men_100m_18[4,4] <- as.factor(10.74)
lon48_men_100m_18[5,4] <- as.factor(10.82)
lon48_men_100m_18[6,4] <- as.factor(11.01)
lon48_men_100m_19<-tables[[24]]
lon48_men_100m_19[4,4,] <- as.factor(10.61)
lon48_men_100m_19[5,4,] <- as.factor(10.67)
lon48_men_100m_19[6,4,] <- as.factor(10.81)
names(lon48_men_100m_19)[4] <- "Time"
lon48_men_100m_1 <- lon48_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
lon48_men_100m_2 <- lon48_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
lon48_men_100m_3 <- lon48_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
lon48_men_100m_4 <- lon48_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
lon48_men_100m_5 <- lon48_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
lon48_men_100m_6 <- lon48_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
lon48_men_100m_7 <- lon48_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
lon48_men_100m_8 <- lon48_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
lon48_men_100m_9 <- lon48_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
lon48_men_100m_10 <- lon48_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
lon48_men_100m_11 <- lon48_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
lon48_men_100m_12 <- lon48_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
lon48_men_100m_13 <- lon48_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
lon48_men_100m_14 <- lon48_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
lon48_men_100m_15 <- lon48_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
lon48_men_100m_16 <- lon48_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
lon48_men_100m_17 <- lon48_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
lon48_men_100m_18 <- lon48_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
lon48_men_100m_19 <- lon48_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
lon48_men_100m_all <- bind_rows(lon48_men_100m_1, lon48_men_100m_2, lon48_men_100m_3, lon48_men_100m_4, lon48_men_100m_5, lon48_men_100m_6, lon48_men_100m_7, lon48_men_100m_8, lon48_men_100m_9, lon48_men_100m_10, lon48_men_100m_11, lon48_men_100m_12, lon48_men_100m_13, lon48_men_100m_14, lon48_men_100m_15, lon48_men_100m_16, lon48_men_100m_17, lon48_men_100m_18, lon48_men_100m_19)
lon48_men_100m_all <- lon48_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1948,"Host City" ="London", "Host Country"="United Kingdom")
lon48_men_100m_all[97,1]<- "Gold"
lon48_men_100m_all[98,1]<- "Silver"
lon48_men_100m_all[99,1]<- "Bronze"
lon48_men_100m_all
## Rank Athlete Nation Time Notes Heat
## 1 1 Barney Ewell United States 10.50 Q 1
## 2 2 Alastair McCorquodale Great Britain 10.50 Q 1
## 3 3 Leslie Laing Jamaica 11.00 1
## 4 4 Angel García Cuba 11.25 1
## 5 5 Nestor Jacono Malta 11.54 1
## 6 1 Mel Patton United States 10.60 Q 2
## 7 2 Ivan Hausen Brazil 10.90 Q 2
## 8 3 James O'Brien Canada 10.90 2
## 9 4 Fernando Lapuente Argentina 11.16 2
## 10 5 Hector Gosset Belgium 11.50 2
## 11 6 Guillermo Rodríguez Mexico 11.97 2
## 12 1 Lloyd La Beach Panama 10.50 Q 3
## 13 2 Béla Goldoványi Hungary 11.00 Q 3
## 14 3 Frank Mahoney Bermuda 11.80 3
## 15 1 Juan López Uruguay 10.50 Q 4
## 16 2 Ken Jones Great Britain 10.60 Q 4
## 17 3 Jan Meijer Netherlands 11.00 4
## 18 4 Máximo Reyes Peru 11.04 4
## 19 5 Finnbjörn Þorvaldsson Iceland 11.23 4
## 20 1 Harrison Dillard United States 10.40 Q 5
## 21 2 Aroldo da Silva Brazil 10.60 Q 5
## 22 3 Peter Bloch Norway 11.10 5
## 23 4 Pol Braekman Belgium 11.30 5
## 24 1 McDonald Bailey Great Britain 10.50 Q 6
## 25 2 Haukur Clausen Iceland 11.00 Q 6
## 26 3 Abram van Heerden South Africa 11.10 6
## 27 4 Carlos Silva Chile 11.08 6
## 28 5 Bernabe Lovina Philippines 11.32 6
## 29 6 Stanley Lines Bermuda 11.69 6
## 30 1 John Treloar Australia 10.50 Q 7
## 31 2 René Valmy France 10.80 Q 7
## 32 3 György Csányi Hungary 11.10 7
## 33 4 Carlos Isaac Argentina 11.24 7
## 34 5 Sayed Moukhtar Egypt 11.71 7
## 35 6 Ali Salman Iraq 11.90 7
## 36 1 Rafael Fortún Cuba 10.70 Q 8
## 37 2 John Bartram Australia 10.80 Q 8
## 38 3 Basil McKenzie Jamaica 10.80 8
## 39 4 Hélio da Silva Brazil 11.09 8
## 40 5 Jo Zwaan Netherlands 11.09 8
## 41 1 Morris Curotta Australia 10.70 Q 9
## 42 2 Gerardo Bönnhoff Argentina 10.80 Q 9
## 43 3 Raúl Mazorra Cuba 11.10 9
## 44 4 Örn Clausen Iceland 11.22 9
## 45 5 Raşit Öztaş Turkey 11.35 9
## 46 1 George Lewis Trinidad and Tobago 10.80 Q 10
## 47 2 Ted Haggis Canada 10.90 Q 10
## 48 3 Walter Pérez Uruguay 11.00 10
## 49 4 Santiago Ferrando Peru 11.19 10
## 50 5 Stefanos Petrakis Greece 11.62 10
## 51 1 Isidoor Van De Wiele Belgium 10.80 Q 11
## 52 2 Nuno Morais Portugal 10.90 Q 11
## 53 3 Alberto Labarthe Chile 11.00 11
## 54 4 Muhammad Sharif Butt Pakistan 11.23 11
## 55 1 Mario Fayos Uruguay 11.00 Q 12
## 56 2 Eric Prabhakar India 11.00 Q 12
## 57 3 László Bartha Hungary 11.10 12
## 58 4 Jan Kleyn Netherlands 11.36 12
## 59 5 Kemal Aksur Turkey 11.45 12
## 60 6 Maung Sein Pe Burma 11.78 12
## 61 1 Harrison Dillard United States 10.40 Q Quarter Final
## 62 2 Juan López Uruguay 10.60 Q Quarter Final
## 63 3 Ken Jones Great Britain 10.70 Q Quarter Final
## 64 4 Ivan Hausen Brazil 10.93 Quarter Final
## 65 5 Ted Haggis Canada 10.97 Quarter Final
## 66 6 António Morais Portugal 11.32 Quarter Final
## 67 1 Barney Ewell United States 10.50 Q Quarter Final
## 68 2 McDonald Bailey Great Britain 10.60 Q Quarter Final
## 69 3 Morris Curotta Australia 10.80 Q Quarter Final
## 70 4 George Lewis Trinidad and Tobago 11.04 Quarter Final
## 71 5 Béla Goldoványi Hungary 11.11 Quarter Final
## 72 6 Haukur Clausen Iceland 11.18 Quarter Final
## 73 1 Mel Patton United States 10.40 Q Quarter Final
## 74 2 Alastair McCorquodale Great Britain 10.50 Q Quarter Final
## 75 3 John Bartram Australia 10.60 Q Quarter Final
## 76 4 René Valmy France 10.82 Quarter Final
## 77 5 Mario Fayos Uruguay 11.08 Quarter Final
## 78 6 Isidoor Van De Wiele Belgium 11.10 Quarter Final
## 79 1 Lloyd La Beach Panama 10.50 Q Quarter Final
## 80 2 John Treloar Australia 10.50 Q Quarter Final
## 81 3 Rafael Fortún Cuba 10.60 Q Quarter Final
## 82 4 Aroldo da Silva Brazil 11.04 Quarter Final
## 83 5 Gerardo Bönnhoff Argentina 11.09 Quarter Final
## 84 6 Eric Prabhakar India 11.26 Quarter Final
## 85 1 Harrison Dillard United States 10.50 Q Semi Final
## 86 2 Barney Ewell United States 10.50 Q Semi Final
## 87 3 Alastair McCorquodale Great Britain 10.70 Q Semi Final
## 88 4 John Bartram Australia 10.98 Semi Final
## 89 5 Juan López Uruguay 11.05 Semi Final
## 90 6 Morris Curotta Australia 11.15 Semi Final
## 91 1 Mel Patton United States 10.40 Q Semi Final
## 92 2 Lloyd LaBeach Panama 10.50 Q Semi Final
## 93 3 McDonald Bailey Great Britain 10.60 Q Semi Final
## 94 4 John Treloar Australia 10.74 Semi Final
## 95 5 Rafael Fortún Cuba 10.82 Semi Final
## 96 6 Ken Jones Great Britain 11.01 Semi Final
## 97 Gold Harrison Dillard United States 10.30 =OR Final
## 98 Silver Barney Ewell United States 10.40 Final
## 99 Bronze Lloyd LaBeach Panama 10.60 Final
## 100 4 Alastair McCorquodale Great Britain 10.61 Final
## 101 5 Mel Patton United States 10.67 Final
## 102 6 McDonald Bailey Great Britain 10.81 Final
## Year Host City Host Country
## 1 1948 London United Kingdom
## 2 1948 London United Kingdom
## 3 1948 London United Kingdom
## 4 1948 London United Kingdom
## 5 1948 London United Kingdom
## 6 1948 London United Kingdom
## 7 1948 London United Kingdom
## 8 1948 London United Kingdom
## 9 1948 London United Kingdom
## 10 1948 London United Kingdom
## 11 1948 London United Kingdom
## 12 1948 London United Kingdom
## 13 1948 London United Kingdom
## 14 1948 London United Kingdom
## 15 1948 London United Kingdom
## 16 1948 London United Kingdom
## 17 1948 London United Kingdom
## 18 1948 London United Kingdom
## 19 1948 London United Kingdom
## 20 1948 London United Kingdom
## 21 1948 London United Kingdom
## 22 1948 London United Kingdom
## 23 1948 London United Kingdom
## 24 1948 London United Kingdom
## 25 1948 London United Kingdom
## 26 1948 London United Kingdom
## 27 1948 London United Kingdom
## 28 1948 London United Kingdom
## 29 1948 London United Kingdom
## 30 1948 London United Kingdom
## 31 1948 London United Kingdom
## 32 1948 London United Kingdom
## 33 1948 London United Kingdom
## 34 1948 London United Kingdom
## 35 1948 London United Kingdom
## 36 1948 London United Kingdom
## 37 1948 London United Kingdom
## 38 1948 London United Kingdom
## 39 1948 London United Kingdom
## 40 1948 London United Kingdom
## 41 1948 London United Kingdom
## 42 1948 London United Kingdom
## 43 1948 London United Kingdom
## 44 1948 London United Kingdom
## 45 1948 London United Kingdom
## 46 1948 London United Kingdom
## 47 1948 London United Kingdom
## 48 1948 London United Kingdom
## 49 1948 London United Kingdom
## 50 1948 London United Kingdom
## 51 1948 London United Kingdom
## 52 1948 London United Kingdom
## 53 1948 London United Kingdom
## 54 1948 London United Kingdom
## 55 1948 London United Kingdom
## 56 1948 London United Kingdom
## 57 1948 London United Kingdom
## 58 1948 London United Kingdom
## 59 1948 London United Kingdom
## 60 1948 London United Kingdom
## 61 1948 London United Kingdom
## 62 1948 London United Kingdom
## 63 1948 London United Kingdom
## 64 1948 London United Kingdom
## 65 1948 London United Kingdom
## 66 1948 London United Kingdom
## 67 1948 London United Kingdom
## 68 1948 London United Kingdom
## 69 1948 London United Kingdom
## 70 1948 London United Kingdom
## 71 1948 London United Kingdom
## 72 1948 London United Kingdom
## 73 1948 London United Kingdom
## 74 1948 London United Kingdom
## 75 1948 London United Kingdom
## 76 1948 London United Kingdom
## 77 1948 London United Kingdom
## 78 1948 London United Kingdom
## 79 1948 London United Kingdom
## 80 1948 London United Kingdom
## 81 1948 London United Kingdom
## 82 1948 London United Kingdom
## 83 1948 London United Kingdom
## 84 1948 London United Kingdom
## 85 1948 London United Kingdom
## 86 1948 London United Kingdom
## 87 1948 London United Kingdom
## 88 1948 London United Kingdom
## 89 1948 London United Kingdom
## 90 1948 London United Kingdom
## 91 1948 London United Kingdom
## 92 1948 London United Kingdom
## 93 1948 London United Kingdom
## 94 1948 London United Kingdom
## 95 1948 London United Kingdom
## 96 1948 London United Kingdom
## 97 1948 London United Kingdom
## 98 1948 London United Kingdom
## 99 1948 London United Kingdom
## 100 1948 London United Kingdom
## 101 1948 London United Kingdom
## 102 1948 London United Kingdom
Berlin 1936
ber_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1936_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-ber_men_100m%>%html_table(fill=TRUE)
ber_men_100m_1<-tables[[5]]
ber_men_100m_2<-tables[[6]]
ber_men_100m_3<-tables[[7]]
ber_men_100m_4<-tables[[8]]
ber_men_100m_5<-tables[[9]]
ber_men_100m_6<-tables[[10]]
ber_men_100m_7<-tables[[11]]
ber_men_100m_8<-tables[[12]]
ber_men_100m_9<-tables[[13]]
ber_men_100m_10<-tables[[14]]
ber_men_100m_11<-tables[[15]]
ber_men_100m_12<-tables[[16]]
ber_men_100m_13<-tables[[17]]
ber_men_100m_14<-tables[[18]]
ber_men_100m_15<-tables[[19]]
ber_men_100m_16<-tables[[20]]
ber_men_100m_17<-tables[[21]]
ber_men_100m_18<-tables[[22]]
ber_men_100m_19<-tables[[23]]
ber_men_100m_1 <- ber_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
ber_men_100m_2 <- ber_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
ber_men_100m_3 <- ber_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
ber_men_100m_4 <- ber_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
ber_men_100m_5 <- ber_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
ber_men_100m_6 <- ber_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
ber_men_100m_7 <- ber_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
ber_men_100m_8 <- ber_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
ber_men_100m_9 <- ber_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
ber_men_100m_10 <- ber_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
ber_men_100m_11 <- ber_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
ber_men_100m_12 <- ber_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
ber_men_100m_13 <- ber_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ber_men_100m_14 <- ber_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ber_men_100m_15 <- ber_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ber_men_100m_16 <- ber_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ber_men_100m_17 <- ber_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
ber_men_100m_18 <- ber_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
ber_men_100m_19 <- ber_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
ber_men_100m_all <- bind_rows(ber_men_100m_1, ber_men_100m_2, ber_men_100m_3, ber_men_100m_4, ber_men_100m_5, ber_men_100m_6, ber_men_100m_7, ber_men_100m_8, ber_men_100m_9, ber_men_100m_10, ber_men_100m_11, ber_men_100m_12, ber_men_100m_13, ber_men_100m_14, ber_men_100m_15, ber_men_100m_16, ber_men_100m_17, ber_men_100m_18, ber_men_100m_19)
ber_men_100m_all <- ber_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1936,"Host City" ="Berlin", "Host Country"="Germany")
ber_men_100m_all[70,1]<- "Gold"
ber_men_100m_all[71,1]<- "Silver"
ber_men_100m_all[72,1]<- "Bronze"
ber_men_100m_all
## Rank Athlete Nation Time Notes Heat Year
## 1 1 Lennart Strandberg Sweden 10.7 Q 1 1936
## 2 2 Takayoshi Yoshioka Japan 10.8 Q 1 1936
## 3 3 Manfred Kersch Germany 10.8 1 1936
## 4 1 Chris Berger Netherlands 10.8 Q 2 1936
## 5 2 Pat Dannaher South Africa 11.0 Q 2 1936
## 6 3 Bernard Marchand Switzerland 11.2 2 1936
## 7 4 Antonio Sande Argentina 11.2 2 1936
## 8 5 Julije Bauer Yugoslavia 11.5 2 1936
## 9 1 Wil van Beveren Netherlands 10.8 Q 3 1936
## 10 2 Eric Grimbeek South Africa 10.9 Q 3 1936
## 11 3 Ruudi Toomsalu Estonia 11.0 3 1936
## 12 1 Gyula Gyenes Hungary 10.7 Q 4 1936
## 13 2 Monta Suzuki Japan 10.7 Q 4 1936
## 14 3 Palle Virtanen Finland 10.9 4 1936
## 15 4 Paul Bronner France 11.1 4 1936
## 16 1 Howard McPhee Canada 10.8 Q 5 1936
## 17 2 Lennart Lindgren Sweden 10.8 Q 5 1936
## 18 3 Robert Paul France 11.0 5 1936
## 19 1 Marthinus Theunissen South Africa 10.7 Q 6 1936
## 20 2 Gerd Hornberger Germany 10.7 Q 6 1936
## 21 3 Tomás Beswick Argentina 10.9 6 1936
## 22 1 Ralph Metcalfe United States 10.8 Q 7 1936
## 23 2 József Sir Hungary 10.8 Q 7 1936
## 24 3 Nemesio de Guzman Philippines 11.1 7 1936
## 25 1 Erich Borchmeyer Germany 10.7 Q 8 1936
## 26 2 Bruce Humber Canada 10.8 Q 8 1936
## 27 3 Gábor Gerő Hungary 11.3 8 1936
## 28 1 Frank Wykoff United States 10.6 Q 9 1936
## 29 2 Arthur Sweeney Great Britain 10.7 Q 9 1936
## 30 3 Antonio Fondevilla Argentina 11.0 9 1936
## 31 1 Tinus Osendarp Netherlands 10.5 Q 10 1936
## 32 2 Alan Pennington Great Britain 10.6 Q 10 1936
## 33 3 Lee Orr Canada 10.6 10 1936
## 34 1 Paul Hänni Switzerland 10.7 Q 11 1936
## 35 2 Cyril Holmes Great Britain 10.8 Q 11 1936
## 36 3 Renos Frangoudis Greece 10.8 11 1936
## 37 4 François Mersch Luxembourg 10.9 11 1936
## 38 1 Jesse Owens United States 10.3 Q, =OR 12 1936
## 39 2 Kichizo Sasaki Japan 11.0 Q 12 1936
## 40 3 José de Almeida Brazil 11.1 12 1936
## 41 1 Lennart Strandberg Sweden 10.5 Q Quarter Final 1936
## 42 2 Tinus Osendarp Netherlands 10.6 Q Quarter Final 1936
## 43 3 Frank Wykoff United States 10.6 Q Quarter Final 1936
## 44 4 Gerd Hornberger Germany 10.7 Quarter Final 1936
## 45 1 Jesse Owens United States 10.2 Q Quarter Final 1936
## 46 2 Paul Hänni Switzerland 10.6 Q Quarter Final 1936
## 47 3 József Sir Hungary 10.7 Q Quarter Final 1936
## 48 4 Takayoshi Yoshioka Japan 10.8 Quarter Final 1936
## 49 5 Eric Grimbeek South Africa 10.9 Quarter Final 1936
## 50 6 Lennart Lindgren Sweden 11.0 Quarter Final 1936
## 51 1 Ralph Metcalfe United States 10.5 Q Quarter Final 1936
## 52 2 Alan Pennington Great Britain 10.6 Q Quarter Final 1936
## 53 3 Wil van Beveren Netherlands 10.7 Q Quarter Final 1936
## 54 1 Erich Borchmeyer Germany 10.5 Q Quarter Final 1936
## 55 2 Arthur Sweeney Great Britain 10.6 Q Quarter Final 1936
## 56 3 Howard McPhee Canada 10.6 Q Quarter Final 1936
## 57 4 Monta Suzuki Japan 10.8 Quarter Final 1936
## 58 5 Chris Berger Netherlands 11.0 Quarter Final 1936
## 59 1 Jesse Owens United States 10.4 Q Semi Final 1936
## 60 2 Frank Wykoff United States 10.5 Q Semi Final 1936
## 61 3 Lennart Strandberg Sweden 10.5 Q Semi Final 1936
## 62 4 Paul Hänni Switzerland 10.7 Semi Final 1936
## 63 5 Wil van Beveren Netherlands 10.8 Semi Final 1936
## 64 1 Ralph Metcalfe United States 10.5 Q Semi Final 1936
## 65 2 Tinus Osendarp Netherlands 10.6 Q Semi Final 1936
## 66 3 Erich Borchmeyer Germany 10.7 Q Semi Final 1936
## 67 4 Howard McPhee Canada 10.7 Semi Final 1936
## 68 5 Arthur Sweeney Great Britain 10.7 Semi Final 1936
## 69 6 József Sir Hungary 10.9 Semi Final 1936
## 70 Gold Jesse Owens United States 10.3 <NA> Final 1936
## 71 Silver Ralph Metcalfe United States 10.4 <NA> Final 1936
## 72 Bronze Tinus Osendarp Netherlands 10.5 <NA> Final 1936
## 73 4 Frank Wykoff United States 10.6 <NA> Final 1936
## 74 5 Erich Borchmeyer Germany 10.7 <NA> Final 1936
## 75 6 Lennart Strandberg Sweden 10.9 <NA> Final 1936
## Host City Host Country
## 1 Berlin Germany
## 2 Berlin Germany
## 3 Berlin Germany
## 4 Berlin Germany
## 5 Berlin Germany
## 6 Berlin Germany
## 7 Berlin Germany
## 8 Berlin Germany
## 9 Berlin Germany
## 10 Berlin Germany
## 11 Berlin Germany
## 12 Berlin Germany
## 13 Berlin Germany
## 14 Berlin Germany
## 15 Berlin Germany
## 16 Berlin Germany
## 17 Berlin Germany
## 18 Berlin Germany
## 19 Berlin Germany
## 20 Berlin Germany
## 21 Berlin Germany
## 22 Berlin Germany
## 23 Berlin Germany
## 24 Berlin Germany
## 25 Berlin Germany
## 26 Berlin Germany
## 27 Berlin Germany
## 28 Berlin Germany
## 29 Berlin Germany
## 30 Berlin Germany
## 31 Berlin Germany
## 32 Berlin Germany
## 33 Berlin Germany
## 34 Berlin Germany
## 35 Berlin Germany
## 36 Berlin Germany
## 37 Berlin Germany
## 38 Berlin Germany
## 39 Berlin Germany
## 40 Berlin Germany
## 41 Berlin Germany
## 42 Berlin Germany
## 43 Berlin Germany
## 44 Berlin Germany
## 45 Berlin Germany
## 46 Berlin Germany
## 47 Berlin Germany
## 48 Berlin Germany
## 49 Berlin Germany
## 50 Berlin Germany
## 51 Berlin Germany
## 52 Berlin Germany
## 53 Berlin Germany
## 54 Berlin Germany
## 55 Berlin Germany
## 56 Berlin Germany
## 57 Berlin Germany
## 58 Berlin Germany
## 59 Berlin Germany
## 60 Berlin Germany
## 61 Berlin Germany
## 62 Berlin Germany
## 63 Berlin Germany
## 64 Berlin Germany
## 65 Berlin Germany
## 66 Berlin Germany
## 67 Berlin Germany
## 68 Berlin Germany
## 69 Berlin Germany
## 70 Berlin Germany
## 71 Berlin Germany
## 72 Berlin Germany
## 73 Berlin Germany
## 74 Berlin Germany
## 75 Berlin Germany
Los Angeles 1932
los32_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1932_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-los32_men_100m%>%html_table(fill=TRUE)
los32_men_100m_1<-tables[[5]]
los32_men_100m_2<-tables[[6]]
los32_men_100m_3<-tables[[7]]
los32_men_100m_4<-tables[[8]]
los32_men_100m_5<-tables[[9]]
los32_men_100m_6<-tables[[10]]
los32_men_100m_7<-tables[[11]]
los32_men_100m_8<-tables[[12]]
los32_men_100m_9<-tables[[13]]
los32_men_100m_10<-tables[[14]]
los32_men_100m_11<-tables[[15]]
los32_men_100m_12<-tables[[16]]
los32_men_100m_13<-tables[[17]]
los32_men_100m_14<-tables[[18]]
los32_men_100m_1 <- los32_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
los32_men_100m_2 <- los32_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
los32_men_100m_3 <- los32_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
los32_men_100m_4 <- los32_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
los32_men_100m_5 <- los32_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
los32_men_100m_6 <- los32_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
los32_men_100m_7 <- los32_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
los32_men_100m_8 <- los32_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
los32_men_100m_9 <- los32_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
los32_men_100m_10 <- los32_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
los32_men_100m_11 <- los32_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
los32_men_100m_12 <- los32_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
los32_men_100m_13 <- los32_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
los32_men_100m_14 <- los32_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
los32_men_100m_all <- bind_rows(los32_men_100m_1, los32_men_100m_2, los32_men_100m_3, los32_men_100m_4, los32_men_100m_5, los32_men_100m_6, los32_men_100m_7, los32_men_100m_8, los32_men_100m_9, los32_men_100m_10, los32_men_100m_11, los32_men_100m_12, los32_men_100m_13, los32_men_100m_14)
los32_men_100m_all <- los32_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1932,"Host City" ="Los Angeles", "Host Country"="United States")
los32_men_100m_all[64,1]<- "Gold"
los32_men_100m_all[65,1]<- "Silver"
los32_men_100m_all[66,1]<- "Bronze"
los32_men_100m_all
## Rank Athlete Nation Time Notes Heat Year
## 1 1 Eddie Tolan United States 10.90 Q 1 1932
## 2 2 José de Almeida Brazil 11.00 Q 1 1932
## 3 3 Fernando Ortíz Mexico 11.20 Q 1 1932
## 4 4 André Théard Haiti 11.40 1 1932
## 5 5 António Rodrigues Portugal 11.50 1 1932
## 6 1 George Simpson United States 10.90 <NA> 2 1932
## 7 2 Ernie Page Great Britain 11.10 <NA> 2 1932
## 8 3 Andrej Engel Czechoslovakia 11.20 <NA> 2 1932
## 9 4 Bunoo Sutton India 11.40 <NA> 2 1932
## 10 5 Liu Changchun China 11.50 <NA> 2 1932
## 11 1 Arthur Jonath Germany 10.60 Q, =WR 3 1932
## 12 2 Allan Elliot New Zealand 10.80 Q 3 1932
## 13 3 Izuo Anno Japan 10.90 Q 3 1932
## 14 4 Ronald Vernieux India 11.00 3 1932
## 15 5 Samuel Giacosa Argentina 11.10 3 1932
## 16 1 Carlos Bianchi Argentina 10.80 Q 4 1932
## 17 2 Helmut Körnig Germany 11.00 Q 4 1932
## 18 3 Percy Williams Canada 11.10 Q 4 1932
## 19 4 Jesús Moraila Mexico 11.20 4 1932
## 20 1 Ralph Metcalfe United States 11.00 Q 5 1932
## 21 2 Bert Pearson Canada 11.10 Q 5 1932
## 22 3 Angelos Lambrou Greece 11.30 Q 5 1932
## 23 4 Fernando Ramírez Mexico 11.40 5 1932
## 24 1 Danie Joubert South Africa 11.00 Q 6 1932
## 25 2 Harold Wright Canada 11.20 Q 6 1932
## 26 3 Ernst Geerling Germany 11.30 Q 6 1932
## 27 4 Ricardo Guimarães Brazil 11.40 6 1932
## 28 1 Takayoshi Yoshioka Japan 10.90 Q 7 1932
## 29 2 Chris Berger Netherlands 11.10 Q 7 1932
## 30 3 Héctor Berra Argentina 11.20 Q 7 1932
## 31 4 Stanley Fuller Great Britain 11.30 7 1932
## 32 5 Mario Marques Brazil 11.50 7 1932
## 33 1 Eddie Tolan United States 10.53 Q, OR Quarter Final 1932
## 34 2 Carlos Bianchi Argentina 10.50 Q Quarter Final 1932
## 35 3 Percy Williams Canada 10.70 Q Quarter Final 1932
## 36 4 Chris Berger Netherlands 10.70 Quarter Final 1932
## 37 5 Fernando Ortíz Mexico 11.00 Quarter Final 1932
## 38 1 George Simpson United States 10.74 Q Quarter Final 1932
## 39 2 Harold Wright Canada 10.90 Q Quarter Final 1932
## 40 3 Helmut Körnig Germany 11.00 Q Quarter Final 1932
## 41 4 Andrej Engel Czechoslovakia 11.10 Quarter Final 1932
## 42 1 Ralph Metcalfe United States 10.77 Q Quarter Final 1932
## 43 2 Takayoshi Yoshioka Japan 10.80 Q Quarter Final 1932
## 44 3 Allan Elliot New Zealand 10.90 Q Quarter Final 1932
## 45 4 Ernie Page Great Britain 10.90 Quarter Final 1932
## 46 5 Ernst Geerling Germany 11.10 Quarter Final 1932
## 47 1 Arthur Jonath Germany 10.68 Q Quarter Final 1932
## 48 2 Danie Joubert South Africa 10.60 Q Quarter Final 1932
## 49 3 Bert Pearson Canada 10.70 Q Quarter Final 1932
## 50 4 José de Almeida Brazil 10.80 Quarter Final 1932
## 51 5 Izuo Anno Japan 10.90 Quarter Final 1932
## 52 1 Eddie Tolan United States 10.81 Q Semi Final 1932
## 53 2 Danie Joubert South Africa 10.81 Q Semi Final 1932
## 54 3 Takayoshi Yoshioka Japan 10.83 Q Semi Final 1932
## 55 4 Percy Williams Canada 10.91 Semi Final 1932
## 56 5 Allan Elliot New Zealand 11.00 Semi Final 1932
## 57 6 Helmut Körnig Germany 11.20 Semi Final 1932
## 58 1 Ralph Metcalfe United States 10.65 Q Semi Final 1932
## 59 2 George Simpson United States 10.70 Q Semi Final 1932
## 60 3 Arthur Jonath Germany 10.71 Q Semi Final 1932
## 61 4 Carlos Bianchi Argentina 10.73 Semi Final 1932
## 62 5 Bert Pearson Canada 10.95 Semi Final 1932
## 63 6 Harold Wright Canada 11.10 Semi Final 1932
## 64 Gold Eddie Tolan United States 10.38 =WR Final 1932
## 65 Silver Ralph Metcalfe United States 10.38 =WR Final 1932
## 66 Bronze Arthur Jonath Germany 10.50 Final 1932
## 67 4 George Simpson United States 10.53 Final 1932
## 68 5 Danie Joubert South Africa 10.60 Final 1932
## 69 6 Takayoshi Yoshioka Japan 10.79 Final 1932
## Host City Host Country
## 1 Los Angeles United States
## 2 Los Angeles United States
## 3 Los Angeles United States
## 4 Los Angeles United States
## 5 Los Angeles United States
## 6 Los Angeles United States
## 7 Los Angeles United States
## 8 Los Angeles United States
## 9 Los Angeles United States
## 10 Los Angeles United States
## 11 Los Angeles United States
## 12 Los Angeles United States
## 13 Los Angeles United States
## 14 Los Angeles United States
## 15 Los Angeles United States
## 16 Los Angeles United States
## 17 Los Angeles United States
## 18 Los Angeles United States
## 19 Los Angeles United States
## 20 Los Angeles United States
## 21 Los Angeles United States
## 22 Los Angeles United States
## 23 Los Angeles United States
## 24 Los Angeles United States
## 25 Los Angeles United States
## 26 Los Angeles United States
## 27 Los Angeles United States
## 28 Los Angeles United States
## 29 Los Angeles United States
## 30 Los Angeles United States
## 31 Los Angeles United States
## 32 Los Angeles United States
## 33 Los Angeles United States
## 34 Los Angeles United States
## 35 Los Angeles United States
## 36 Los Angeles United States
## 37 Los Angeles United States
## 38 Los Angeles United States
## 39 Los Angeles United States
## 40 Los Angeles United States
## 41 Los Angeles United States
## 42 Los Angeles United States
## 43 Los Angeles United States
## 44 Los Angeles United States
## 45 Los Angeles United States
## 46 Los Angeles United States
## 47 Los Angeles United States
## 48 Los Angeles United States
## 49 Los Angeles United States
## 50 Los Angeles United States
## 51 Los Angeles United States
## 52 Los Angeles United States
## 53 Los Angeles United States
## 54 Los Angeles United States
## 55 Los Angeles United States
## 56 Los Angeles United States
## 57 Los Angeles United States
## 58 Los Angeles United States
## 59 Los Angeles United States
## 60 Los Angeles United States
## 61 Los Angeles United States
## 62 Los Angeles United States
## 63 Los Angeles United States
## 64 Los Angeles United States
## 65 Los Angeles United States
## 66 Los Angeles United States
## 67 Los Angeles United States
## 68 Los Angeles United States
## 69 Los Angeles United States
Amsterdam 1928
ams_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1928_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-ams_men_100m%>%html_table(fill=TRUE)
ams_men_100m_1<-tables[[5]]
ams_men_100m_2<-tables[[6]]
ams_men_100m_3<-tables[[7]]
ams_men_100m_4<-tables[[8]]
ams_men_100m_5<-tables[[9]]
ams_men_100m_6<-tables[[10]]
ams_men_100m_7<-tables[[11]]
ams_men_100m_8<-tables[[12]]
ams_men_100m_9<-tables[[13]]
ams_men_100m_10<-tables[[14]]
ams_men_100m_11<-tables[[15]]
ams_men_100m_12<-tables[[16]]
ams_men_100m_13<-tables[[17]]
ams_men_100m_14<-tables[[18]]
ams_men_100m_15<-tables[[19]]
ams_men_100m_16<-tables[[20]]
ams_men_100m_17<-tables[[21]]
ams_men_100m_18<-tables[[22]]
ams_men_100m_19<-tables[[23]]
ams_men_100m_20<-tables[[24]]
ams_men_100m_21<-tables[[25]]
ams_men_100m_22<-tables[[26]]
ams_men_100m_23<-tables[[27]]
ams_men_100m_24<-tables[[28]]
ams_men_100m_25<-tables[[29]]
ams_men_100m_1 <- ams_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
ams_men_100m_2 <- ams_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
ams_men_100m_3 <- ams_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
ams_men_100m_4 <- ams_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
ams_men_100m_5 <- ams_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
ams_men_100m_6 <- ams_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
ams_men_100m_7 <- ams_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
ams_men_100m_8 <- ams_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
ams_men_100m_9 <- ams_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
ams_men_100m_10 <- ams_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
ams_men_100m_11 <- ams_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
ams_men_100m_12 <- ams_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
ams_men_100m_13 <- ams_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "13")
ams_men_100m_14 <- ams_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "14")
ams_men_100m_15 <- ams_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "15")
ams_men_100m_16 <- ams_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "16")
ams_men_100m_17 <- ams_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ams_men_100m_18 <- ams_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ams_men_100m_19 <- ams_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ams_men_100m_20 <- ams_men_100m_20 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ams_men_100m_21 <- ams_men_100m_21 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ams_men_100m_22 <- ams_men_100m_22 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
ams_men_100m_23 <- ams_men_100m_23 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
ams_men_100m_24 <- ams_men_100m_24 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
ams_men_100m_25 <- ams_men_100m_25 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
ams_men_100m_all <- bind_rows(ams_men_100m_1, ams_men_100m_2, ams_men_100m_3, ams_men_100m_4, ams_men_100m_5, ams_men_100m_6, ams_men_100m_7, ams_men_100m_8, ams_men_100m_9, ams_men_100m_10, ams_men_100m_11, ams_men_100m_12, ams_men_100m_13, ams_men_100m_14, ams_men_100m_15, ams_men_100m_16, ams_men_100m_17, ams_men_100m_18, ams_men_100m_19, ams_men_100m_20, ams_men_100m_21, ams_men_100m_22, ams_men_100m_23, ams_men_100m_24, ams_men_100m_25)
ams_men_100m_all <- ams_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1928,"Host City" ="Amsterdam", "Host Country"="Netherlands")
ams_men_100m_all[56,1]<- "Gold"
ams_men_100m_all[57,1]<- "Silver"
ams_men_100m_all[58,1]<- "Bronze"
ams_men_100m_all
## Rank Athlete Nation Time Notes Heat Year
## 1 1 John Fitzpatrick Canada 11.0 Q 1 1928
## 2 2 Richard Corts Germany 11.0 Q 1 1928
## 3 3 Willy Dujardin Belgium 11.2 1 1928
## 4 4 Wilhelm Hennings Netherlands 11.4 1 1928
## 5 5 Angelos Lambrou Greece 11.4 1 1928
## 6 1 Sydney Atkinson South Africa 11.2 Q 2 1928
## 7 2 André Mourlon France 11.3 Q 2 1928
## 8 1 Frank Wykoff United States 11.0 Q 3 1928
## 9 1 Ferenc Gerő Hungary 10.8 Q 4 1928
## 10 3 Willy Weibel Switzerland 11.4 4 1928
## 11 4 Diego Ordóñez Spain 11.4 4 1928
## 12 1 Jack London Great Britain 10.8 Q 5 1928
## 13 1 Juan Bautista Pina Argentina 11.0 Q 6 1928
## 14 1 Wilfred Legg South Africa 11.0 Q 7 1928
## 15 2 Cyril Gill Great Britain 11.0 Q 7 1928
## 16 1 Hubert Houben Germany 11.0 Q 8 1928
## 17 2 Johannes Viljoen South Africa 11.0 Q 8 1928
## 18 3 Karel Kněnický Czechoslovakia 11.3 8 1928
## 19 4 Dolf Benz Netherlands 11.4 8 1928
## 20 1 Georg Lammers Germany 10.8 Q 9 1928
## 21 1 Walter Rangeley Great Britain 11.0 Q 10 1928
## 22 2 Rinus van den Berge Netherlands 11.1 Q 10 1928
## 23 1 István Raggambi Hungary 11.0 Q 11 1928
## 24 2 Jimmy Carlton Australia 11.1 Q 11 1928
## 25 1 Percy Williams Canada 11.0 Q 12 1928
## 26 1 José Barrientos Cuba 11.0 Q 13 1928
## 27 1 Claude Bracey United States 11.0 Q 14 1928
## 28 2 Gilbert Auvergne France 11.1 Q 14 1928
## 29 3 Hermann Geißler Austria 11.2 14 1928
## 30 4 Risto Mattila Finland 11.3 14 1928
## 31 5 Emmanuel Goldsmith Switzerland 11.5 14 1928
## 32 6 George Schmit Luxembourg 12.2 14 1928
## 33 1 Henry Russell United States 11.0 Q 15 1928
## 34 1 Bob McAllister United States 10.8 Q 16 1928
## 35 1 Wilfred Legg South Africa 10.8 Q Quarter Final 1928
## 36 1 Robert McAllister United States 10.8 Q Quarter Final 1928
## 37 2 Richard Corts Germany 11.0 Q Quarter Final 1928
## 38 1 Henry Russell United States 10.8 Q Quarter Final 1928
## 39 1 Percy Williams Canada 10.6 Q, =OR Quarter Final 1928
## 40 2 Jack London Great Britain 10.8 Q Quarter Final 1928
## 41 1 Frank Wykoff United States 10.8 Q Quarter Final 1928
## 42 5 Jimmy Carlton Australia 11.0 Quarter Final 1928
## 43 1 Claude Bracey United States 10.8 Q Quarter Final 1928
## 44 1 Robert McAllister United States 10.6 Q, =OR Semi Final 1928
## 45 2 Percy Williams Canada 10.6 Q, =OR Semi Final 1928
## 46 3 Wilfred Legg South Africa 10.6 Q. =OR Semi Final 1928
## 47 4 Hubert Houben Germany 10.7 Semi Final 1928
## 48 5 Claude Bracey United States 10.8 Semi Final 1928
## 49 6 Juan Bautista Pina Argentina 11.0 Semi Final 1928
## 50 1 Jack London Great Britain 10.6 Q, =OR Semi Final 1928
## 51 2 Georg Lammers Germany 10.7 Q Semi Final 1928
## 52 3 Frank Wykoff United States 10.7 Q Semi Final 1928
## 53 4 Henry Russell United States 10.8 Semi Final 1928
## 54 5 Richard Corts Germany 10.8 Semi Final 1928
## 55 6 John Fitzpatrick Canada 10.9 Semi Final 1928
## 56 Gold Percy Williams Canada 10.8 <NA> Final 1928
## 57 Silver Jack London Great Britain 10.9 <NA> Final 1928
## 58 Bronze Georg Lammers Germany 10.9 <NA> Final 1928
## 59 4 Frank Wykoff United States 11.0 <NA> Final 1928
## 60 5 Wilfred Legg South Africa 11.0 <NA> Final 1928
## 61 6 Robert McAllister United States 11.0 <NA> Final 1928
## Host City Host Country
## 1 Amsterdam Netherlands
## 2 Amsterdam Netherlands
## 3 Amsterdam Netherlands
## 4 Amsterdam Netherlands
## 5 Amsterdam Netherlands
## 6 Amsterdam Netherlands
## 7 Amsterdam Netherlands
## 8 Amsterdam Netherlands
## 9 Amsterdam Netherlands
## 10 Amsterdam Netherlands
## 11 Amsterdam Netherlands
## 12 Amsterdam Netherlands
## 13 Amsterdam Netherlands
## 14 Amsterdam Netherlands
## 15 Amsterdam Netherlands
## 16 Amsterdam Netherlands
## 17 Amsterdam Netherlands
## 18 Amsterdam Netherlands
## 19 Amsterdam Netherlands
## 20 Amsterdam Netherlands
## 21 Amsterdam Netherlands
## 22 Amsterdam Netherlands
## 23 Amsterdam Netherlands
## 24 Amsterdam Netherlands
## 25 Amsterdam Netherlands
## 26 Amsterdam Netherlands
## 27 Amsterdam Netherlands
## 28 Amsterdam Netherlands
## 29 Amsterdam Netherlands
## 30 Amsterdam Netherlands
## 31 Amsterdam Netherlands
## 32 Amsterdam Netherlands
## 33 Amsterdam Netherlands
## 34 Amsterdam Netherlands
## 35 Amsterdam Netherlands
## 36 Amsterdam Netherlands
## 37 Amsterdam Netherlands
## 38 Amsterdam Netherlands
## 39 Amsterdam Netherlands
## 40 Amsterdam Netherlands
## 41 Amsterdam Netherlands
## 42 Amsterdam Netherlands
## 43 Amsterdam Netherlands
## 44 Amsterdam Netherlands
## 45 Amsterdam Netherlands
## 46 Amsterdam Netherlands
## 47 Amsterdam Netherlands
## 48 Amsterdam Netherlands
## 49 Amsterdam Netherlands
## 50 Amsterdam Netherlands
## 51 Amsterdam Netherlands
## 52 Amsterdam Netherlands
## 53 Amsterdam Netherlands
## 54 Amsterdam Netherlands
## 55 Amsterdam Netherlands
## 56 Amsterdam Netherlands
## 57 Amsterdam Netherlands
## 58 Amsterdam Netherlands
## 59 Amsterdam Netherlands
## 60 Amsterdam Netherlands
## 61 Amsterdam Netherlands
Paris 1924
par_men_100m<-read_html("https://en.wikipedia.org/wiki/Athletics_at_the_1924_Summer_Olympics_%E2%80%93_Men%27s_100_metres")
tables<-par_men_100m%>%html_table(fill=TRUE)
par_men_100m_1<-tables[[5]]
par_men_100m_2<-tables[[6]]
par_men_100m_3<-tables[[7]]
par_men_100m_4<-tables[[8]]
par_men_100m_5<-tables[[9]]
par_men_100m_6<-tables[[10]]
par_men_100m_7<-tables[[11]]
par_men_100m_8<-tables[[12]]
par_men_100m_9<-tables[[13]]
par_men_100m_10<-tables[[14]]
par_men_100m_11<-tables[[15]]
par_men_100m_12<-tables[[16]]
par_men_100m_13<-tables[[17]]
par_men_100m_14<-tables[[18]]
par_men_100m_15<-tables[[19]]
par_men_100m_16<-tables[[20]]
par_men_100m_17<-tables[[21]]
par_men_100m_18<-tables[[22]]
par_men_100m_19<-tables[[23]]
par_men_100m_20<-tables[[24]]
par_men_100m_21<-tables[[25]]
par_men_100m_22<-tables[[26]]
par_men_100m_23<-tables[[27]]
par_men_100m_24<-tables[[28]]
par_men_100m_25<-tables[[29]]
par_men_100m_26<-tables[[30]]
par_men_100m_1 <- par_men_100m_1 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "1")
par_men_100m_2 <- par_men_100m_2 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "2")
par_men_100m_3 <- par_men_100m_3 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "3")
par_men_100m_4 <- par_men_100m_4 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "4")
par_men_100m_5 <- par_men_100m_5 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "5")
par_men_100m_6 <- par_men_100m_6 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "6")
par_men_100m_7 <- par_men_100m_7 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "7")
par_men_100m_8 <- par_men_100m_8 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "8")
par_men_100m_9 <- par_men_100m_9 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "9")
par_men_100m_10 <- par_men_100m_10 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "10")
par_men_100m_11 <- par_men_100m_11 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "11")
par_men_100m_12 <- par_men_100m_12 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "12")
par_men_100m_13 <- par_men_100m_13 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "13")
par_men_100m_14 <- par_men_100m_14 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "14")
par_men_100m_15 <- par_men_100m_15 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "15")
par_men_100m_16 <- par_men_100m_16 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "16")
par_men_100m_17 <- par_men_100m_17 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "17")
par_men_100m_18 <- par_men_100m_18 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
par_men_100m_19 <- par_men_100m_19 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
par_men_100m_20 <- par_men_100m_20 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
par_men_100m_21 <- par_men_100m_21 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
par_men_100m_22 <- par_men_100m_22 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
par_men_100m_23 <- par_men_100m_23 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Quarter Final")
par_men_100m_24 <- par_men_100m_24 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
par_men_100m_25 <- par_men_100m_25 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Semi Final")
par_men_100m_26 <- par_men_100m_26 %>% transform(Time = as.numeric(Time), Rank = as.numeric(Rank)) %>% mutate(Heat = "Final")
par_men_100m_all <- bind_rows(par_men_100m_1, par_men_100m_2, par_men_100m_3, par_men_100m_4, par_men_100m_5, par_men_100m_6, par_men_100m_7, par_men_100m_8, par_men_100m_9, par_men_100m_10, par_men_100m_11, par_men_100m_12, par_men_100m_13, par_men_100m_14, par_men_100m_15, par_men_100m_16, par_men_100m_17, par_men_100m_18, par_men_100m_19, par_men_100m_20, par_men_100m_21, par_men_100m_22, par_men_100m_23, par_men_100m_24, par_men_100m_25, par_men_100m_26)
par_men_100m_all <- par_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1924,"Host City" ="Paris", "Host Country"="France")
par_men_100m_all[83,1]<- "Gold"
par_men_100m_all[84,1]<- "Silver"
par_men_100m_all[85,1]<- "Bronze"
par_men_100m_all
## Rank Athlete Nation Time Notes Heat Lane
## 1 1 Loren Murchison United States 10.8 Q 1 NA
## 2 2 Arthur Porritt New Zealand 10.9 Q 1 NA
## 3 1 Cyril Coaffee Canada 11.0 Q 2 NA
## 4 2 Ernesto Bonacina Italy 11.2 Q 2 NA
## 5 5 Alois Linka Czechoslovakia 11.6 2 NA
## 6 1 Charles Paddock United States 11.2 Q 3 NA
## 7 2 Oto Seviško Latvia 11.8 Q 3 NA
## 8 1 Maurice Degrelle France 11.0 Q 4 NA
## 9 2 Reijo Halme Finland 11.1 Q 4 NA
## 10 5 Władysław Dobrowolski Poland 11.5 4 NA
## 11 1 Lajos Kurunczy Hungary 11.4 Q 5 NA
## 12 1 Henricus Broos Netherlands 11.0 Q 6 NA
## 13 2 George Dunston South Africa 11.2 Q 6 NA
## 14 3 Antonín Svoboda Czechoslovakia 11.3 6 NA
## 15 4 Poul Schiang Denmark 11.5 6 NA
## 16 5 José-María Larrabeiti Spain 11.6 6 NA
## 17 1 Lancelot Royle Great Britain 11.0 Q 7 NA
## 18 2 Giovanni Frangipane Italy 11.1 Q 7 NA
## 19 3 André Théard Haiti 11.2 7 NA
## 20 4 Juan Junqueras Spain 11.3 7 NA
## 21 5 Zygmunt Weiss Poland 11.4 7 NA
## 22 1 Walter Rangeley Great Britain 11.0 Q 8 NA
## 23 2 Marinus van den Berge Netherlands 11.1 Q 8 NA
## 24 1 Albert Heisé France 11.2 Q 9 NA
## 25 2 Gusztáv Rózsahegyi Hungary 11.3 Q 9 NA
## 26 3 Lauri Härö Finland 11.3 9 NA
## 27 4 Curt Wiberg Sweden 11.4 9 NA
## 28 1 Wilfred Nichol Great Britain 11.0 Q 10 NA
## 29 2 Paul Brochart Belgium 11.1 Q 10 NA
## 30 1 Chester Bowman United States 11.0 Q 11 NA
## 31 2 Walter Strebi Switzerland 11.2 Q 11 NA
## 32 3 James Hall India 11.3 11 NA
## 33 4 Bror Österdahl Sweden 11.3 11 NA
## 34 1 George Hester Canada 11.2 Q 12 NA
## 35 2 Johannes van Kampen Netherlands 11.2 Q 12 NA
## 36 1 Jackson Scholz United States 10.8 Q 13 NA
## 37 2 Paul Hammer Luxembourg 11.3 Q 13 NA
## 38 3 Terence Pitt India 11.3 13 NA
## 39 4 Knut Russell Sweden 11.3 13 NA
## 40 5 Reinhold Kesküll Estonia 11.5 13 NA
## 41 1 Harold Abrahams Great Britain 11.0 Q 14 NA
## 42 2 Slip Carr Australia 11.0 Q 14 NA
## 43 1 André Mourlon France 11.0 Q 15 NA
## 44 2 Enrico Torre Italy 11.2 Q 15 NA
## 45 1 Félix Mendizábal Spain 11.4 Q 16 NA
## 46 2 Anthony Vince Canada 11.4 Q 16 NA
## 47 3 Vittorio Zucca Italy 11.5 16 NA
## 48 4 Stanisław Sośnicki Poland 11.6 16 NA
## 49 1 Ferenc Gerő Hungary 11.0 Q 17 NA
## 50 2 René Mourlon France 11.0 Q 17 NA
## 51 3 Väinö Eskola Finland 11.1 17 NA
## 52 1 Loren Murchison United States 10.8 Q Quarter Final NA
## 53 2 Giovanni Frangipane Italy 11.0 Q Quarter Final NA
## 54 3 Henricus Broos Netherlands 11.1 Quarter Final NA
## 55 4 Paul Hammer Luxembourg 11.1 Quarter Final NA
## 56 5 Reijo Halme Finland 11.1 Quarter Final NA
## 57 1 Chester Bowman United States 10.8 Q Quarter Final NA
## 58 2 Arthur Porritt New Zealand 10.9 Q Quarter Final NA
## 59 3 Walter Rangeley Great Britain 11.0 Quarter Final NA
## 60 4 René Mourlon France 11.0 Quarter Final NA
## 61 5 Lajos Kurunczy Hungary 11.0 Quarter Final NA
## 62 1 Cyril Coaffee Canada 10.8 Q Quarter Final NA
## 63 2 Wilfred Nichol Great Britain 11.0 Q Quarter Final NA
## 64 3 André Mourlon France 11.1 Quarter Final NA
## 65 1 Harold Abrahams Great Britain 10.6 Q =OR Quarter Final NA
## 66 2 George Hester Canada 10.7 Q Quarter Final NA
## 67 1 Charles Paddock United States 10.8 Q Quarter Final NA
## 68 2 Maurice Degrelle France 11.0 Q Quarter Final NA
## 69 1 Jackson Scholz United States 10.8 Q Quarter Final NA
## 70 2 Slip Carr Australia 10.9 Q Quarter Final NA
## 71 1 Jackson Scholz United States 10.8 Q Semi Final NA
## 72 2 Arthur Porritt New Zealand 11.1 Q Semi Final NA
## 73 3 Loren Murchison United States 11.2 Q Semi Final NA
## 74 4 Wilfred Nichol Great Britain 11.3 Semi Final NA
## 75 5 Maurice Degrelle France 11.4 Semi Final NA
## 76 6 George Hester Canada 11.5 Semi Final NA
## 77 1 Harold Abrahams Great Britain 10.6 Q =OR Semi Final NA
## 78 2 Charles Paddock United States 10.7 Q Semi Final NA
## 79 3 Chester Bowman United States 10.7 Q Semi Final NA
## 80 4 Slip Carr Australia 10.7 Semi Final NA
## 81 5 Cyril Coaffee Canada 10.8 Semi Final NA
## 82 6 Giovanni Frangipane Italy 11.2 Semi Final NA
## 83 Gold Harold Abrahams Great Britain 10.6 =OR Final 4
## 84 Silver Jackson Scholz United States 10.7 Final 3
## 85 Bronze Arthur Porritt New Zealand 10.8 Final 6
## 86 4 Chester Bowman United States 10.9 Final 5
## 87 5 Charles Paddock United States 10.9 Final 1
## 88 6 Loren Murchison United States 11.0 Final 2
## Year Host City Host Country
## 1 1924 Paris France
## 2 1924 Paris France
## 3 1924 Paris France
## 4 1924 Paris France
## 5 1924 Paris France
## 6 1924 Paris France
## 7 1924 Paris France
## 8 1924 Paris France
## 9 1924 Paris France
## 10 1924 Paris France
## 11 1924 Paris France
## 12 1924 Paris France
## 13 1924 Paris France
## 14 1924 Paris France
## 15 1924 Paris France
## 16 1924 Paris France
## 17 1924 Paris France
## 18 1924 Paris France
## 19 1924 Paris France
## 20 1924 Paris France
## 21 1924 Paris France
## 22 1924 Paris France
## 23 1924 Paris France
## 24 1924 Paris France
## 25 1924 Paris France
## 26 1924 Paris France
## 27 1924 Paris France
## 28 1924 Paris France
## 29 1924 Paris France
## 30 1924 Paris France
## 31 1924 Paris France
## 32 1924 Paris France
## 33 1924 Paris France
## 34 1924 Paris France
## 35 1924 Paris France
## 36 1924 Paris France
## 37 1924 Paris France
## 38 1924 Paris France
## 39 1924 Paris France
## 40 1924 Paris France
## 41 1924 Paris France
## 42 1924 Paris France
## 43 1924 Paris France
## 44 1924 Paris France
## 45 1924 Paris France
## 46 1924 Paris France
## 47 1924 Paris France
## 48 1924 Paris France
## 49 1924 Paris France
## 50 1924 Paris France
## 51 1924 Paris France
## 52 1924 Paris France
## 53 1924 Paris France
## 54 1924 Paris France
## 55 1924 Paris France
## 56 1924 Paris France
## 57 1924 Paris France
## 58 1924 Paris France
## 59 1924 Paris France
## 60 1924 Paris France
## 61 1924 Paris France
## 62 1924 Paris France
## 63 1924 Paris France
## 64 1924 Paris France
## 65 1924 Paris France
## 66 1924 Paris France
## 67 1924 Paris France
## 68 1924 Paris France
## 69 1924 Paris France
## 70 1924 Paris France
## 71 1924 Paris France
## 72 1924 Paris France
## 73 1924 Paris France
## 74 1924 Paris France
## 75 1924 Paris France
## 76 1924 Paris France
## 77 1924 Paris France
## 78 1924 Paris France
## 79 1924 Paris France
## 80 1924 Paris France
## 81 1924 Paris France
## 82 1924 Paris France
## 83 1924 Paris France
## 84 1924 Paris France
## 85 1924 Paris France
## 86 1924 Paris France
## 87 1924 Paris France
## 88 1924 Paris France
Antwerp 1920
ant_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")
ant_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")
ant_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_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 = "Quarter 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 = "Semi Final")
ant_men_100m_20 <- ant_men_100m_20 %>% 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_20)
ant_men_100m_all <- ant_men_100m_all %>%
filter(!is.na(Time))%>%
add_column("Year"=1920,"Host City" ="Antwerp", "Host Country"="Belgium")
ant_men_100m_all[60,1]<- "Gold"
ant_men_100m_all[61,1]<- "Silver"
ant_men_100m_all[62,1]<- "Bronze"
ant_men_100m_all
## Rank Athlete Nation Time Notes Heat Lane Year
## 1 1 William Hill Great Britain 11.0 Q 1 NA 1920
## 2 2 Mario Riccoboni Italy 11.2 Q 1 NA 1920
## 3 3 Marcel Gustin Belgium 11.3 1 NA 1920
## 4 1 René Mourlon France 11.2 Q 2 NA 1920
## 5 2 August Sørensen Denmark 11.3 Q 2 NA 1920
## 6 1 Loren Murchison United States 10.8 Q 3 NA 1920
## 7 2 Jacobus Bukes South Africa 11.0 Q 3 NA 1920
## 8 3 Albert Heijnneman Netherlands 11.0 3 NA 1920
## 9 1 William Hunt Australia 11.0 Q 4 NA 1920
## 10 2 Félix Mendizábal Spain 11.2 Q 4 NA 1920
## 11 1 Vittorio Zucca Italy 11.4 Q 5 NA 1920
## 12 2 Cor Wezepoel Netherlands 11.5 Q 5 NA 1920
## 13 1 Morris Kirksey United States 11.0 Q 6 NA 1920
## 14 2 Josef Imbach Switzerland 11.0 Q 6 NA 1920
## 15 3 René Lorain France 11.1 6 NA 1920
## 16 4 Johan Johnsen Norway 11.2 6 NA 1920
## 17 1 Paul Brochart Belgium 11.4 Q 7 NA 1920
## 18 2 René Tirard France 11.7 Q 7 NA 1920
## 19 1 Charley Paddock United States 10.8 Q 8 NA 1920
## 20 2 Harry Edward Great Britain 10.9 Q 8 NA 1920
## 21 3 Carlos Botín Spain 11.6 8 NA 1920
## 22 4 Shinichi Yamaoka Japan 11.6 8 NA 1920
## 23 5 Edmond Médécin Monaco 11.8 8 NA 1920
## 24 1 Émile Ali-Khan France 11.0 Q 9 NA 1920
## 25 2 Victor d'Arcy Great Britain 11.1 Q 9 NA 1920
## 26 1 Harold Abrahams Great Britain 11.0 Q 10 NA 1920
## 27 2 Alexander Ponton Canada 11.1 Q 10 NA 1920
## 28 3 Giorgio Croci Italy 11.3 10 NA 1920
## 29 1 Jack Oosterlaak South Africa 11.0 Q 11 NA 1920
## 30 2 George Davidson New Zealand 11.1 Q 11 NA 1920
## 31 1 Jackson Scholz United States 10.8 Q 12 NA 1920
## 32 2 Marinus Sørensen Denmark 11.2 Q 12 NA 1920
## 33 1 Harry Edward Great Britain 10.8 Q Quarter Final NA 1920
## 34 2 Loren Murchison United States 10.9 Q Quarter Final NA 1920
## 35 3 René Mourlon France 11.0 Quarter Final NA 1920
## 36 4 William Hunt Australia 11.0 Quarter Final NA 1920
## 37 5 Mario Riccobono Italy 11.5 Quarter Final NA 1920
## 38 1 William Hill Great Britain 11.0 Q Quarter Final NA 1920
## 39 2 Félix Mendizábal Spain 11.1 Q Quarter Final NA 1920
## 40 1 Charley Paddock United States 10.8 Q Quarter Final NA 1920
## 41 2 Émile Ali-Khan France 10.9 Q Quarter Final NA 1920
## 42 3 George Davidson New Zealand 10.9 Quarter Final NA 1920
## 43 4 Harold Abrahams Great Britain 11.0 Quarter Final NA 1920
## 44 1 Jackson Scholz United States 10.8 Q Quarter Final NA 1920
## 45 2 Jack Oosterlaak South Africa 11.0 Q Quarter Final NA 1920
## 46 3 Josef Imbach Switzerland 11.1 Quarter Final NA 1920
## 47 4 René Tirard France 11.2 Quarter Final NA 1920
## 48 5 Alexander Ponton Canada 11.4 Quarter Final NA 1920
## 49 1 Morris Kirksey United States 10.8 Q Quarter Final NA 1920
## 50 2 Paul Brochart Belgium 10.9 Q Quarter Final NA 1920
## 51 1 Harry Edward Great Britain 10.8 Q Semi Final NA 1920
## 52 2 Jackson Scholz United States 10.9 Q Semi Final NA 1920
## 53 3 Morris Kirksey United States 11.0 Q Semi Final NA 1920
## 54 4 Jack Oosterlaak South Africa 11.0 Semi Final NA 1920
## 55 1 Charley Paddock United States 11.0 Q Semi Final NA 1920
## 56 2 Émile Ali-Khan France 11.1 Q Semi Final NA 1920
## 57 3 Loren Murchison United States 11.2 Q Semi Final NA 1920
## 58 4 Paul Brochart Belgium 11.3 Semi Final NA 1920
## 59 5 William Hill Great Britain 11.3 Semi Final NA 1920
## 60 Gold Charley Paddock United States 10.8 <NA> Final 3 1920
## 61 Silver Morris Kirksey United States 10.9 <NA> Final 1 1920
## 62 Bronze Harry Edward Great Britain 10.9 <NA> Final 6 1920
## 63 4 Jackson Scholz United States 10.9 <NA> Final 5 1920
## 64 5 Émile Ali-Khan France 11.2 <NA> Final 4 1920
## 65 6 Loren Murchison United States 11.2 <NA> Final 2 1920
## Host City Host Country
## 1 Antwerp Belgium
## 2 Antwerp Belgium
## 3 Antwerp Belgium
## 4 Antwerp Belgium
## 5 Antwerp Belgium
## 6 Antwerp Belgium
## 7 Antwerp Belgium
## 8 Antwerp Belgium
## 9 Antwerp Belgium
## 10 Antwerp Belgium
## 11 Antwerp Belgium
## 12 Antwerp Belgium
## 13 Antwerp Belgium
## 14 Antwerp Belgium
## 15 Antwerp Belgium
## 16 Antwerp Belgium
## 17 Antwerp Belgium
## 18 Antwerp Belgium
## 19 Antwerp Belgium
## 20 Antwerp Belgium
## 21 Antwerp Belgium
## 22 Antwerp Belgium
## 23 Antwerp Belgium
## 24 Antwerp Belgium
## 25 Antwerp Belgium
## 26 Antwerp Belgium
## 27 Antwerp Belgium
## 28 Antwerp Belgium
## 29 Antwerp Belgium
## 30 Antwerp Belgium
## 31 Antwerp Belgium
## 32 Antwerp Belgium
## 33 Antwerp Belgium
## 34 Antwerp Belgium
## 35 Antwerp Belgium
## 36 Antwerp Belgium
## 37 Antwerp Belgium
## 38 Antwerp Belgium
## 39 Antwerp Belgium
## 40 Antwerp Belgium
## 41 Antwerp Belgium
## 42 Antwerp Belgium
## 43 Antwerp Belgium
## 44 Antwerp Belgium
## 45 Antwerp Belgium
## 46 Antwerp Belgium
## 47 Antwerp Belgium
## 48 Antwerp Belgium
## 49 Antwerp Belgium
## 50 Antwerp Belgium
## 51 Antwerp Belgium
## 52 Antwerp Belgium
## 53 Antwerp Belgium
## 54 Antwerp Belgium
## 55 Antwerp Belgium
## 56 Antwerp Belgium
## 57 Antwerp Belgium
## 58 Antwerp Belgium
## 59 Antwerp Belgium
## 60 Antwerp Belgium
## 61 Antwerp Belgium
## 62 Antwerp Belgium
## 63 Antwerp Belgium
## 64 Antwerp Belgium
## 65 Antwerp Belgium
Combining All Mens 100m Data (All Heats)
mens_100m_all <- bind_rows(
rio_men_100m_all,
bei_men_100m_all,
lon12_men_100m_all,
ath_men_100m_all,
syd_men_100m_all,
atl_men_100m_all,
bar_men_100m_all,
seo_men_100m_all,
los_men_100m_all,
mos_men_100m_all,
mon_men_100m_all,
mun_men_100m_all,
mex_men_100m_all,
tok_men_100m_all,
rom_men_100m_all,
mel_men_100m_all,
hel_men_100m_all,
lon48_men_100m_all,
ber_men_100m_all,
los32_men_100m_all,
ams_men_100m_all,
par_men_100m_all,
ant_men_100m_all)
mens_100m_all <- mens_100m_all %>%
relocate("Year", "Host City", "Rank", "Time")
head(mens_100m_all)
## Year Host City Rank Time Lane Athlete Nation Reaction
## 1 2016 Rio de Janeiro 1 10.13 3 Kemarley Brown Bahrain 0.146
## 2 2016 Rio de Janeiro 2 10.13 5 Chijindu Ujah Great Britain 0.150
## 3 2016 Rio de Janeiro 3 10.16 7 Marvin Bracy United States 0.155
## 4 2016 Rio de Janeiro 4 10.26 2 Seye Ogunlewe Nigeria 0.139
## 5 2016 Rio de Janeiro 5 10.28 1 Femi Ogunode Qatar 0.170
## 6 2016 Rio de Janeiro 6 10.43 8 Sean Safo-Antwi Ghana 0.145
## Notes Heat Host Country Var.8 Var.7 Time..a. Time..hand.
## 1 Q 1 Brazil <NA> <NA> NA NA
## 2 Q 1 Brazil <NA> <NA> NA NA
## 3 q 1 Brazil <NA> <NA> NA NA
## 4 1 Brazil <NA> <NA> NA NA
## 5 1 Brazil <NA> <NA> NA NA
## 6 1 Brazil <NA> <NA> NA NA
Atlanta (96), Helsinki (52) and Antwerp (20)
ggplot(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)
ggplot()+
geom_boxplot(data = atl_men_100m_all, aes(Time, Year))+
geom_boxplot(data = rio_men_100m_all, aes(Time, Year))+
geom_boxplot(data = bei_men_100m_all, aes(Time, Year))+
geom_boxplot(data = lon12_men_100m_all, aes(Time, Year))+
geom_boxplot(data = ath_men_100m_all, aes(Time, Year))+
geom_boxplot(data = syd_men_100m_all, aes(Time, Year))+
geom_boxplot(data = atl_men_100m_all, aes(Time, Year))+
geom_boxplot(data = bar_men_100m_all, aes(Time, Year))+
geom_boxplot(data = seo_men_100m_all, aes(Time, Year))+
geom_boxplot(data = los_men_100m_all, aes(Time, Year))+
geom_boxplot(data = mos_men_100m_all, aes(Time, Year))+
geom_boxplot(data = mon_men_100m_all, aes(Time, Year))+
geom_boxplot(data = mun_men_100m_all, aes(Time, Year))+
geom_boxplot(data = mex_men_100m_all, aes(Time, Year))+
geom_boxplot(data = tok_men_100m_all, aes(Time, Year))+
geom_boxplot(data = rom_men_100m_all, aes(Time, Year))+
geom_boxplot(data = mel_men_100m_all, aes(Time, Year))+
geom_boxplot(data = hel_men_100m_all, aes(Time, Year))+
geom_boxplot(data = lon48_men_100m_all, aes(Time, Year))+
geom_boxplot(data = ber_men_100m_all, aes(Time, Year))+
geom_boxplot(data = los32_men_100m_all, aes(Time, Year))+
geom_boxplot(data = ams_men_100m_all, aes(Time, Year))+
geom_boxplot(data = par_men_100m_all, aes(Time, Year))+
geom_boxplot(data = ant_men_100m_all, aes(Time, Year))+
coord_flip()+
theme_minimal()+
scale_x_continuous(limits = c(9.5,12.5))
str(mens_100m_all)
## 'data.frame': 2655 obs. of 15 variables:
## $ Year : num 2016 2016 2016 2016 2016 ...
## $ Host City : chr "Rio de Janeiro" "Rio de Janeiro" "Rio de Janeiro" "Rio de Janeiro" ...
## $ Rank : chr "1" "2" "3" "4" ...
## $ Time : num 10.1 10.1 10.2 10.3 10.3 ...
## $ Lane : int 3 5 7 2 1 8 9 6 4 8 ...
## $ Athlete : chr "Kemarley Brown" "Chijindu Ujah" "Marvin Bracy" "Seye Ogunlewe" ...
## $ Nation : chr "Bahrain" "Great Britain" "United States" "Nigeria" ...
## $ Reaction : chr "0.146" "0.150" "0.155" "0.139" ...
## $ Notes : chr "Q" "Q" "q" "" ...
## $ Heat : chr "1" "1" "1" "1" ...
## $ Host Country: chr "Brazil" "Brazil" "Brazil" "Brazil" ...
## $ Var.8 : chr NA NA NA NA ...
## $ Var.7 : chr NA NA NA NA ...
## $ Time..a. : num NA NA NA NA NA NA NA NA NA NA ...
## $ Time..hand. : num NA NA NA NA NA NA NA NA NA NA ...
levels(as.factor(mens_100m_all$`Host City`))
## [1] "Amsterdam" "Antwerp" "Athens" "Atlanta"
## [5] "Barcelona" "Beijing" "Berlin" "Helsinki"
## [9] "London" "Los Angeles" "Melbourne" "Mexico City"
## [13] "Montreal" "Moscow" "Munich" "Paris"
## [17] "Rio de Janeiro" "Rome" "Seoul" "Sydney"
## [21] "Tokyo"
levels(as.factor(mens_100m_all$Nation))
## [1] "Afghanistan" "Albania"
## [3] "Algeria" "American Samoa"
## [5] "Angola" "Antigua and Barbuda"
## [7] "Argentina" "Aruba"
## [9] "Australia" "Austria"
## [11] "Azerbaijan" "Bahamas"
## [13] "Bahrain" "Bangladesh"
## [15] "Barbados" "Belgium"
## [17] "Belize" "Benin"
## [19] "Bermuda" "Bolivia"
## [21] "Botswana" "Brazil"
## [23] "British Virgin Islands" "British West Indies"
## [25] "Brunei" "Bulgaria"
## [27] "Burkina Faso" "Burma"
## [29] "Cambodia" "Cameroon"
## [31] "Canada" "Cayman Islands"
## [33] "Central African Republic" "Ceylon"
## [35] "Chad" "Chile"
## [37] "China" "Chinese Taipei"
## [39] "Colombia" "Comoros"
## [41] "Cook Islands" "Costa Rica"
## [43] "Croatia" "Cuba"
## [45] "Cyprus" "Czech Republic"
## [47] "Czechoslovakia" "Denmark"
## [49] "Dominican Republic" "East Germany"
## [51] "Ecuador" "Egypt"
## [53] "El Salvador" "Equatorial Guinea"
## [55] "Estonia" "Ethiopia"
## [57] "Federated States of Micronesia" "Fiji"
## [59] "Finland" "Formosa"
## [61] "France" "Gabon"
## [63] "Georgia" "Germany"
## [65] "Ghana" "Great Britain"
## [67] "Greece" "Grenada"
## [69] "Guam" "Guatemala"
## [71] "Guinea" "Guinea-Bissau"
## [73] "Guyana" "Haiti"
## [75] "Honduras" "Hong Kong"
## [77] "Hungary" "Iceland"
## [79] "India" "Indonesia"
## [81] "Iran" "Iraq"
## [83] "Ireland" "Israel"
## [85] "Italy" "Ivory Coast"
## [87] "Jamaica" "Japan"
## [89] "Jordan" "Kazakhstan"
## [91] "Kenya" "Khmer Republic"
## [93] "Kiribati" "Kuwait"
## [95] "Kyrgyzstan" "Laos"
## [97] "Latvia" "Lebanon"
## [99] "Lesotho" "Liberia"
## [101] "Libya" "Liechtenstein"
## [103] "Lithuania" "Luxembourg"
## [105] "Macedonia" "Madagascar"
## [107] "Malawi" "Malaya"
## [109] "Malaysia" "Maldives"
## [111] "Mali" "Malta"
## [113] "Marshall Islands" "Mauritania"
## [115] "Mauritius" "Mexico"
## [117] "Monaco" "Mongolia"
## [119] "Morocco" "Mozambique"
## [121] "Namibia" "Nepal"
## [123] "Netherlands" "Netherlands Antilles"
## [125] "New Zealand" "Nicaragua"
## [127] "Niger" "Nigeria"
## [129] "Northern Rhodesia" "Norway"
## [131] "Oman" "Pakistan"
## [133] "Palau" "Palestine"
## [135] "Panama" "Papua New Guinea"
## [137] "Paraguay" "Peru"
## [139] "Philippines" "Poland"
## [141] "Portugal" "Puerto Rico"
## [143] "Qatar" "Republic of China"
## [145] "Republic of the Congo" "Rhodesia"
## [147] "Romania" "Russia"
## [149] "Saint Kitts and Nevis" "Saint Lucia"
## [151] "Saint Vincent and the Grenadines" "San Marino"
## [153] "São Tomé and Príncipe" "Saudi Arabia"
## [155] "Senegal" "Seychelles"
## [157] "Sierra Leone" "Singapore"
## [159] "Slovenia" "Solomon Islands"
## [161] "South Africa" "South Korea"
## [163] "South Yemen" "Soviet Union"
## [165] "Spain" "Sri Lanka"
## [167] "Sudan" "Suriname"
## [169] "Swaziland" "Sweden"
## [171] "Switzerland" "Syria"
## [173] "Taiwan" "Tanzania"
## [175] "Thailand" "The Gambia"
## [177] "Togo" "Tonga"
## [179] "Trinidad and Tobago" "Turkey"
## [181] "Tuvalu" "Uganda"
## [183] "Ukraine" "Unified Team"
## [185] "United Arab Emirates" "United States"
## [187] "United Team of Germany" "Upper Volta"
## [189] "Uruguay" "Uzbekistan"
## [191] "Vanuatu" "Venezuela"
## [193] "Vietnam" "Virgin Islands"
## [195] "West Germany" "Yugoslavia"
## [197] "Zambia" "Zimbabwe"
mens_100m_all %>%
group_by(Year) %>%
summarize(mean(Time), median(Time), min(Time), max(Time))%>%
arrange(desc(Year))
## # A tibble: 23 × 5
## Year `mean(Time)` `median(Time)` `min(Time)` `max(Time)`
## <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2016 10.2 10.2 9.81 11.9
## 2 2012 10.2 10.2 9.63 12.0
## 3 2008 10.4 10.3 9.69 12.6
## 4 2004 10.4 10.3 9.85 11.7
## 5 2000 10.5 10.4 9.87 16.4
## 6 1996 10.5 10.4 9.84 22.7
## 7 1992 10.6 10.6 9.96 12.0
## 8 1988 10.6 10.5 9.79 12.3
## 9 1984 10.6 10.6 9.99 11.6
## 10 1980 10.6 10.5 10.1 13.7
## # … with 13 more rows
mens_100m_mmmm <- mens_100m_all %>%
select(Year, `Host City`, Time) %>%
group_by(Year)%>%
mutate(mTime = mean(Time), mnTime = median(Time), minTime = min(Time), maxTime = max(Time))
mens_100m_mmmm
## # A tibble: 2,655 × 7
## # Groups: Year [23]
## Year `Host City` Time mTime mnTime minTime maxTime
## <dbl> <chr> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 2016 Rio de Janeiro 10.1 10.2 10.2 9.81 11.9
## 2 2016 Rio de Janeiro 10.1 10.2 10.2 9.81 11.9
## 3 2016 Rio de Janeiro 10.2 10.2 10.2 9.81 11.9
## 4 2016 Rio de Janeiro 10.3 10.2 10.2 9.81 11.9
## 5 2016 Rio de Janeiro 10.3 10.2 10.2 9.81 11.9
## 6 2016 Rio de Janeiro 10.4 10.2 10.2 9.81 11.9
## 7 2016 Rio de Janeiro 10.5 10.2 10.2 9.81 11.9
## 8 2016 Rio de Janeiro 10.5 10.2 10.2 9.81 11.9
## 9 2016 Rio de Janeiro 11.0 10.2 10.2 9.81 11.9
## 10 2016 Rio de Janeiro 10.0 10.2 10.2 9.81 11.9
## # … with 2,645 more rows
Will continue to work on labeling and refining. This is just the beginning of graphing the average and minimum times over the years.
ggplot()+
geom_point(data = mens_100m_mmmm,
aes(Year, mTime), color = "purple")+
geom_point(data = mens_100m_mmmm,
aes(Year, mnTime), color = "green")+
geom_point(data = mens_100m_mmmm,
aes(Year, minTime), color = "blue")+
geom_smooth(data = mens_100m_mmmm,
aes(Year, mTime), color = "purple")+
geom_smooth(data = mens_100m_mmmm,
aes(Year, mnTime), color = "green")+
geom_smooth(data = mens_100m_mmmm,
aes(Year, minTime), color = "blue")+
theme(panel.background = element_blank())+
labs(title = "Minimum, Mean & Median Times Over 100 Years",
subtitle = "Mens 100m Dash")+
scale_y_continuous("Minimum & Average Times")
mens_100m_gsb <- mens_100m_all %>%
filter(Rank %in% c("Gold", "Silver", "Bronze"))%>%
group_by(Year)
mens_100m_gsb
## # A tibble: 69 × 15
## # Groups: Year [23]
## Year `Host City` Rank Time Lane Athlete Nation Reaction Notes Heat
## <dbl> <chr> <chr> <dbl> <int> <chr> <chr> <chr> <chr> <chr>
## 1 2016 Rio de Janeiro Gold 9.81 6 usain b… Jamaica 0.155 "SB" Final
## 2 2016 Rio de Janeiro Silver 9.89 4 Justin … United… 0.152 "" Final
## 3 2016 Rio de Janeiro Bronze 9.81 7 Andre D… Canada 0.141 "PB" Final
## 4 2008 Beijing Gold 9.69 4 Usain B… Jamaica 0.165 "WR" Final
## 5 2008 Beijing Silver 9.89 5 Richard… Trinid… 0.133 "PB" Final
## 6 2008 Beijing Bronze 9.91 6 Walter … United… 0.133 "PB" Final
## 7 2012 London Gold 9.63 7 Usain B… Jamaica 0.165 "OR" Final
## 8 2012 London Silver 9.75 5 Yohan B… Jamaica 0.179 "=PB" Final
## 9 2012 London Bronze 9.79 6 Justin … United… 0.178 "PB" Final
## 10 2004 Athens Gold 9.85 3 Justin … United… 0.188 "PB" Final
## # … with 59 more rows, and 5 more variables: Host Country <chr>, Var.8 <chr>,
## # Var.7 <chr>, Time..a. <dbl>, Time..hand. <dbl>
ggplot(mens_100m_gsb, aes(Year, Time, color = Rank))+
geom_point()+
labs(title = "Gold, Silver & Bronze Medals Over 100 Years",
subtitle = "Mens 100m Dash")+
geom_smooth(se=F)
