Passage 24 A #2

The World Population

We have seen that the world population has reached 7.7 billion in 2019.

We connect to a data base to retrieve various data.

CountryData["World","Population"]

CountryData["World",{"Population",1970}]

CountryData["World",{"Population",2010}]

CountryData["World",{"Population",2019}]

EntityValue[Entity["Country","World"],
EntityProperty["Country","Population",{"Date"->DateObject[{2019}]}]]

dataWorld=CountryData["World",{"Population",All}]

DateListPlot[dataWorld,PlotMarkers->Automatic]

The world population has been increasing steadily. How is the annual population growth rate?

Annual population growth rate is usually defined as follows

Pop growth rate = Annual increase / Pop size = (P(t+1) – P(t)) / P(t)

For example, when P(0) = 100, P(1) = 102, population growth rate in year t = 0 is (102 - 100)/100 = 0.02 = 2%.

Let us calculate the  growth rate of the world population in the past using the data downloaded from UN.

Country by country population

Today, we are going to see population country by country. Let' s start with Japan.

CountryData["Japan","Population"]

dataJP=CountryData["Japan",{"Population",All}]

Data is available since 1600!

DateListPlot[dataJP,PlotMarkers->Automatic]

Some data are missing during the war. Japanese population had been increasing every year after the war. But it has just started to decline.

DateListPlot[dataJP,PlotMarkers->Automatic,PlotRange->{{DateList["1900"],DateList["2017"]},All}]

DateListPlot[dataJP,PlotMarkers->Automatic,PlotRange->{{DateList["1990"],DateList["2017"]},{1.2 10^8,1.3 10^8}}]

Let' s see the population of USA.

CountryData["USA","Population"]

dataUSA=CountryData["USA",{"Population",All}]

DateListPlot[dataUSA,PlotMarkers->Automatic]

It' s obvious that USA is much more populous than Japan and it is still increasing in the population.

DateListPlot[{dataJP,dataUSA},PlotMarkers->Automatic]

How about China, the most populous country in the world?

CountryData["China","Population"]

dataChina=CountryData["China",{"Population",All}]

DateListPlot[dataChina,PlotMarkers->Automatic]

DateListPlot[{dataJP,dataUSA,dataChina},PlotMarkers->Automatic]

The database has various information about many countries.

CountryData["Countries"]

CountryData["Bangladesh","Population"]

data=CountryData["Bangladesh",{"Population",All}]

DateListPlot[data,PlotMarkers->Automatic]

CountryData["Bangladesh","Shape"]

CountryData["Japan","Population"]

CountryData["Japan","Shape"]

CountryData["Japan","LifeExpectancy"]

CountryData["France","Shape"]

DateListPlot[CountryData["France",{"Population",All}],PlotMarkers->Automatic]

CountryData["Properties"]

"Total fertility rate" TFR is the averaged number of children a woman has in her life. TFR has to be larger than 2 for a population to sustain itself. We will later learn about this fact in this course.

CountryData["Japan","TotalFertilityRate"]

DateListPlot[CountryData["Japan",{"TotalFertilityRate",All}],PlotMarkers->Automatic]

CountryData["USA","TotalFertilityRate"]

DateListPlot[CountryData["USA",{"TotalFertilityRate",All}],PlotMarkers->Automatic]

CountryData["Japan","LifeExpectancy"]

CountryData["USA","LifeExpectancy"]

Distribution of the populations by country

Let' s see which country has how many people.

dataPopSizes=CountryData["Countries","Population"];

Let' s draw "histogram" of the populations of each country.

Histogram[dataPopSizes,PlotRange->All]

Histogram[dataPopSizes,PlotRange->{All,{0,5}}]

China is top ranked and India is the next.

CountryData["China","Population"]

CountryData["India","Population"]

CountryData["USA","Population"]

List the top ten countries in terms of the population size.

dataName=CountryData["Countries","Name"];
Take[SortBy[Transpose[{dataName,dataPopSizes}],Last]//Reverse,10]

How about GDP?

dataGDP=CountryData["Countries","GDP"];

Histogram[dataGDP,PlotRange->All]

Histogram[dataGDP,PlotRange->{All,{0,5}}]

dataName=CountryData["Countries","Name"];
data={dataName,dataGDP}//Transpose;

Take[SortBy[data,Last]//Reverse,10]

Examples just for fun!

CountryData["World","Shape"]

Which country is member of G7, Group of Seven?

g7=CountryData["G7"]

CountryData[#,"Population"]& /@g7

CountryData[#,"GDP"]& /@g7

CountryData[#,"PopulationGrowth"]& /@g7

CountryData[#,"Area"]& /@g7

Draw country flags in proportion to the population size

cdata=CountryData["Countries","Population"];
fdata=CountryData["Countries","Flag"];

cdata;

fdata;

list=Thread[ cdata->fdata];

list;

ImageCollage[list,ImagePadding->2,Background->GrayLevel[.8],ImageSize->500]

For other interesting examples about demography, visit URL :

http://demonstrations.wolfram.com/topic.html?topic=Demography & limit=20