library(rvest)
## Loading required package: xml2
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ──
## ✓ ggplot2 3.3.2 ✓ purrr 0.3.4
## ✓ tibble 3.0.3 ✓ stringr 1.4.0
## ✓ tidyr 1.1.2 ✓ forcats 0.5.0
## ✓ readr 2.0.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x readr::guess_encoding() masks rvest::guess_encoding()
## x dplyr::lag() masks stats::lag()
## x purrr::pluck() masks rvest::pluck()
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")
## Warning: The `.data` argument of `add_column()` must have unique names as of tibble 3.0.0.
## Use `.name_repair = "minimal"`.
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)
## Year Host City Host Country Event Gold
## 1 1996 Atlanta USA 100 metresdetails Donovan Bailey Canada
## 2 1996 Atlanta USA 200 metresdetails Michael Johnson United States
## 3 1996 Atlanta USA 400 metresdetails Michael Johnson United States
## 4 1996 Atlanta USA 800 metresdetails Vebjørn Rodal Norway
## 5 1996 Atlanta USA 1500 metresdetails Noureddine Morceli Algeria
## 6 1996 Atlanta USA 5000 metresdetails Vénuste Niyongabo Burundi
## Gold.1 Silver Silver.1
## 1 9.84(WR) Frankie Fredericks Namibia 9.89
## 2 19.32(WR) Frankie Fredericks Namibia 19.68 (AR)
## 3 43.49(OR) Roger Black Great Britain 44.41
## 4 1:42.58(OR) Hezekiél Sepeng South Africa 1:42.74
## 5 3:35.78 Fermín Cacho Spain 3:36.40
## 6 13:07.96 Paul Bitok Kenya 13:08.16
## Bronze Bronze.1
## 1 Ato Boldon Trinidad and Tobago 9.90
## 2 Ato Boldon Trinidad and Tobago 19.80
## 3 Davis Kamoga Uganda 44.53
## 4 Fred Onyancha Kenya 1:42.79
## 5 Stephen Kipkorir Kenya 3:36.72
## 6 Khalid Boulami Morocco 13:08.37
head(atl_women_yr)
## Year Host City Host Country Games Gold
## 1 1996 Atlanta USA 100 metresdetails Gail Devers United States
## 2 1996 Atlanta USA 200 metresdetails Marie-José Pérec France
## 3 1996 Atlanta USA 400 metresdetails Marie-José Pérec France
## 4 1996 Atlanta USA 800 metresdetails Svetlana Masterkova Russia
## 5 1996 Atlanta USA 1500 metresdetails Svetlana Masterkova Russia
## 6 1996 Atlanta USA 5000 metresdetails Wang Junxia China
## Gold.1 Silver Silver.1
## 1 10.94 Merlene Ottey Jamaica 10.94
## 2 22.12 Merlene Ottey Jamaica 22.24
## 3 48.25(OR) Cathy Freeman Australia 48.63
## 4 1:57.73 Ana Fidelia Quirot Cuba 1:58.11
## 5 4:00.83 Gabriela Szabo Romania 4:01.54
## 6 14:59.88(OR) Pauline Konga Kenya 15:03.49
## Bronze Bronze.1
## 1 Gwen Torrence United States 10.96
## 2 Mary Onyali Nigeria 22.38
## 3 Falilat Ogunkoya Nigeria 49.10
## 4 Maria de Lurdes Mutola Mozambique 1:58.71
## 5 Theresia Kiesl Austria 4:03.02(NR)
## 6 Roberta Brunet Italy 15:07.52
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)
## Year Host City Host Country Games
## 1 2000 Atlanta USA 100 metresdetails
## 2 2000 Atlanta USA 100 metresdetails
## 3 2000 Atlanta USA 200 metresdetails
## 4 2000 Atlanta USA 400 metresdetails
## 5 2000 Atlanta USA 800 metresdetails
## 6 2000 Atlanta USA 1500 metresdetails
## Gold Gold.1
## 1 Not awarded[2] Not awarded[2]
## 2 Not awarded[2] Not awarded[2]
## 3 Pauline Davis-Thompson Bahamas 22.27
## 4 Cathy Freeman Australia 49.11
## 5 Maria de Lurdes Mutola Mozambique 1:56.15
## 6 Nouria Mérah-Benida Algeria 4:05.10
## Silver Silver.1 Bronze
## 1 Ekaterini Thanou Greece 11.12 Merlene Ottey Jamaica
## 2 Tayna Lawrence Jamaica 11.18 Merlene Ottey Jamaica
## 3 Susanthika Jayasinghe Sri Lanka 22.28(NR) Beverly McDonald Jamaica
## 4 Lorraine Graham Jamaica 49.58 Katharine Merry Great Britain
## 5 Stephanie Graf Austria 1:56.64 Kelly Holmes Great Britain
## 6 Violeta Beclea Romania 4:05.15 Gabriela Szabo Romania
## Bronze.1
## 1 11.19
## 2 11.19
## 3 22.35
## 4 49.72
## 5 1:56.80
## 6 4:05.27
head(syd_men_yr)
## Year Host City Host Country Games Gold
## 1 2000 Sydney Australia 100 metresdetails Maurice Greene United States
## 2 2000 Sydney Australia 200 metresdetails Konstantinos Kenteris Greece
## 3 2000 Sydney Australia 400 metresdetails Michael Johnson United States
## 4 2000 Sydney Australia 800 metresdetails Nils Schumann Germany
## 5 2000 Sydney Australia 1500 metresdetails Noah Ngeny Kenya
## 6 2000 Sydney Australia 5000 metresdetails Million Wolde Ethiopia
## Gold.1 Silver Silver.1
## 1 9.87 Ato Boldon Trinidad and Tobago 9.99
## 2 20.09 Darren Campbell Great Britain 20.14
## 3 43.84 Alvin Harrison United States 44.40
## 4 1:45.08 Wilson Kipketer Denmark 1:45.14
## 5 3:32.07(OR) Hicham El Guerrouj Morocco 3:32:32
## 6 13:35.49 Ali Saïdi-Sief Algeria 13:36.20
## Bronze Bronze.1
## 1 Obadele Thompson Barbados 10.04
## 2 Ato Boldon Trinidad and Tobago 20.20
## 3 Greg Haughton Jamaica 44.70
## 4 Djabir Saïd-Guerni Algeria 1:45.16
## 5 Bernard Lagat Kenya 3:32.44
## 6 Brahim Lahlafi Morocco 13:36.47
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)
## Event Gold Gold.1
## 1 100 metres details Yulia Nesterenko Belarus 10.93
## 2 200 metres details Veronica Campbell Jamaica 22.05
## 3 400 metres details Tonique Williams-Darling Bahamas 49.41
## 4 800 metres details Kelly Holmes Great Britain 1:56.38
## 5 1500 metres details Kelly Holmes Great Britain 3:57.90
## 6 5000 metres details Meseret Defar Ethiopia 14:45.65
## Silver Silver.1 Bronze
## 1 Lauryn Williams United States 10.96 Veronica Campbell Jamaica
## 2 Allyson Felix United States 22.18 Debbie Ferguson-McKenzie Bahamas
## 3 Ana Guevara Mexico 49.56 Natalya Antyukh Russia
## 4 Hasna Benhassi Morocco 1:56.43 Jolanda Čeplak Slovenia
## 5 Tatyana Tomashova Russia 3:58.12 Maria Cioncan Romania
## 6 Isabella Ochichi Kenya 14:48.19 Tirunesh Dibaba Ethiopia
## Bronze.1 Year Host City Host Country
## 1 10.97 2004 Athens Greece
## 2 22.30 2004 Athens Greece
## 3 49.89 2004 Athens Greece
## 4 1:56.43 2004 Athens Greece
## 5 3:58.39 2004 Athens Greece
## 6 14:51.83 2004 Athens Greece
head(ath_men_yr)
## Year Host City Host Country Event Gold
## 1 2004 Athens Greece 100 metresdetails Justin Gatlin United States
## 2 2004 Athens Greece 200 metresdetails Shawn Crawford United States
## 3 2004 Athens Greece 400 metres details Jeremy Wariner United States
## 4 2004 Athens Greece 800 metres details Yuriy Borzakovskiy Russia
## 5 2004 Athens Greece 1500 metres details Hicham El Guerrouj Morocco
## 6 2004 Athens Greece 5000 metres details Hicham El Guerrouj Morocco
## Gold.1 Silver Silver.1
## 1 9.85 Francis Obikwelu Portugal 9.86 (AR)
## 2 19.79 Bernard Williams United States 20.01
## 3 44.00 Otis Harris United States 44.16
## 4 1:44.45 Mbulaeni Mulaudzi South Africa 1:44.61
## 5 3:34.18 Bernard Lagat Kenya 3:34.30
## 6 13:14.39 Kenenisa Bekele Ethiopia 13:14.59
## Bronze Bronze.1
## 1 Maurice Greene United States 9.87
## 2 Justin Gatlin United States 20.03
## 3 Derrick Brew United States 44.42
## 4 Wilson Kipketer Denmark 1:44.65
## 5 Rui Silva Portugal 3:34.68
## 6 Eliud Kipchoge Kenya 13:15.10
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)
## Year Host City Host Country Event
## 1 2008 Beijing China 100 metres details
## 2 2008 Beijing China 200 metres details
## 3 2008 Beijing China 400 metres details
## 4 2008 Beijing China 800 metres details
## 5 2008 Beijing China 1500 metres details
## 6 2008 Beijing China 5000 metres details [g]
## Gold Gold.1
## 1 Shelly-Ann Fraser Jamaica 10.78
## 2 Veronica Campbell-Brown Jamaica 21.74
## 3 Christine Ohuruogu Great Britain 49.62
## 4 Pamela Jelimo Kenya 1:54.87
## 5 Nancy Jebet Lagat Kenya 4:00.23
## 6 Tirunesh Dibaba Ethiopia 15:41.40
## Silver Silver.1
## 1 Sherone Simpson Jamaica Kerron Stewart Jamaica 10.98
## 2 Allyson Felix United States 21.93
## 3 Shericka Williams Jamaica 49.69
## 4 Janeth Jepkosgei Busienei Kenya 1:56.07
## 5 Iryna Lishchynska Ukraine 4:01.63
## 6 Meseret Defar Ethiopia 15:44.12
## Bronze
## 1 Not awardedas there was a tie for silver.
## 2 Kerron Stewart Jamaica
## 3 Sanya Richards United States
## 4 Hasna Benhassi Morocco
## 5 Nataliya Tobias Ukraine
## 6 Sylvia Kibet Kenya
## Bronze.1
## 1 Not awardedas there was a tie for silver.
## 2 22.00
## 3 49.93
## 4 1:56.73
## 5 4:01.78
## 6 15:44.96
head(bej_men_yr)
## Year Host City Host Country Games
## 1 2008 Beijing China 100 metresdetails
## 2 2008 Beijing China 200 metresdetails
## 3 2008 Beijing China 400 metresdetails
## 4 2008 Beijing China 800 metresdetails
## 5 2008 Beijing China 1500 metresdetails [a]
## 6 2008 Beijing China 5000 metresdetails
## Gold Gold.1
## 1 Usain Bolt Jamaica 9.69 (WR)
## 2 Usain Bolt Jamaica 19.30 (WR)
## 3 LaShawn Merritt United States 43.75
## 4 Wilfred Bungei Kenya 1:44.65
## 5 Asbel Kipruto Kiprop Kenya 3:33.11
## 6 Kenenisa Bekele Ethiopia 12:57.82(OR)
## Silver Silver.1 Bronze
## 1 Richard Thompson Trinidad and Tobago 9.89 Walter Dix United States
## 2 Shawn Crawford United States 19.96 Walter Dix United States
## 3 Jeremy Wariner United States 44.74 David Neville United States
## 4 Ismail Ahmed Ismail Sudan 1:44.70 Alfred Kirwa Yego Kenya
## 5 Nicholas Willis New Zealand 3:34.16 Mehdi Baala France
## 6 Eliud Kipchoge Kenya 13:02.80 Edwin Cheruiyot Soi Kenya
## Bronze.1
## 1 9.91
## 2 19.98
## 3 44.80
## 4 1:44.82
## 5 3:34.21
## 6 13:06.22
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)
## Year Host City Host Country Event
## 1 2012 London Great Britain 100 metresdetails
## 2 2012 London Great Britain 200 metresdetails
## 3 2012 London Great Britain 400 metresdetails
## 4 2012 London Great Britain 800 metresdetails [e]
## 5 2012 London Great Britain 1500 metresdetails [f]
## 6 2012 London Great Britain 5000 metresdetails
## Gold Gold.1 Silver
## 1 Shelly-Ann Fraser-Pryce Jamaica 10.75 Carmelita Jeter United States
## 2 Allyson Felix United States 21.88 Shelly-Ann Fraser-Pryce Jamaica
## 3 Sanya Richards-Ross United States 49.55 Christine Ohuruogu Great Britain
## 4 Caster Semenya South Africa 1:57.23 Ekaterina Poistogova Russia
## 5 Maryam Yusuf Jamal Bahrain 4:10.74 Tatyana Tomashova Russia
## 6 Meseret Defar Ethiopia 15:04.25 Vivian Cheruiyot Kenya
## Silver.1 Bronze Bronze.1
## 1 10.78 Veronica Campbell-Brown Jamaica 10.81
## 2 22.09 Carmelita Jeter United States 22.14
## 3 49.70 DeeDee Trotter United States 49.72
## 4 1:57.53 Pamela Jelimo Kenya 1:57.59
## 5 4:10.90 Abeba Aregawi Ethiopia 4:11.03
## 6 15:04.73 Tirunesh Dibaba Ethiopia 15:05.15
head(lon_12_men_yr)
## Year Host City Host Country Event Gold
## 1 2012 London Great Britain 100 metresdetails Usain Bolt Jamaica
## 2 2012 London Great Britain 200 metresdetails Usain Bolt Jamaica
## 3 2012 London Great Britain 400 metresdetails Kirani James Grenada
## 4 2012 London Great Britain 800 metresdetails David Rudisha Kenya
## 5 2012 London Great Britain 1500 metresdetails Taoufik Makhloufi Algeria
## 6 2012 London Great Britain 5000 metresdetails Mo Farah Great Britain
## Gold.1 Silver Silver.1
## 1 9.63(OR) Yohan Blake Jamaica 9.75
## 2 19.32 Yohan Blake Jamaica 19.44
## 3 43.94 Luguelín Santos Dominican Republic 44.46
## 4 1:40.91 (WR) Nijel Amos Botswana 1:41.73
## 5 3:34.08 Leonel Manzano United States 3:34.79
## 6 13:41.66 Dejen Gebremeskel Ethiopia 13:41.98
## Bronze Bronze.1
## 1 Justin Gatlin United States 9.79
## 2 Warren Weir Jamaica 19.84
## 3 Lalonde Gordon Trinidad and Tobago 44.52
## 4 Timothy Kitum Kenya 1:42.53
## 5 Abdalaati Iguider Morocco 3:35.13
## 6 Thomas Longosiwa Kenya 13:42.36
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)
## Year Host City Host Country Event
## 1 2016 Rio de Janeiro Brazil 100 metresdetails
## 2 2016 Rio de Janeiro Brazil 200 metresdetails
## 3 2016 Rio de Janeiro Brazil 400 metresdetails
## 4 2016 Rio de Janeiro Brazil 800 metresdetails
## 5 2016 Rio de Janeiro Brazil 1500 metresdetails
## 6 2016 Rio de Janeiro Brazil 5000 metresdetails
## Gold Gold.1 Silver Silver.1
## 1 Elaine Thompson Jamaica 10.71 Tori Bowie United States 10.83
## 2 Elaine Thompson Jamaica 21.78 Dafne Schippers Netherlands 21.88
## 3 Shaunae Miller Bahamas 49.44 Allyson Felix United States 49.51
## 4 Caster Semenya South Africa 1:55.28 NR Francine Niyonsaba Burundi 1:56.49
## 5 Faith Kipyegon Kenya 4:08.92 Genzebe Dibaba Ethiopia 4:10.27
## 6 Vivian Cheruiyot Kenya 14:26.17 OR Hellen Onsando Obiri Kenya 14:29.77
## Bronze Bronze.1
## 1 Shelly-Ann Fraser-Pryce Jamaica 10.86
## 2 Tori Bowie United States 22.15
## 3 Shericka Jackson Jamaica 49.85
## 4 Margaret Wambui Kenya 1:56.89
## 5 Jennifer Simpson United States 4:10.53
## 6 Almaz Ayana Ethiopia 14:33.59
head(rio_men_yr)
## Year Host City Host Country Event
## 1 2016 Rio de Janeiro Brazil 100 metresdetails
## 2 2016 Rio de Janeiro Brazil 200 metresdetails
## 3 2016 Rio de Janeiro Brazil 400 metresdetails
## 4 2016 Rio de Janeiro Brazil 800 metresdetails
## 5 2016 Rio de Janeiro Brazil 1500 metresdetails
## 6 2016 Rio de Janeiro Brazil 5000 metresdetails
## Gold Gold.1 Silver
## 1 Usain Bolt Jamaica 9.81 Justin Gatlin United States
## 2 Usain Bolt Jamaica 19.78 Andre De Grasse Canada
## 3 Wayde van Niekerk South Africa 43.03 WR Kirani James Grenada
## 4 David Rudisha Kenya 1:42.15 Taoufik Makhloufi Algeria
## 5 Matthew Centrowitz Jr. United States 3:50.00 Taoufik Makhloufi Algeria
## 6 Mo Farah Great Britain 13:03.30 Paul Chelimo United States
## Silver.1 Bronze Bronze.1
## 1 9.89 Andre De Grasse Canada 9.91
## 2 20.02 Christophe Lemaitre France 20.12
## 3 43.76 LaShawn Merritt United States 43.85
## 4 1:42.61 NR Clayton Murphy United States 1:42.93
## 5 3:50.11 Nick Willis New Zealand 3:50.24
## 6 13:03.90 Hagos Gebrhiwet Ethiopia 13:04.35
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)
## Year Host City Host Country Games
## 1 1992 Barcelona Spain 100 metresdetails
## 2 1992 Barcelona Spain 200 metresdetails
## 3 1992 Barcelona Spain 400 metresdetails
## 4 1992 Barcelona Spain 800 metresdetails
## 5 1992 Barcelona Spain 1500 metresdetails
## 6 1992 Barcelona Spain 3000 metresdetails
## Gold Gold.1
## 1 Gail Devers United States 10.82
## 2 Gwen Torrence United States 21.81
## 3 Marie-José Pérec France 48.83
## 4 Ellen van Langen Netherlands 1:55:54
## 5 Hassiba Boulmerka Algeria 3:55.30
## 6 Yelena Romanova Unified Team( Russia) 8:46.04
## Silver Silver.1
## 1 Juliet Cuthbert Jamaica 10.83
## 2 Juliet Cuthbert Jamaica 22.02
## 3 Olga Bryzgina Unified Team( Ukraine) 49.05
## 4 Liliya Nurutdinova Unified Team( Russia) 1:55:99
## 5 Lyudmila Rogachova Unified Team( Russia) 3:56.91
## 6 Tetyana Dorovskikh Unified Team( Ukraine) 8:46.85
## Bronze Bronze.1
## 1 Irina Privalova Unified Team( Russia) 10.84
## 2 Merlene Ottey Jamaica 22.09
## 3 Ximena Restrepo Colombia 49.64
## 4 Ana Fidelia Quirot Cuba 1:56.80
## 5 Qu Yunxia China 3:57.08
## 6 Angela Chalmers Canada 8:47.22
head(bar_men_yr)
## Year Host City Host Country Games Gold
## 1 1992 Barcelona Spain 100 metresdetails Linford Christie Great Britain
## 2 1992 Barcelona Spain 200 metresdetails Michael Marsh United States
## 3 1992 Barcelona Spain 400 metresdetails Quincy Watts United States
## 4 1992 Barcelona Spain 800 metresdetails William Tanui Kenya
## 5 1992 Barcelona Spain 1500 metresdetails Fermín Cacho Spain
## 6 1992 Barcelona Spain 5000 metresdetails Dieter Baumann Germany
## Gold.1 Silver Silver.1 Bronze
## 1 9.96 Frankie Fredericks Namibia 10.02 Dennis Mitchell United States
## 2 20.01 Frankie Fredericks Namibia 20.13 Michael Bates United States
## 3 43.50 (OR) Steve Lewis United States 44.21 Samson Kitur Kenya
## 4 1:43.66 Nixon Kiprotich Kenya 1:43.70 Johnny Gray United States
## 5 3:40.12 Rachid El Basir Morocco 3:40.62 Mohamed Suleiman Qatar
## 6 13:12.52 Paul Bitok Kenya 13:12.71 Fita Bayisa Ethiopia
## Bronze.1
## 1 10.04
## 2 20.38
## 3 44.24
## 4 1:43.97
## 5 3:40.69
## 6 13:13.03
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)
## Year Host City Host Country Games
## 1 1988 Seoul South Korea 100 metresdetails
## 2 1988 Seoul South Korea 200 metresdetails
## 3 1988 Seoul South Korea 400 metresdetails
## 4 1988 Seoul South Korea 800 metresdetails
## 5 1988 Seoul South Korea 1500 metresdetails
## 6 1988 Seoul South Korea 3000 metresdetails
## Gold Gold.1
## 1 Florence Griffith Joyner United States 10.54(OR)
## 2 Florence Griffith Joyner United States 21.34(WR)
## 3 Olga Bryzgina Soviet Union 48.65
## 4 Sigrun Wodars East Germany 1:56.10
## 5 Paula Ivan Romania 3:53.96(OR)
## 6 Tetyana Samolenko Soviet Union 8:26.53
## Silver Silver.1 Bronze
## 1 Evelyn Ashford United States 10.83 Heike Drechsler East Germany
## 2 Grace Jackson Jamaica 21.72 Heike Drechsler East Germany
## 3 Petra Müller East Germany 49.45 Olga Nazarova Soviet Union
## 4 Christine Wachtel East Germany 1:56.64 Kim Gallagher United States
## 5 Laimutė Baikauskaitė Soviet Union 4:00.24 Tetyana Samolenko Soviet Union
## 6 Paula Ivan Romania 8:27.15 Yvonne Murray Great Britain
## Bronze.1
## 1 10.85
## 2 21.95
## 3 49.90
## 4 1:56.91
## 5 4:00.30
## 6 8:29.02
head(seo_men_yr)
## Year Host City Host Country Event Gold
## 1 1988 Seoul South Korea 100 metresdetails Carl Lewis United States
## 2 1988 Seoul South Korea 200 metresdetails Joe DeLoach United States
## 3 1988 Seoul South Korea 400 metresdetails Steve Lewis United States
## 4 1988 Seoul South Korea 800 metresdetails Paul Ereng Kenya
## 5 1988 Seoul South Korea 1500 metresdetails Peter Rono Kenya
## 6 1988 Seoul South Korea 5000 metresdetails John Ngugi Kenya
## Gold.1 Silver Silver.1
## 1 9.92(WR) Linford Christie Great Britain 9.97(AR)
## 2 19.75 Carl Lewis United States 19.79
## 3 43.87 Butch Reynolds United States 43.93
## 4 1:43.45 Joaquim Cruz Brazil 1:43.90
## 5 3:35.96 Peter Elliott Great Britain 3:36.15
## 6 13:11.70 Dieter Baumann West Germany 13:15.52
## Bronze Bronze.1
## 1 Calvin Smith United States 9.99
## 2 Robson da Silva Brazil 20.04
## 3 Danny Everett United States 44.09
## 4 Saïd Aouita Morocco 1:44.06
## 5 Jens-Peter Herold East Germany 3:36.21
## 6 Hansjörg Kunze East Germany 13:15.73
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)
## Year Host City Host Country Games
## 1 1984 Los Angeles USA 100 metresdetails
## 2 1984 Los Angeles USA 200 metresdetails
## 3 1984 Los Angeles USA 400 metresdetails
## 4 1984 Los Angeles USA 800 metresdetails
## 5 1984 Los Angeles USA 1500 metresdetails
## 6 1984 Los Angeles USA 3000 metresdetails
## Gold Gold.1
## 1 Evelyn Ashford United States 10.97
## 2 Valerie Brisco-Hooks United States 21.81
## 3 Valerie Brisco-Hooks United States 48.83
## 4 Doina Melinte Romania 1:57.60
## 5 Gabriella Dorio Italy 4:03.25
## 6 Maricica Puică Romania 8:35.96
## Silver Silver.1
## 1 Alice Brown United States 11.13
## 2 Florence Griffith United States 22.04
## 3 Chandra Cheeseborough United States 49.05
## 4 Kim Gallagher United States 1:58.63
## 5 Doina Melinte Romania 4:03.76
## 6 Wendy Smith-Sly Great Britain 8:39.47
## Bronze Bronze.1
## 1 Merlene Ottey Jamaica 11.16
## 2 Merlene Ottey Jamaica 22.09
## 3 Kathy Smallwood-Cook Great Britain 49.42
## 4 Fiţa Lovin Romania 1:58.83
## 5 Maricica Puică Romania 4:04.15
## 6 Lynn Williams Canada 8:42.14
head(los_men_yr)
## Year Host City Host Country Event Gold
## 1 1984 Los Angeles USA 100 metresdetails Carl Lewis United States
## 2 1984 Los Angeles USA 200 metresdetails Carl Lewis United States
## 3 1984 Los Angeles USA 400 metresdetails Alonzo Babers United States
## 4 1984 Los Angeles USA 800 metresdetails Joaquim Cruz Brazil
## 5 1984 Los Angeles USA 1500 metresdetails Sebastian Coe Great Britain
## 6 1984 Los Angeles USA 5000 metresdetails Saïd Aouita Morocco
## Gold.1 Silver Silver.1
## 1 9.99 Sam Graddy United States 10.19
## 2 19.80 OR Kirk Baptiste United States 19.96
## 3 44.27 Gabriel Tiacoh Ivory Coast 44.54
## 4 1:43.00 OR Sebastian Coe Great Britain 1:43.64
## 5 3:32.53 OR Steve Cram Great Britain 3:33.40
## 6 13:05.59 OR Markus Ryffel Switzerland 13:07.54
## Bronze Bronze.1
## 1 Ben Johnson Canada 10.22
## 2 Thomas Jefferson United States 20.26
## 3 Antonio McKay United States 44.71
## 4 Earl Jones United States 1:43.83
## 5 José Manuel Abascal Spain 3:34.30
## 6 António Leitão Portugal 13:09.20
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)
## Year Host City Host Country Games
## 1 1980 Moscow Russia 100 metresdetails
## 2 1980 Moscow Russia 200 metresdetails
## 3 1980 Moscow Russia 400 metresdetails
## 4 1980 Moscow Russia 800 metresdetails
## 5 1980 Moscow Russia 1500 metresdetails
## 6 1980 Moscow Russia 100 metres hurdlesdetails
## Gold Gold.1
## 1 Lyudmila Kondratyeva Soviet Union 11.06
## 2 Bärbel Wöckel East Germany 22.03 OR
## 3 Marita Koch East Germany 48.88 OR
## 4 Nadiya Olizarenko Soviet Union 1:53.43 WR
## 5 Tatyana Kazankina Soviet Union 3:56.56 OR
## 6 Vera Komisova Soviet Union 12.56 OR
## Silver Silver.1
## 1 Marlies Göhr East Germany 11.07
## 2 Natalya Bochina Soviet Union 22.19
## 3 Jarmila Kratochvílová Czechoslovakia 49.46
## 4 Olga Mineeva Soviet Union 1:54.81
## 5 Christiane Wartenberg East Germany 3:57.71
## 6 Johanna Klier East Germany 12.63
## Bronze Bronze.1
## 1 Ingrid Auerswald East Germany 11.14
## 2 Merlene Ottey Jamaica 22.20
## 3 Christina Lathan East Germany 49.66
## 4 Tatyana Providokhina Soviet Union 1:55.46
## 5 Nadiya Olizarenko Soviet Union 3:59.52
## 6 Lucyna Langer Poland 12.65
head(mos_men_yr)
## Year Host City Host Country Event Gold
## 1 1980 Moscow Russia 100 metresdetails Allan Wells Great Britain
## 2 1980 Moscow Russia 200 metresdetails Pietro Mennea Italy
## 3 1980 Moscow Russia 400 metresdetails Viktor Markin Soviet Union
## 4 1980 Moscow Russia 800 metresdetails Steve Ovett Great Britain
## 5 1980 Moscow Russia 1500 metresdetails Sebastian Coe Great Britain
## 6 1980 Moscow Russia 5000 metresdetails Miruts Yifter Ethiopia
## Gold.1 Silver Silver.1 Bronze
## 1 10.25 Silvio Leonard Cuba 10.25 Petar Petrov Bulgaria
## 2 20.19 Allan Wells Great Britain 20.21 Don Quarrie Jamaica
## 3 44.60 Rick Mitchell Australia 44.84 Frank Schaffer East Germany
## 4 1:45.40 Sebastian Coe Great Britain 1:45.85 Nikolay Kirov Soviet Union
## 5 3:38.40 Jürgen Straub East Germany 3:38.80 Steve Ovett Great Britain
## 6 13:20.91 Suleiman Nyambui Tanzania 13:21.60 Kaarlo Maaninka Finland
## Bronze.1
## 1 10.39
## 2 20.29
## 3 44.87
## 4 1:45.94
## 5 3:38.99
## 6 13:22.00
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)
## Year Host City Host Country Games
## 1 1976 Montreal Canada 100 metresdetails
## 2 1976 Montreal Canada 200 metresdetails
## 3 1976 Montreal Canada 400 metresdetails
## 4 1976 Montreal Canada 800 metresdetails
## 5 1976 Montreal Canada 1500 metresdetails
## 6 1976 Montreal Canada 100 metres hurdlesdetails
## Gold Gold.1 Silver
## 1 Annegret Richter West Germany 11.08 Renate Stecher East Germany
## 2 Bärbel Eckert East Germany 22.37 OR Annegret Richter West Germany
## 3 Irena Szewińska Poland 49.28 WR Christina Brehmer East Germany
## 4 Tatyana Kazankina Soviet Union 1:54.94 WR Nikolina Shtereva Bulgaria
## 5 Tatyana Kazankina Soviet Union 4:05.48 Gunhild Hoffmeister East Germany
## 6 Johanna Schaller East Germany 12.77 Tatiana Anisimova Soviet Union
## Silver.1 Bronze Bronze.1
## 1 11.13 Inge Helten West Germany 11.17
## 2 22.39 Renate Stecher East Germany 22.47
## 3 50.51 Ellen Streidt East Germany 50.55
## 4 1:55.42 Elfi Zinn East Germany 1:55.60
## 5 4:06.02 Ulrike Klapezynski East Germany 4:06.09
## 6 12.78 Natalya Lebedeva Soviet Union 12.80
head(mon_men_yr)
## Year Host City Host Country Event
## 1 1976 Montreal Canada 100 metresdetails
## 2 1976 Montreal Canada 200 metresdetails
## 3 1976 Montreal Canada 400 metresdetails
## 4 1976 Montreal Canada 800 metresdetails
## 5 1976 Montreal Canada 1500 metresdetails
## 6 1976 Montreal Canada 5000 metresdetails
## Gold Gold.1 Silver
## 1 Hasely Crawford Trinidad and Tobago 10.06 Don Quarrie Jamaica
## 2 Don Quarrie Jamaica 20.23 Millard Hampton United States
## 3 Alberto Juantorena Cuba 44.26 Fred Newhouse United States
## 4 Alberto Juantorena Cuba 1:43.50 WR Ivo van Damme Belgium
## 5 John Walker New Zealand 3:39.17 Ivo van Damme Belgium
## 6 Lasse Virén Finland 13:24.76 Dick Quax New Zealand
## Silver.1 Bronze Bronze.1
## 1 10.08 Valeriy Borzov Soviet Union 10.14
## 2 20.29 Dwayne Evans United States 20.43
## 3 44.40 Herman Frazier United States 44.95
## 4 1:43.86 Rick Wohlhuter United States 1:44.12
## 5 3:39.27 Paul-Heinz Wellmann West Germany 3:39.33
## 6 13:25.16 Klaus-Peter Hildenbrand West Germany 13:25.38
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)
## Year Host City Host Country Games
## 1 1972 Munich Germany 100 metresdetails
## 2 1972 Munich Germany 200 metresdetails
## 3 1972 Munich Germany 400 metresdetails
## 4 1972 Munich Germany 800 metresdetails
## 5 1972 Munich Germany 1500 metresdetails
## 6 1972 Munich Germany 100 metres hurdlesdetails
## Gold Gold.1 Silver
## 1 Renate Stecher East Germany 11.07(WR) Raelene Boyle Australia
## 2 Renate Stecher East Germany 22.40(=WR) Raelene Boyle Australia
## 3 Monika Zehrt East Germany 51.08 Rita Wilden West Germany
## 4 Hildegard Falck West Germany 1:58.55(OR) Nijolė Sabaitė Soviet Union
## 5 Ludmila Bragina Soviet Union 4:01.38(WR) Gunhild Hoffmeister East Germany
## 6 Annelie Ehrhardt East Germany 12.59(WR) Valeria Bufanu Romania
## Silver.1 Bronze Bronze.1
## 1 11.23 Silvia Chibás Cuba 11.24
## 2 22.45 Irena Szewińska Poland 22.74
## 3 51.21 Kathy Hammond United States 51.64
## 4 1:58.65 Gunhild Hoffmeister East Germany 1:59.19
## 5 4:02.83 Paola Pigni Italy 4:02.85
## 6 12.84 Karin Balzer East Germany 12.90
head(mun_men_yr)
## Year Host City Host Country Event Gold
## 1 1972 Munich Germany 100 metresdetails Valeriy Borzov Soviet Union
## 2 1972 Munich Germany 200 metresdetails Valeriy Borzov Soviet Union
## 3 1972 Munich Germany 400 metresdetails Vincent Matthews United States
## 4 1972 Munich Germany 800 metresdetails Dave Wottle United States
## 5 1972 Munich Germany 1500 metresdetails Pekka Vasala Finland
## 6 1972 Munich Germany 5000 metresdetails Lasse Virén Finland
## Gold.1 Silver Silver.1 Bronze
## 1 10.14 Robert Taylor United States 10.24 Lennox Miller Jamaica
## 2 20.00 Larry Black United States 20.19 Pietro Mennea Italy
## 3 44.66 Wayne Collett United States 44.80 Julius Sang Kenya
## 4 1:45.86 Yevhen Arzhanov Soviet Union 1:45.89 Mike Boit Kenya
## 5 3:36.33 Kipchoge Keino Kenya 3:36.81 Rod Dixon New Zealand
## 6 13:26.42(OR) Mohammed Gammoudi Tunisia 13:27.33 Ian Stewart Great Britain
## Bronze.1
## 1 10.33
## 2 20.30
## 3 44.92
## 4 1:46.01
## 5 3:37.46
## 6 13:27.61
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)
## Year Host City Host Country Games
## 1 1968 Mexico City Mexico 100 metresdetails
## 2 1968 Mexico City Mexico 200 metresdetails
## 3 1968 Mexico City Mexico 400 metresdetails
## 4 1968 Mexico City Mexico 800 metresdetails
## 5 1968 Mexico City Mexico 80 metres hurdlesdetails
## 6 1968 Mexico City Mexico 4×100 metres relaydetails
## Gold
## 1 Wyomia Tyus United States
## 2 Irena Szewińska Poland
## 3 Colette Besson France
## 4 Madeline Manning United States
## 5 Maureen Caird Australia
## 6 United States (USA)Margaret BailesBarbara FerrellMildrette NetterWyomia Tyus
## Gold.1
## 1 11.08 WR
## 2 22.58 WR
## 3 52.03
## 4 2:00.92 OR
## 5 10.39 OR
## 6 42.88 WR
## Silver
## 1 Barbara Ferrell United States
## 2 Raelene Boyle Australia
## 3 Lillian Board Great Britain
## 4 Ilona Silai Romania
## 5 Pam Kilborn Australia
## 6 Cuba (CUB)Violetta QuesadaMiguelina CobiánMarlene ElejardeFulgencia Romay
## Silver.1
## 1 11.15
## 2 22.74
## 3 52.12
## 4 2:02.58
## 5 10.46
## 6 43.36
## Bronze
## 1 Irena Szewińska Poland
## 2 Jenny Lamy Australia
## 3 Natalya Pechonkina Soviet Union
## 4 Maria Gommers Netherlands
## 5 Chi Cheng Taiwan
## 6 Soviet Union (URS)Galina BukharinaLyudmila SamotyosovaVera PopkovaLyudmila Zharkova
## Bronze.1
## 1 11.19
## 2 22.88
## 3 52.25
## 4 2:02.63
## 5 10.51
## 6 43.41
head(mex_men_yr)
## Year Host City Host Country Games Gold
## 1 1968 Mexico City Mexico 100 metresdetails Jim Hines United States
## 2 1968 Mexico City Mexico 200 metresdetails Tommie Smith United States
## 3 1968 Mexico City Mexico 400 metresdetails Lee Evans United States
## 4 1968 Mexico City Mexico 800 metresdetails Ralph Doubell Australia
## 5 1968 Mexico City Mexico 1500 metresdetails Kipchoge Keino Kenya
## 6 1968 Mexico City Mexico 5000 metresdetails Mohammed Gammoudi Tunisia
## Gold.1 Silver Silver.1 Bronze
## 1 9.95 WR Lennox Miller Jamaica 10.04 Charles Greene United States
## 2 19.83 WR Peter Norman Australia 20.06 NR John Carlos United States
## 3 43.86 WR Larry James United States 43.97 Ron Freeman United States
## 4 1:44.40 WR Wilson Kiprugut Kenya 1:44.57 Tom Farrell United States
## 5 3:34.91 OR Jim Ryun United States 3:37.89 Bodo Tümmler West Germany
## 6 14:05.01 Kipchoge Keino Kenya 14:05.16 Naftali Temu Kenya
## Bronze.1
## 1 10.07
## 2 20.10
## 3 44.41
## 4 1:45.46
## 5 3:39.08
## 6 14:06.41
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)
## Year Host City Host Country Event
## 1 1964 Tokyo Japan 100 metresdetails
## 2 1964 Tokyo Japan 200 metresdetails
## 3 1964 Tokyo Japan 400 metresdetails
## 4 1964 Tokyo Japan 800 metresdetails
## 5 1964 Tokyo Japan 80 metres hurdlesdetails
## 6 1964 Tokyo Japan 4×100 metres relaydetails
## Gold
## 1 Wyomia Tyus United States
## 2 Edith McGuire United States
## 3 Betty Cuthbert Australia
## 4 Ann Packer Great Britain
## 5 Karin Balzer United Team of Germany
## 6 Poland (POL)Teresa CiepłyIrena KirszensteinHalina GóreckaEwa Kłobukowska
## Gold.1
## 1 11.4
## 2 23.0(OR)
## 3 52.0(OR)
## 4 2:01.1(WR)
## 5 10.5
## 6 43.6(WR)
## Silver Silver.1
## 1 Edith McGuire United States 11.6
## 2 Irena Kirszenstein Poland 23.1
## 3 Ann Packer Great Britain 52.2
## 4 Maryvonne Dupureur France 2:01.9
## 5 Teresa Ciepły Poland 10.5
## 6 United States (USA)Willye WhiteWyomia TyusMarilyn WhiteEdith McGuire 43.9
## Bronze Bronze.1
## 1 Ewa Kłobukowska Poland 11.6
## 2 Marilyn Black Australia 23.1
## 3 Judy Amoore Australia 53.4
## 4 Marise Chamberlain New Zealand 2:02.8
## 5 Pam Kilborn Australia 10.6
## 6 Great Britain (GBR)Janet SimpsonMary RandDaphne ArdenDorothy Hyman 44.0
head(tok_men_yr)
## Year Host City Host Country Event Gold
## 1 1964 Tokyo Japan 100 metresdetails Bob Hayes United States
## 2 1964 Tokyo Japan 200 metresdetails Henry Carr United States
## 3 1964 Tokyo Japan 400 metresdetails Mike Larrabee United States
## 4 1964 Tokyo Japan 800 metresdetails Peter Snell New Zealand
## 5 1964 Tokyo Japan 1500 metresdetails Peter Snell New Zealand
## 6 1964 Tokyo Japan 5000 metresdetails Bob Schul United States
## Gold.1 Silver Silver.1
## 1 10.0(=WR) Enrique Figuerola Cuba 10.2
## 2 20.3(OR) Paul Drayton United States 20.5
## 3 45.1 Wendell Mottley Trinidad and Tobago 45.2
## 4 1:45.1(OR) Bill Crothers Canada 1:45.6
## 5 3:38.1 Josef Odložil Czechoslovakia 3:39.6
## 6 13:48.8 Harald Norpoth United Team of Germany 13:49.6
## Bronze Bronze.1
## 1 Harry Jerome Canada 10.2
## 2 Edwin Roberts Trinidad and Tobago 20.6
## 3 Andrzej Badeński Poland 45.6
## 4 Wilson Kiprugut Kenya 1:45.9
## 5 John Davies New Zealand 3:39.6
## 6 Bill Dellinger United States 13:49.8
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)
## Year Host City Host Country Event
## 1 1960 Rome Italy 100 metresdetails
## 2 1960 Rome Italy 200 metresdetails
## 3 1960 Rome Italy 800 metresdetails
## 4 1960 Rome Italy 80 metres hurdlesdetails
## 5 1960 Rome Italy 4×100 metres relaydetails
## 6 1960 Rome Italy High jumpdetails
## Gold
## 1 Wilma Rudolph United States
## 2 Wilma Rudolph United States
## 3 Lyudmila Shevtsova Soviet Union
## 4 Irina Press Soviet Union
## 5 United States (USA)Martha HudsonLucinda WilliamsBarbara JonesWilma Rudolph
## 6 Iolanda Balaș Romania
## Gold.1
## 1 11.0
## 2 24.0
## 3 2:04.3(=WR)
## 4 10.8
## 5 44.5
## 6 1.85 m (OR)
## Silver
## 1 Dorothy Hyman Great Britain
## 2 Jutta Heine United Team of Germany
## 3 Brenda Jones Australia
## 4 Carole Quinton Great Britain
## 5 United Team of Germany (EUA)Martha LangbeinAnni BiechlBrunhilde HendrixJutta Heine
## 6 Jarosława Jóźwiakowska Poland
## Silver.1
## 1 11.3
## 2 24.4
## 3 2:04.4
## 4 10.9
## 5 44.8
## 6 1.71 m
## Bronze
## 1 Giuseppina Leone Italy
## 2 Dorothy Hyman Great Britain
## 3 Ursula Donath United Team of Germany
## 4 Gisela Birkemeyer United Team of Germany
## 5 Poland (POL)Teresa WieczorekBarbara JaniszewskaCelina JesionowskaHalina Richter
## 6 none awarded as there was a tie for silver
## Bronze.1
## 1 11.3
## 2 24.7
## 3 2:05.6
## 4 11.0
## 5 45.0
## 6
head(rom_men_yr)
## Year Host City Host Country Event
## 1 1960 Rome Italy 100 metresdetails
## 2 1960 Rome Italy 200 metresdetails
## 3 1960 Rome Italy 400 metresdetails
## 4 1960 Rome Italy 800 metresdetails
## 5 1960 Rome Italy 1500 metresdetails
## 6 1960 Rome Italy 5000 metresdetails
## Gold Gold.1
## 1 Armin Hary United Team of Germany 10.2(=OR)
## 2 Livio Berruti Italy 20.5(=WR)
## 3 Otis Davis United States 44.9(WR)
## 4 Peter Snell New Zealand 1:46.3(OR)
## 5 Herb Elliott Australia 3:35.6(WR)
## 6 Murray Halberg New Zealand 13:43.4
## Silver Silver.1
## 1 Dave Sime United States 10.2(=OR)
## 2 Lester Carney United States 20.6
## 3 Carl Kaufmann United Team of Germany 44.9(WR)
## 4 Roger Moens Belgium 1:46.5
## 5 Michel Jazy France 3:38.4
## 6 Hans Grodotzki United Team of Germany 13:44.6
## Bronze Bronze.1
## 1 Peter Radford Great Britain 10.3
## 2 Abdoulaye Seye France 20.7
## 3 Malcolm Spence South Africa 45.5
## 4 George Kerr British West Indies 1:47.1
## 5 István Rózsavölgyi Hungary 3:39.2
## 6 Kazimierz Zimny Poland 13:44.8
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)
## Year Host City Host Country Event
## 1 1956 Melbourne Australia 100 metresdetails
## 2 1956 Melbourne Australia 200 metresdetails
## 3 1956 Melbourne Australia 80 metres hurdlesdetails
## 4 1956 Melbourne Australia 4 × 100 metres relaydetails
## 5 1956 Melbourne Australia High jumpdetails
## 6 1956 Melbourne Australia Long jumpdetails
## Gold
## 1 Betty Cuthbert Australia
## 2 Betty Cuthbert Australia
## 3 Shirley Strickland de la Hunty Australia
## 4 Australia (AUS)Norma CrokerBetty CuthbertFleur MellorShirley Strickland de la Hunty
## 5 Mildred McDaniel United States
## 6 Elżbieta Krzesińska Poland
## Gold.1
## 1 11.5
## 2 23.4(=OR)
## 3 10.7(OR)
## 4 44.5(WR)
## 5 1.76 m(WR)
## 6 6.35 m(=WR)
## Silver
## 1 Christa Stubnick United Team of Germany
## 2 Christa Stubnick United Team of Germany
## 3 Gisela Köhler United Team of Germany
## 4 Great Britain (GBR)Heather ArmitageAnne PashleyJune PaulJean Scrivens
## 5 Thelma Hopkins Great BritainMariya Pisareva Soviet Union
## 6 Willye White United States
## Silver.1
## 1 11.7
## 2 23.7
## 3 10.9
## 4 44.7
## 5 1.67 m
## 6 6.09 m
## Bronze
## 1 Marlene Matthews Australia
## 2 Marlene Matthews Australia
## 3 Norma Thrower Australia
## 4 United States (USA)Isabelle DanielsMae FaggsMargaret MatthewsWilma Rudolph
## 5 none awarded
## 6 Nadezhda Dvalishvili Soviet Union
## Bronze.1
## 1 11.7
## 2 23.8
## 3 11.0
## 4 44.9
## 5
## 6 6.07 m
head(mel_men_yr)
## Year Host City Host Country Event Gold
## 1 1956 Melbourne Australia 100 metresdetails Bobby Morrow United States
## 2 1956 Melbourne Australia 200 metresdetails Bobby Morrow United States
## 3 1956 Melbourne Australia 400 metresdetails Charles Jenkins United States
## 4 1956 Melbourne Australia 400 metresdetails Charles Jenkins United States
## 5 1956 Melbourne Australia 800 metresdetails Tom Courtney United States
## 6 1956 Melbourne Australia 1500 metresdetails Ron Delany Ireland
## Gold.1 Silver Silver.1
## 1 10.5 Thane Baker United States 10.5
## 2 20.6(OR) Andy Stanfield United States 20.7
## 3 46.7 Karl-Friedrich Haas United Team of Germany 46.8
## 4 46.7 Karl-Friedrich Haas United Team of Germany 46.8
## 5 1:47.7(OR) Derek Johnson Great Britain 1:47.8
## 6 3:41.2(OR) Klaus Richtzenhain United Team of Germany 3:42.0
## Bronze Bronze.1
## 1 Hector Hogan Australia 10.6
## 2 Thane Baker United States 20.9
## 3 Voitto Hellstén Finland 47.0
## 4 Ardalion Ignatyev Soviet Union 47.0
## 5 Audun Boysen Norway 1:48.1
## 6 John Landy Australia 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)
## Year Host City Host Country Event
## 1 1952 Helsinki Finland 100 metresdetails
## 2 1952 Helsinki Finland 200 metresdetails
## 3 1952 Helsinki Finland 80 metres hurdlesdetails
## 4 1952 Helsinki Finland 4 × 100 metres relaydetails
## 5 1952 Helsinki Finland High jumpdetails
## 6 1952 Helsinki Finland Long jumpdetails
## Gold Gold.1
## 1 Marjorie Jackson Australia 11.5
## 2 Marjorie Jackson Australia 23.7
## 3 Shirley Strickland de la Hunty Australia 10.9
## 4 United States (USA)Mae FaggsBarbara JonesJanet MoreauCatherine Hardy 45.9
## 5 Esther Brand South Africa 1.67 m
## 6 Yvette Williams New Zealand 6.24 m
## Silver Silver.1
## 1 Daphne Hasenjager South Africa 11.8
## 2 Bertha Brouwer Netherlands 24.2
## 3 Mariya Golubnichaya Soviet Union 11.1
## 4 Germany (GER)Ursula KnabMaria SanderHelga KleinMarga Petersen 45.9
## 5 Sheila Lerwill Great Britain 1.65 m
## 6 Aleksandra Chudina Soviet Union 6.14 m
## Bronze
## 1 Shirley Strickland de la Hunty Australia
## 2 Nadezhda Khnykina-Dvalishvili Soviet Union
## 3 Maria Sander Germany
## 4 Great Britain (GBR)Sylvia CheesemanJune FouldsJean DesforgesHeather Armitage
## 5 Aleksandra Chudina Soviet Union
## 6 Shirley Cawley Great Britain
## Bronze.1
## 1 11.9
## 2 24.2
## 3 11.1
## 4 46.2
## 5 1.63 m
## 6 5.92 m
head(hel_men_yr)
## Year Host City Host Country Event Gold
## 1 1952 Helsinki Finland 100 metresdetails Lindy Remigino United States
## 2 1952 Helsinki Finland 200 metresdetails Andy Stanfield United States
## 3 1952 Helsinki Finland 400 metresdetails George Rhoden Jamaica
## 4 1952 Helsinki Finland 800 metresdetails Mal Whitfield United States
## 5 1952 Helsinki Finland 1500 metresdetails Josy Barthel Luxembourg
## 6 1952 Helsinki Finland 5000 metresdetails Emil Zátopek Czechoslovakia
## Gold.1 Silver Silver.1 Bronze
## 1 10.4 Herb McKenley Jamaica 10.4 McDonald Bailey Great Britain
## 2 20.7 Thane Baker United States 20.8 James Gathers United States
## 3 45.9 Herb McKenley Jamaica 45.9 Ollie Matson United States
## 4 1:49.2 Arthur Wint Jamaica 1:49.4 Heinz Ulzheimer Germany
## 5 3:45.2 Bob McMillen United States 3:45.2 Werner Lueg Germany
## 6 14:06.6 Alain Mimoun France 14:07.4 Herbert Schade Germany
## Bronze.1
## 1 10.4
## 2 20.8
## 3 46.8
## 4 1:49.7
## 5 3:45.4
## 6 14:08.6
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)
## Year Host City Host Country Games
## 1 1948 London Great Britain 100 metresdetails
## 2 1948 London Great Britain 200 metresdetails
## 3 1948 London Great Britain 80 metres hurdlesdetails
## 4 1948 London Great Britain 4 × 100 metres relaydetails
## 5 1948 London Great Britain High jumpdetails
## 6 1948 London Great Britain Long jumpdetails
## Gold
## 1 Fanny Blankers-Koen Netherlands
## 2 Fanny Blankers-Koen Netherlands
## 3 Fanny Blankers-Koen Netherlands
## 4 Netherlands (NED)Xenia Stad-de JongNetty Witziers-TimmerGerda van der Kade-KoudijsFanny Blankers-Koen
## 5 Alice Coachman United States
## 6 Olga Gyarmati Hungary
## Gold.1 Silver
## 1 11.9 Dorothy Manley Great Britain
## 2 24.4 Audrey Williamson Great Britain
## 3 11.2 Maureen Gardner Great Britain
## 4 47.5 Australia (AUS)Shirley StricklandJune MastonBetty McKinnonJoyce King
## 5 1.68 m Dorothy Tyler Great Britain
## 6 5.695 m Noemí Simonetto Argentina
## Silver.1 Bronze
## 1 12.2 Shirley Strickland Australia
## 2 25.1 Audrey Patterson United States
## 3 11.2 Shirley Strickland Australia
## 4 47.6 Canada (CAN)Viola MyersNancy MacKayDiane FosterPatricia Jones
## 5 1.68 m Micheline Ostermeyer France
## 6 5.60 m Ann-Britt Leyman Sweden
## Bronze.1
## 1 12.2
## 2 25.2
## 3 11.4
## 4 47.8
## 5 1.61 m
## 6 5.575 m
head(lon_48_men_yr)
## Year Host City Host Country Event
## 1 1948 London Great Britain 100 metresdetails
## 2 1948 London Great Britain 200 metresdetails
## 3 1948 London Great Britain 400 metresdetails
## 4 1948 London Great Britain 800 metresdetails
## 5 1948 London Great Britain 1500 metresdetails
## 6 1948 London Great Britain 5000 metresdetails
## Gold Gold.1 Silver Silver.1
## 1 Harrison Dillard United States 10.3 Barney Ewell United States 10.4
## 2 Mel Patton United States 21.1 Barney Ewell United States 21.1
## 3 Arthur Wint Jamaica 46.2 Herb McKenley Jamaica 46.4
## 4 Mal Whitfield United States 1:49.2 Arthur Wint Jamaica 1:49.5
## 5 Henry Eriksson Sweden 3:49.8 Lennart Strand Sweden 3:50.4
## 6 Gaston Reiff Belgium 14:17.6 Emil Zátopek Czechoslovakia 14:17.8
## Bronze Bronze.1
## 1 Lloyd LaBeach Panama 10.6
## 2 Lloyd LaBeach Panama 21.2
## 3 Mal Whitfield United States 46.8
## 4 Marcel Hansenne France 1:49.8
## 5 Wim Slijkhuis Netherlands 3:50.4
## 6 Wim Slijkhuis Netherlands 14:26.8
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)
## Year Host City Host Country Games
## 1 1936 Berlin Germany 100 metresdetails
## 2 1936 Berlin Germany 80 metres hurdlesdetails
## 3 1936 Berlin Germany 4 × 100 metres relaydetails
## 4 1936 Berlin Germany High jumpdetails
## 5 1936 Berlin Germany Discus throwdetails
## 6 1936 Berlin Germany Javelin throwdetails
## Gold
## 1 Helen Stephens United States
## 2 Trebisonda Valla Italy
## 3 United States (USA)Harriet BlandAnnette RogersBetty RobinsonHelen Stephens
## 4 Ibolya Csák Hungary
## 5 Gisela Mauermayer Germany
## 6 Tilly Fleischer Germany
## Gold.1
## 1 11.5
## 2 11.7
## 3 46.9
## 4 1.60 m
## 5 47.63 m
## 6 45.18 m
## Silver
## 1 Stanisława Walasiewicz Poland
## 2 Anni Steuer Germany
## 3 Great Britain (GBR)Eileen HiscockViolet OlneyAudrey BrownBarbara Burke
## 4 Dorothy Odam Great Britain
## 5 Jadwiga Wajs Poland
## 6 Luise Krüger Germany
## Silver.1
## 1 11.7
## 2 11.7
## 3 47.6
## 4 1.60 m
## 5 46.22 m
## 6 43.29 m
## Bronze
## 1 Käthe Krauß Germany
## 2 Betty Taylor Canada
## 3 Canada (CAN)Dorothy BrookshawMildred DolsonHilda CameronAileen Meagher
## 4 Elfriede Kaun Germany
## 5 Paula Mollenhauer Germany
## 6 Maria Kwaśniewska Poland
## Bronze.1
## 1 11.9
## 2 11.7
## 3 47.8
## 4 1.60 m
## 5 39.80 m
## 6 41.80 m
head(ber_men_yr)
## Year Host City Host Country Event Gold
## 1 1936 Berlin Germany 100 metresdetails Jesse Owens United States
## 2 1936 Berlin Germany 200 metresdetails Jesse Owens United States
## 3 1936 Berlin Germany 400 metresdetails Archie Williams United States
## 4 1936 Berlin Germany 800 metresdetails John Woodruff United States
## 5 1936 Berlin Germany 1500 metresdetails Jack Lovelock New Zealand
## 6 1936 Berlin Germany 5000 metresdetails Gunnar Höckert Finland
## Gold.1 Silver Silver.1 Bronze
## 1 10.3 Ralph Metcalfe United States 10.4 Tinus Osendarp Netherlands
## 2 20.7 Mack Robinson United States 21.1 Tinus Osendarp Netherlands
## 3 46.5 Godfrey Brown Great Britain 46.7 James LuValle United States
## 4 1:52.9 Mario Lanzi Italy 1:53.3 Phil Edwards Canada
## 5 3:47.8 Glenn Cunningham United States 3:48.4 Luigi Beccali Italy
## 6 14:22.2 Lauri Lehtinen Finland 14:25.8 Henry Jonsson Sweden
## Bronze.1
## 1 10.5
## 2 21.3
## 3 46.8
## 4 1:53.6
## 5 3:49.2
## 6 14:29.0
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)
## Year Host City Host Country Games
## 1 1928 Amesterdam Netherlands 100 metresdetails
## 2 1928 Amesterdam Netherlands 800 metresdetails
## 3 1928 Amesterdam Netherlands 4 × 100 metres relaydetails
## 4 1928 Amesterdam Netherlands High jumpdetails
## 5 1928 Amesterdam Netherlands Discus throwdetails
## Gold
## 1 Betty Robinson United States
## 2 Lina Radke Germany
## 3 Canada (CAN)Myrtle CookEthel SmithBobbie RosenfeldJane Bell
## 4 Ethel Catherwood Canada
## 5 Halina Konopacka Poland
## Silver
## 1 Bobbie Rosenfeld Canada
## 2 Kinue Hitomi Japan
## 3 United States (USA)Jessie CrossLoretta McNeilBetty RobinsonMary Washburn
## 4 Lien Gisolf Netherlands
## 5 Lillian Copeland United States
## Bronze
## 1 Ethel Smith Canada
## 2 Inga Gentzel Sweden
## 3 Germany (GER)Anni HoldmannLeni JunkerRosa KellnerLeni Schmidt
## 4 Mildred Wiley United States
## 5 Ruth Svedberg Sweden
head(ams_men_yr)
## Year Host City Host Country Games Gold
## 1 1928 Amesterdam Netherlands 100 metresdetails Percy Williams Canada
## 2 1928 Amesterdam Netherlands 200 metresdetails Percy Williams Canada
## 3 1928 Amesterdam Netherlands 400 metresdetails Ray Barbuti United States
## 4 1928 Amesterdam Netherlands 800 metresdetails Douglas Lowe Great Britain
## 5 1928 Amesterdam Netherlands 1500 metresdetails Harri Larva Finland
## 6 1928 Amesterdam Netherlands 5000 metresdetails Ville Ritola Finland
## Silver Bronze
## 1 Jack London Great Britain Georg Lammers Germany
## 2 Walter Rangeley Great Britain Helmut Körnig Germany
## 3 James Ball Canada Joachim Büchner Germany
## 4 Erik Byléhn Sweden Hermann Engelhard Germany
## 5 Jules Ladoumegue France Eino Purje Finland
## 6 Paavo Nurmi Finland Edvin Wide Sweden
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)
## Year Host City Host Country Event Gold
## 1 1924 Paris France 100 metresdetails Harold Abrahams Great Britain
## 2 1924 Paris France 200 metresdetails Jackson Scholz United States
## 3 1924 Paris France 400 metresdetails Eric Liddell Great Britain
## 4 1924 Paris France 800 metresdetails Douglas Lowe Great Britain
## 5 1924 Paris France 1500 metresdetails Paavo Nurmi Finland
## 6 1924 Paris France 5000 metresdetails Paavo Nurmi Finland
## Silver Bronze
## 1 Jackson Scholz United States Arthur Porritt New Zealand
## 2 Charles Paddock United States Eric Liddell Great Britain
## 3 Horatio Fitch United States Guy Butler Great Britain
## 4 Paul Martin Switzerland Schuyler Enck United States
## 5 Willy Schärer Switzerland H. B. Stallard Great Britain
## 6 Ville Ritola Finland Edvin Wide Sweden
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)
## Year Host City Host Country Event Gold
## 1 1920 Antwerp Belgium 100 metresdetails Charles Paddock United States
## 2 1920 Antwerp Belgium 200 metresdetails Allen Woodring United States
## 3 1920 Antwerp Belgium 400 metresdetails Bevil Rudd South Africa
## 4 1920 Antwerp Belgium 800 metresdetails Albert Hill Great Britain
## 5 1920 Antwerp Belgium 1500 metresdetails Albert Hill Great Britain
## 6 1920 Antwerp Belgium 5000 metresdetails Joseph Guillemot France
## Silver Bronze
## 1 Morris Kirksey United States Harry Edward Great Britain
## 2 Charles Paddock United States Harry Edward Great Britain
## 3 Guy Butler Great Britain Nils Engdahl Sweden
## 4 Earl Eby United States Bevil Rudd South Africa
## 5 Philip Noel-Baker Great Britain Lawrence Shields United States
## 6 Paavo Nurmi Finland Eric Backman Sweden
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)
## Year Host City Host Country Event Gold
## 1 1912 Stockholm Sweden 100 metresdetails Ralph Craig United States
## 2 1912 Stockholm Sweden 200 metresdetails Ralph Craig United States
## 3 1912 Stockholm Sweden 400 metresdetails Charles Reidpath United States
## 4 1912 Stockholm Sweden 800 metresdetails Ted Meredith United States
## 5 1912 Stockholm Sweden 1500 metresdetails Arnold Jackson Great Britain
## 6 1912 Stockholm Sweden 5000 metresdetails Hannes Kolehmainen Finland
## Silver Bronze
## 1 Alvah Meyer United States Donald Lippincott United States
## 2 Donald Lippincott United States Willie Applegarth Great Britain
## 3 Hanns Braun Germany Edward Lindberg United States
## 4 Mel Sheppard United States Ira Davenport United States
## 5 Abel Kiviat United States Norman Taber United States
## 6 Jean Bouin France George Hutson Great Britain
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)
## Year Host City Host Country Event
## 1 1908 London Great Britain 100 metresdetails
## 2 1908 London Great Britain 200 metresdetails
## 3 1908 London Great Britain 400 metresdetails
## 4 1908 London Great Britain 800 metresdetails
## 5 1908 London Great Britain 1500 metresdetails
## 6 1908 London Great Britain 5 milesdetails
## Gold Silver
## 1 Reggie Walker South Africa James Rector United States
## 2 Robert Kerr Canada Robert Cloughen United States
## 3 Wyndham Halswelle Great Britain none awarded
## 4 Mel Sheppard United States Emilio Lunghi Italy
## 5 Mel Sheppard United States Harold Wilson Great Britain
## 6 Emil Voigt Great Britain Edward Owen Great Britain
## Bronze
## 1 Robert Kerr Canada
## 2 Nate Cartmell United States
## 3 none awarded
## 4 Hanns Braun Germany
## 5 Norman Hallows Great Britain
## 6 John Svanberg Sweden
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)
## Year Host City Host Country Event Gold
## 1 1904 St Louis USA 60 metresdetails Archie Hahn United States
## 2 1904 St Louis USA 100 metresdetails Archie Hahn United States
## 3 1904 St Louis USA 200 metresdetails Archie Hahn United States
## 4 1904 St Louis USA 400 metresdetails Harry Hillman United States
## 5 1904 St Louis USA 800 metresdetails James Lightbody United States
## 6 1904 St Louis USA 1500 metresdetails James Lightbody United States
## Silver Bronze
## 1 William Hogenson United States Fay Moulton United States
## 2 Nate Cartmell United States William Hogenson United States
## 3 Nate Cartmell United States William Hogenson United States
## 4 Frank Waller United States Herman Groman United States
## 5 Howard Valentine United States Emil Breitkreutz United States
## 6 Frank Verner United States Lacey Hearn United States