Olympic Games Costs

Costs of the Olympic Games held from 1960 to 2014

(11 columns, 30 rows)

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["Olympic Games Costs"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["Olympic Games Costs"]
Out[2]=

Visualization

See which countries have spent the most to host the Olympic Games:

In[3]:=
GeoRegionValuePlot[
 Total /@ DeleteMissing /@ GroupBy[ResourceData["Olympic Games Costs"], #CountryEntity &][All,
     All, #Cost &]]
Out[3]=

Plot costs per event over time:

In[4]:=
DateListPlot[
 GroupBy[ResourceData["Olympic Games Costs"], #Type &][All, All, {#Year, #Cost} &], PlotRange -> All, Filling -> Bottom]
Out[4]=

Plot the countries that have hosted both Winter and Summer Olympics:

In[5]:=
summerHosts = Select[ResourceData["Olympic Games Costs"], #Type == "Summer" &][
   All, "CountryEntity"];
winterHosts = Select[ResourceData["Olympic Games Costs"], #Type == "Winter" &][
   All, "CountryEntity"];
GeoListPlot[Intersection[summerHosts, winterHosts]]
Out[5]=

See which countries have hosted the most Olympic Games:

In[6]:=
BarChart[
 Counts /@ SortBy[GroupBy[
     ResourceData["Olympic Games Costs"], #CountryEntity &][All, All, #Type &], Length], ChartLayout -> "Stacked", BarOrigin -> Left, ChartLabels -> {Automatic, None}, ChartLegends -> {None, Automatic}]
Out[6]=

Analysis

Wolfram Research, "Olympic Games Costs" from the Wolfram Data Repository (2017)   https://doi.org/10.24097/wolfram.79874.data

License Information

https://arxiv.org/abs/1607.04484

Data Resource History

Source Metadata

Data Downloads

Publisher Information