Wolfram言語™

人口増加

大きさが異なるさまざまな国における時間の流れに沿った人口変化の詳細を，対数スケール軸を使って見る．

In[1]:=

populationData = {Callout[ CountryData["India", {"Population", {1920, 1990}}], "India", {Scaled[0.4], Above}], Callout[CountryData["Brazil", {"Population", {1920, 1990}}], "Brazil", Scaled[0.6]], Callout[CountryData["Mexico", {"Population", {1920, 1990}}], "Mexico", Scaled[0.8]]}; options = {ImageSize -> 250, PlotStyle -> 72, Filling -> {1 -> {2}, 2 -> {3}, 3 -> Axis}, FillingStyle -> 72};

In[2]:=

Grid[{{ DateListPlot[populationData, options], DateListPlot[populationData, options, ScalingFunctions -> "Log"]}}]

Out[2]=