人口增长

使用对数坐标轴观察不同大小国家的人口随时间变化的详细情况.

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