Wolfram Language

Services externes

Analysez les tarifs d'hyperinflation des pays d'Amérique du Sud

Connectez-vous à l'API du Federal Reserve Economic Data.

In[1]:=
Click for copyable input
fred = ServiceConnect["FederalReserveEconomicData"]
Out[1]=

Obtenez une liste de pays d'Amérique du Sud.

In[2]:=
Click for copyable input
countries = CountryData["SouthAmerica"];

Récupérez l'inflation des séries temporelles des pays choisis.

In[3]:=
Click for copyable input
data = Association[DeleteMissing[Block[{source, id, ts, fts}, source = fred["SeriesSearch", "Query" -> # <> " inflation consumer price"]; If[Length[source] > 0, (id = source[1, "ID"]; ts = fred["SeriesData", "ID" -> id]; fts = TimeSeries[ts , MissingDataMethod -> Automatic]; # -> fts), Missing[#]] ] & /@ (EntityValue[#, "Name"] & /@ countries)]];

Créez le tracé de pays avec l'hyperinflation dans la période de 1960-2015.

Montrer l'entrée complète de Wolfram Language
In[4]:=
Click for copyable input
hyperinflation = Select[data, (Max[#["Values"]] > 1000 &)]; DateListLogPlot[Thread[Legended[Values[#], Keys[#]]] &@hyperinflation, Filling -> Axis, FrameStyle -> White, FrameLabel -> "Logscale of inflation", FrameTicks -> {{Automatic, None}, {Table[DateObject[{i}], {i, 1960, 2015, 5}], None}}, PlotRange -> Full, Background -> RGBColor[0.25, 0.25, 0.25], AspectRatio -> 1/2, DateTicksFormat -> "YearShort", ImageSize -> 480, GridLines -> {None, {{10, White}, {100, Pink}, {1000, Red}}}, GridLinesStyle -> {Thickness[Small], Dashed}]
Out[4]=

Exemples connexes

de en es ja ko pt-br ru zh