Tennis Match Wins by Country

Analyze men's singles tennis match wins from 1968 to 2024

This example covers all the ATP tennis men's singles matches from 1968 to 2024.

Retrieve match data from the Wolfram Data Repository:

In[1]:=

data=ResourceData["ATP Tennis Singles Matches"]

Out[1]=

Get structural information about the data using

TabularStructure

showing there are five distinct playing surfaces, 23k+ distinct scores, etc.:

In[2]:=

TabularStructure[data,All,{"ColumnType","NonMissingCount","MissingCount","CountDistinct"}]

Out[2]=

Get the IOC (International Olympic Committee) code of each winner's country:

In[3]:=

winnersIOC=data[All,"WinnerIOC"]

Out[3]=

TabularColumn

Element type: InertExpression

Length: 191920

Data not saved. Save now



Get the number of wins by country:

In[4]:=

Short[winCounts=ReverseSort[Counts[winnersIOC]]]

Out[4]//Short=



United States

39436,

Spain

15821,

Australia

15247,

France

12087,

Germany

9191,

Sweden

8355,

Argentina

8347,

Czech Republic

5844,

Italy

5700,109,

Oman

3,

Benin

3,

United Arab Emirates

2,

Niger

2,

Republic of Rhodesia

(1965 - 1979)

1,

Tajikistan

1,

Montenegro

1,

Guam

1,

Northern Mariana Islands

1

Plot the results as a

GeoBubbleChart

In[5]:=

GeoBubbleChartwinCounts,ChartElements



Out[5]=

To visualize the number of wins per country over the years, count the number of wins by the winner's IOC country code and year:

In[6]:=

Short[countsByCountry=CountsBy[data,{DateObject[{#TournamentDate["Year"]}],#WinnerIOC}&]]

Out[6]//Short=



Year: 1968

Australia

879,

Year: 1968

South Africa

283,3697,

Year: 2023

Cyprus

2,

Year: 2023

Tunisia

2

Then accumulate the number of wins over the years for each country:

In[7]:=

Short[countryData=Module[{countryGroup,years,counts},AssociationMap[Function[country,countryGroup=Select[Normal[countsByCountry],#〚1,2〛country&];years=countryGroup〚All,1,1〛;counts=Accumulate[Values/@countryGroup];AssociationThread[yearscounts]],Union[Normal[winnersIOC]]]]]

Out[7]//Short=



Algeria



Year: 1977

1,

Year: 1979

2,

Year: 1983

3,17,

Year: 2018

48,

Year: 2019

49,

Year: 2020

50,125,Missing[]1

Take the top 5 countries with the most wins:

In[8]:=

Short[largestByWins=TakeLargestBy[countryData,Last[#]&,5]]

Out[8]//Short=



United States



Year: 1968

1191,

Year: 1969

1976,

Year: 1970

2767,51,

Year: 2022

39074,

Year: 2023

39436,3,

Germany

1

Plot the results:

In[9]:=

DateListPlot[Values[largestByWins],PlotLegendsKeys[largestByWins],PlotRangeAll]

Out[9]=

Publisher Information

Contributed by: Felipe Amorim

Wolfram Language Example Repository

Tennis Match Wins by Country

See Also

Publisher Information

Tennis Match Wins by Country

See Also

Related Symbols

Publisher Information