-
Notifications
You must be signed in to change notification settings - Fork 3
Expand file tree
/
Copy pathiaaf.R
More file actions
164 lines (162 loc) · 10.6 KB
/
iaaf.R
File metadata and controls
164 lines (162 loc) · 10.6 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
# Vincent Lu captured data from the IAAF for generating an animation that we recreate here.
#
# https://www.iaaf.org/results/olympic-games/2016/the-xxxi-olympic-games-5771/men/decathlon/1500-metres/points
rio_df <- structure(list(Year = c("2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016", "2016", "2016", "2016", "2016", "2016", "2016", "2016",
"2016"), Athlete = structure(c(75L, 119L, 95L, 109L, 71L, 65L,
148L, 93L, 110L, 94L, 149L, 111L, 113L, 126L, 53L, 150L, 117L,
52L, 125L, 96L, 116L, 115L, 124L, 75L, 119L, 95L, 109L, 71L,
65L, 148L, 93L, 110L, 94L, 149L, 111L, 113L, 126L, 53L, 150L,
117L, 52L, 125L, 96L, 116L, 115L, 124L, 75L, 119L, 95L, 109L,
71L, 65L, 148L, 93L, 110L, 94L, 149L, 111L, 113L, 126L, 53L,
150L, 117L, 52L, 125L, 96L, 116L, 115L, 124L, 75L, 119L, 95L,
109L, 71L, 65L, 148L, 93L, 110L, 94L, 149L, 111L, 113L, 126L,
53L, 150L, 117L, 52L, 125L, 96L, 116L, 115L, 124L, 75L, 119L,
95L, 109L, 71L, 65L, 148L, 93L, 110L, 94L, 149L, 111L, 113L,
126L, 53L, 150L, 117L, 52L, 125L, 96L, 116L, 115L, 124L, 75L,
119L, 95L, 109L, 71L, 65L, 148L, 93L, 110L, 94L, 149L, 111L,
113L, 126L, 53L, 150L, 117L, 52L, 125L, 96L, 116L, 115L, 124L,
75L, 119L, 95L, 109L, 71L, 65L, 148L, 93L, 110L, 94L, 149L, 111L,
113L, 126L, 53L, 150L, 117L, 52L, 125L, 96L, 116L, 115L, 124L,
75L, 119L, 95L, 109L, 71L, 65L, 148L, 93L, 110L, 94L, 149L, 111L,
113L, 126L, 53L, 150L, 117L, 52L, 125L, 96L, 116L, 115L, 124L,
75L, 119L, 95L, 109L, 71L, 65L, 148L, 93L, 110L, 94L, 149L, 111L,
113L, 126L, 53L, 150L, 117L, 52L, 125L, 96L, 116L, 115L, 124L,
75L, 119L, 95L, 109L, 71L, 65L, 148L, 93L, 110L, 94L, 149L, 111L,
113L, 126L, 53L, 150L, 117L, 52L, 125L, 96L, 116L, 115L, 124L
), .Label = c("Eduard Hämäläinen", "Fedor Laukhin", "Volodymyr Mykhailenko",
"Kip Janvrin", "Wilfrid Boulineau", "Laurent Hernu", "Klaus Ambrosch",
"Indrek Kaseorg", "Oleksandr Yurkov", "Raúl Duany", "Jirí Ryba",
"Lev Lobodin", "Mário Aníbal", "Zsolt Kürtösi", "Henrik Dagård",
"Stefan Schmid", "Attila Zsivoczky", "Frank Busemann", "Tomáš Dvorák",
"Tom Pappas", "Dean Macey", "Chris Huffins", "Roman Šebrle",
"Erki Nool", "Tomáš Dvorák", "Dean Macay", "Jirí Ryba", "Roman Šebrle",
"Michael Nolan", "Benjamin Jensen", "Phil McMullen", "Chiel Warners",
"Dmitriy Karpov", "Qi Haifeng", "André Niklaus", "Claston Bernard",
"Vitaliy Smirnov", "Bryan Clay", "Aleksandr Pogorelov", "Kristjan Rahnu",
"Romain Barras", "Jaakko Ojaniemi", "Aleksey Drozdov", "Hamdi Dhouibi",
"Mikk Pahapill", "Paul Terek", "Frédéric Xhonneux", "Roland Schwarzl",
"Óscar González", "Maurice Smith", "Aleksey Sysoyev", "Yordanis García",
"Arthur Abele", "Hans van Alphen", "Robert Jacob Arnold", "Aliaksandr Parkhomenka",
"François Gourmet", "Andres Raja", "Agustín Félix", "Alberto Juantorena",
"Hiromasa Tanaka", "Josef Karas", "Kim Kun-woo", "Trey Hardee",
"Leonel Suárez", "Oleksiy Kasyanov", "Pascal Behrenbruch", "Nicklas Wiberg",
"Yunior Díaz", "Andrei Krauchanka", "Larbi Bourrada", "Willem Coertzen",
"Norman Müller", "Vasiliy Kharlamov", "Ashton Eaton", "Eugène Martineau",
"Ingmar Vos", "Nadir El Fassi", "Brent Newdick", "Jake Arnold",
"Daniel Almgren", "Daisuke Ikeda", "Moritz Cleve", "Yevhen Nikitin",
"Mateo Sossah", "Simon Walter", "Attila Szabó", "Mikk-Mihkel Arro",
"Atis Vaisjuns", "Eelco Sintnicolaas", "Mihail Dudaš", "Jan Felix Knobel",
"Thomas van der Plaetsen", "Luiz Alberto de Araújo", "Damian Warner",
"Keisuke Ushiro", "Michael Schrader", "Kevin Mayer", "Carlos Chinin",
"Rico Freimuth", "Ilya Shkurenyov", "Gunnar Nixon", "Artem Lukyanenko",
"Eduard Mikhan", "Maicel Uibo", "Sergey Sviridov", "Pelle Rietveld",
"Marcus Nilsson", "Kai Kazmirek", "Kurt Felix", "Adam Helcelet",
"Pieter Braun", "Bastien Auzeil", "Zachery Ziemek", "Akihiko Nakamura",
"Pawel Wiesiolek", "Pau Tonnesen", "Janek Õiglane", "Kévin Mayer",
"Jorge Ureña", "Devon Williams", "Ashley Bryant", "Martin Roe",
"Karl Robert Saluri", "Dominik Distelberger", "Cedric Dubler",
"Florian Schönbeck", "Nikolay Averyanov", "Stefan Drews", "David Gómez",
"Indrek Turi", "Santiago Lorenzo", "Janis Karlivans", "Prodromos Korkizoglou",
"Hans Olav Uldal", "Paolo Casarsa", "Mikalai Shubianok", "Massimo Bertocchi",
"Jangy Addy", "Daniel Awde", "Hadi Sepehrzad", "Damjan Sitar",
"Slaven Dizdarevic", "Gonzalo Barroilhet", "Edgars Erinš", "Darius Draudvila",
"Rifat Artikov", "Zach Ziemek", "Jeremy Taiwo", "Lindon Victor"
), class = "factor"), cc_iso2c = c("us", "fr", "ca", "de", "dz",
"cu", "us", "be", "gd", "br", "us", "cz", "fr", "au", "de", "gd",
"es", "cu", "at", "jp", "pl", "jp", "ee", "us", "fr", "ca", "de",
"dz", "cu", "us", "be", "gd", "br", "us", "cz", "fr", "au", "de",
"gd", "es", "cu", "at", "jp", "pl", "jp", "ee", "us", "fr", "ca",
"de", "dz", "cu", "us", "be", "gd", "br", "us", "cz", "fr", "au",
"de", "gd", "es", "cu", "at", "jp", "pl", "jp", "ee", "us", "fr",
"ca", "de", "dz", "cu", "us", "be", "gd", "br", "us", "cz", "fr",
"au", "de", "gd", "es", "cu", "at", "jp", "pl", "jp", "ee", "us",
"fr", "ca", "de", "dz", "cu", "us", "be", "gd", "br", "us", "cz",
"fr", "au", "de", "gd", "es", "cu", "at", "jp", "pl", "jp", "ee",
"us", "fr", "ca", "de", "dz", "cu", "us", "be", "gd", "br", "us",
"cz", "fr", "au", "de", "gd", "es", "cu", "at", "jp", "pl", "jp",
"ee", "us", "fr", "ca", "de", "dz", "cu", "us", "be", "gd", "br",
"us", "cz", "fr", "au", "de", "gd", "es", "cu", "at", "jp", "pl",
"jp", "ee", "us", "fr", "ca", "de", "dz", "cu", "us", "be", "gd",
"br", "us", "cz", "fr", "au", "de", "gd", "es", "cu", "at", "jp",
"pl", "jp", "ee", "us", "fr", "ca", "de", "dz", "cu", "us", "be",
"gd", "br", "us", "cz", "fr", "au", "de", "gd", "es", "cu", "at",
"jp", "pl", "jp", "ee", "us", "fr", "ca", "de", "dz", "cu", "us",
"be", "gd", "br", "us", "cz", "fr", "au", "de", "gd", "es", "cu",
"at", "jp", "pl", "jp", "ee"), finalscore = c(8893, 8834, 8666,
8580, 8521, 8460, 8392, 8332, 8323, 8315, 8300, 8291, 8064, 8024,
8013, 7998, 7982, 7961, 7954, 7952, 7784, 7612, 7223, 8893, 8834,
8666, 8580, 8521, 8460, 8392, 8332, 8323, 8315, 8300, 8291, 8064,
8024, 8013, 7998, 7982, 7961, 7954, 7952, 7784, 7612, 7223, 8893,
8834, 8666, 8580, 8521, 8460, 8392, 8332, 8323, 8315, 8300, 8291,
8064, 8024, 8013, 7998, 7982, 7961, 7954, 7952, 7784, 7612, 7223,
8893, 8834, 8666, 8580, 8521, 8460, 8392, 8332, 8323, 8315, 8300,
8291, 8064, 8024, 8013, 7998, 7982, 7961, 7954, 7952, 7784, 7612,
7223, 8893, 8834, 8666, 8580, 8521, 8460, 8392, 8332, 8323, 8315,
8300, 8291, 8064, 8024, 8013, 7998, 7982, 7961, 7954, 7952, 7784,
7612, 7223, 8893, 8834, 8666, 8580, 8521, 8460, 8392, 8332, 8323,
8315, 8300, 8291, 8064, 8024, 8013, 7998, 7982, 7961, 7954, 7952,
7784, 7612, 7223, 8893, 8834, 8666, 8580, 8521, 8460, 8392, 8332,
8323, 8315, 8300, 8291, 8064, 8024, 8013, 7998, 7982, 7961, 7954,
7952, 7784, 7612, 7223, 8893, 8834, 8666, 8580, 8521, 8460, 8392,
8332, 8323, 8315, 8300, 8291, 8064, 8024, 8013, 7998, 7982, 7961,
7954, 7952, 7784, 7612, 7223, 8893, 8834, 8666, 8580, 8521, 8460,
8392, 8332, 8323, 8315, 8300, 8291, 8064, 8024, 8013, 7998, 7982,
7961, 7954, 7952, 7784, 7612, 7223, 8893, 8834, 8666, 8580, 8521,
8460, 8392, 8332, 8323, 8315, 8300, 8291, 8064, 8024, 8013, 7998,
7982, 7961, 7954, 7952, 7784, 7612, 7223), event = c(1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9,
9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10,
10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
10, 10, 10), rank = c(2, 7, 1, 6, 4, 20, 3, 21, 15, 5, 16, 18,
19, 12, 13, 10, 23, 7, 11, 22, 14, 17, 9, 1, 4, 2, 3, 6, 20,
5, 11, 9, 7, 12, 13, 21, 8, 16, 14, 18, 19, 10, 23, 22, 16, 15,
1, 3, 2, 5, 6, 18, 9, 16, 7, 4, 8, 10, 14, 19, 12, 11, 20, 15,
13, 22, 21, 23, 16, 1, 4, 2, 5, 6, 14, 7, 9, 8, 11, 3, 10, 17,
12, 14, 13, 18, 16, 20, 21, 19, 23, 22, 1, 4, 3, 2, 6, 13, 9,
10, 7, 8, 5, 12, 17, 11, 14, 16, 20, 15, 18, 22, 19, 21, 23,
1, 3, 2, 4, 5, 13, 10, 14, 8, 7, 6, 11, 17, 9, 12, 18, 19, 15,
16, 22, 19, 21, 23, 1, 3, 2, 4, 5, 10, 6, 14, 9, 7, 8, 11, 17,
15, 12, 13, 19, 16, 20, 21, 18, 22, 23, 1, 2, 3, 4, 9, 10, 5,
8, 12, 7, 6, 11, 14, 13, 15, 17, 16, 18, 20, 19, 21, 22, 23,
1, 2, 3, 4, 7, 6, 5, 8, 9, 10, 12, 11, 14, 19, 13, 15, 16, 17,
20, 18, 21, 22, 23, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13,
14, 15, 16, 17, 18, 19, 20, 21, 22, 23)), .Names = c("Year",
"Athlete", "cc_iso2c", "finalscore", "event", "rank"), row.names = c(NA,
-230L), class = c("tbl_df", "tbl", "data.frame"))
readr::write_csv(rio_df, "iaaf.csv")