南アメリカ諸国のハイパーインフレ率を解析する
Federal Reserve Economic DataのAPIに接続する.
In[1]:=
![Click for copyable input](assets.ja/analyze-hyperinflation-rates-of-south-american-cou/In_32.png)
fred = ServiceConnect["FederalReserveEconomicData"]
Out[1]=
![](assets.ja/analyze-hyperinflation-rates-of-south-american-cou/O_22.png)
南アメリカの国のリストを得る.
In[2]:=
![Click for copyable input](assets.ja/analyze-hyperinflation-rates-of-south-american-cou/In_33.png)
countries = CountryData["SouthAmerica"];
選択した国々についてインフレの時系列を取り出す.
In[3]:=
![Click for copyable input](assets.ja/analyze-hyperinflation-rates-of-south-american-cou/In_34.png)
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)]];
1960年から2015年までの期間において超インフレを経験した国々のプロットを作成する.
完全なWolfram言語入力を表示する
Out[4]=
![](assets.ja/analyze-hyperinflation-rates-of-south-american-cou/O_23.png)