Wolfram Research

Olympic Games Costs

Costs of the Olympic Games held from 1960 to 2014

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["3dc5e6b5-54f0-49c2-929f-02b8f4ce36bb"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["3dc5e6b5-54f0-49c2-929f-02b8f4ce36bb"]
Out[2]=

Visualization

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

In[3]:=
GeoRegionValuePlot[
 Total /@ DeleteMissing /@ GroupBy[ResourceData[
      "3dc5e6b5-54f0-49c2-929f-02b8f4ce36bb"], #CountryEntity &][All, All, #Cost &]]
Out[3]=

Plot costs per event over time:

In[4]:=
DateListPlot[
 GroupBy[ResourceData[
    "3dc5e6b5-54f0-49c2-929f-02b8f4ce36bb"], #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[
     "3dc5e6b5-54f0-49c2-929f-02b8f4ce36bb"], #Type == "Summer" &][
   All, "CountryEntity"];
winterHosts = Select[ResourceData[
     "3dc5e6b5-54f0-49c2-929f-02b8f4ce36bb"], #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[
      "3dc5e6b5-54f0-49c2-929f-02b8f4ce36bb"], #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