File:Speed-climbing-records.svg

Summary[edit]

Licensing[edit]

I, the copyright holder of this work, hereby publish it under the following license:

This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.

You are free:

• to share – to copy, distribute and transmit the work
• to remix – to adapt the work

Under the following conditions:

• attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
• share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.

https://creativecommons.org/licenses/by-sa/4.0CC BY-SA 4.0 Creative Commons Attribution-Share Alike 4.0 truetrue

Code[edit]

Created in Julia using the following script and data from the corresponding wikipedia page

using AlgebraOfGraphics
using CairoMakie
using CSV
using DataFrames
using Dates

function main()

    d_men = CSV.read("men.csv", DataFrame)
    d_men.gender .= "Men"

    d_women = CSV.read("women.csv", DataFrame)
    d_women.gender .= "Women"

    # Combine into single table
    df = [d_men; d_women]

    # Parse Date column correctly
    df = fix_date_column(df)

    # Sort Data first by time, then data. Handles two records on the same day
    sort!(df, :Time, rev = true)
    sort!(df, :Date)

    axis = (width = 800, height = 800)

    trend = data(df) *
        mapping(
                :Date,
                :Time => "time (s)",
                color=:gender,
                marker=:gender,
                linestyle=:gender,
               ) * visual(Lines)

    fg = draw(trend; axis)

    save("speed-climbing-records.svg", fg, px_per_unit = 3) # save high-resolution png
end

function fix_date_column(df::DataFrame)
    strings2dates(dates::Vector) = Date.(dates, dateformat"U dd, yyyy")

    dates = strings2dates(df[!, :Date])
    df[!, :Date] = dates
    df
end

main()

Date	Time	Country	Person	Location	Competition
July 8, 2022	5.009 	Indonesia	Kiromal Katibin 	Chamonix, France 	World Cup
June 30, 2022	5.09 	Indonesia	Kiromal Katibin 	Villars, Switzerland 	World Cup
June 30, 2022	5.04 	Indonesia	Kiromal Katibin 	Villars, Switzerland 	World Cup
May 27, 2022	5.10 	Indonesia 	Kiromal Katibin 	Salt Lake City, USA 	World Cup
May 6, 2022	5.17 	Indonesia 	Kiromal Katibin 	Seoul, South Korea 	World Cup
May 28, 2021	5.20 	Indonesia 	Veddriq Leonardo 	Salt Lake City, USA 	World Cup
May 28, 2021	5.25 	Indonesia 	Kiromal Katibin 	Salt Lake City, USA 	World Cup
April 30, 2017	5.48 	Iran 	Reza Alipour 	Nanjing, China 	World Cup
September 12, 2014	5.60 	Ukraine 	Danyil Boldyrev 	Gijon, Spain 	World Championships
August 31, 2014	5.73 	Czech Republic 	Libor Hroza 	Arco, Italy 	World Cup
August 30, 2014	5.76 	Czech Republic 	Libor Hroza 	Arco, Italy 	World Cup
October 13, 2012	5.88 	Russia 	Evgenii Vaitcekhovskii 	Xining, China 	World Cup
August 27, 2011	6.26 	China 	Qixin Zhong 	Arco, Italy 	World Championships

Date	Time	Person	Country	Location	Competition
May 27, 2022	6.53	Poland	Aleksandra Miroslaw	Salt Lake City, USA	World Cup
May 6, 2022	6.64	Poland	Aleksandra Miroslaw	Seoul, South Korea	World Cup
August 6, 2021	6.84	Poland	Aleksandra Mirosław	Tokyo, Japan	Olympic Games
November 21, 2020	6.96	Russia	Iuliia Kaplina	Moscow, Russia	European Championships
October 19, 2019	6.99	Indonesia	Aries Susanti Rahayu	Xiamen, China	World Cup
April 26, 2019	7.10	China	YiLing Song	Chongqing, China	World Cup
April 22, 2018	7.32	France	Anouck Jaubert	Moscow, Russia	World Cup
July 22, 2017	7.32	Russia	Iuliia Kaplina	Wroclaw, Poland	World Games
April 30, 2017	7.38	Russia	Iuliia Kaplina	Nanjing, China	World Cup
April 23, 2017	7.46	Russia	Iuliia Kaplina	Chongqing, China	World Cup
July 11, 2015	7.53	Russia	Iuliia Kaplina	Chamonix, France	World Cup
June 21, 2015	7.56	Russia	Iuliia Kaplina	Chongqing, China	World Cup
May 17, 2015	7.74	Russia	Iuliia Kaplina	Central Saanich, Canada	World Cup
October 19, 2013	7.85	Russia	Iuliia Kaplina	Wujiang, China	World Cup