남미 국가의 초 인플레이션 분석: Wolfram Language 11의 신기능

‹›

남미 국가의 초 인플레이션 분석

Federal Reserve Economic Data API에 연결합니다.

In[1]:=

fred = ServiceConnect["FederalReserveEconomicData"]

Out[1]=

남미 국가의 목록을 얻습니다.

In[2]:=

countries = CountryData["SouthAmerica"];

선택한 국가에 대한 인플레이션의 시계열을 검색합니다.

In[3]:=

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 언어 입력 표시하기

In[4]:=

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

Wolfram 언어™

남미 국가의 초 인플레이션 분석

관련 예제