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]=

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

Source Metadata

Data Downloads