Wolfram Language Example Repository
Ready-to-use examples of Wolfram Language
Population Pyramids
Retrieve population distribution data and visualize changes across different time periods and countries
A population pyramid represents the age and sex distribution of a country's population, where different countries often exhibit distinct population distributions. This example shows how to retrieve population distribution data directly from Wolfram|Alpha and visualize it across different time periods and countries.
Define a list of years:
In[1]:=
years=Range[1975,2025,5]
Out[1]=
{1975,1980,1985,1990,1995,2000,2005,2010,2015,2020,2025}
In[2]:=
waData=AssociationMap[WolframAlpha["US age distribution in"<>ToString[#],{{"AgeDistributionPyramidGraphic:AgeDistributionData",1},"ComputableData"}]&,years];Short[waData]
Out[2]//Short=
1975,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,9,2025,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
(0
to
4)yr
8455834
people
8074567
people
(5
to
9)yr
9063026
people
8724133
people
(10
to
14)yr
10469513
people
9994424
people
(15
to
19)yr
10778025
people
10384109
people
(20
to
24)yr
9936888
people
9732027
people
(25
to
29)yr
8743624
people
8731439
people
(30
to
34)yr
7236450
people
7140476
people
(35
to
39)yr
6033841
people
5933424
people
(40
to
44)yr
5815975
people
5685797
people
(45
to
49)yr
6014408
people
6100434
people
(50
to
54)yr
5955863
people
6197447
people
(55
to
59)yr
5222887
people
5624248
people
(60
to
64)yr
4470746
people
5053235
people
(65
to
69)yr
3634221
people
4623262
people
(70
to
74)yr
2634244
people
3586532
people
(75
to
79)yr
1684618
people
2692097
people
(80
to
84)yr
1016864
people
1834765
people
(85
to
89)yr
428849
people
870176
people
(90
to
94)yr
121235
people
295184
people
(95
to
99)yr
21209
people
56288
people
(100
to
∞)yr
2391
people
6475
people
(0
to
4)yr
10394420
people
9945855
people
(5
to
9)yr
10103487
people
9672526
people
(10
to
14)yr
10285877
people
9843776
people
(15
to
19)yr
11001063
people
10569911
people
(20
to
24)yr
11222061
people
10855001
people
(25
to
29)yr
11652928
people
11333959
people
(30
to
34)yr
12343116
people
11956253
people
(35
to
39)yr
11796316
people
11498680
people
(40
to
44)yr
10871932
people
10817106
people
(45
to
49)yr
10054287
people
10162552
people
(50
to
54)yr
9800448
people
9991025
people
(55
to
59)yr
9994384
people
10065932
people
(60
to
64)yr
10168642
people
10514879
people
(65
to
69)yr
9325736
people
10145189
people
(70
to
74)yr
7594651
people
8720659
people
(75
to
79)yr
5635546
people
6884341
people
(80
to
84)yr
3324930
people
4461544
people
(85
to
89)yr
1815294
people
2622146
people
(90
to
94)yr
754913
people
1335639
people
(95
to
99)yr
223856
people
505932
people
(100
to
∞)yr
31324
people
101488
people
In[3]:=
agePyramidData=Map[AssociationThread[{"Age","Male","Female"},Transpose[#]]&,waData];Short[agePyramidData]
Out[3]//Short=
1975Age,,,,,,,,,,,,,,,,,,,,,Male,,,,,,,,,,,,,,,,,,,,,Female,,,,,,,,,,,,,,,,,,,,,1980Age,,,,,,,,,,,,,,,,,,,,,Male,,,,,,,,,,,,,,,,,,,,,Female,,,,,,,,,,,,,,,,,,,,,8,2025Age,,,,,,,,,,,,,,,,,,,,,Male,,,,,,,,,,,,,,,,,,,,,Female,,,,,,,,,,,,,,,,,,,,
(0
to
4)yr
(5
to
9)yr
(10
to
14)yr
(15
to
19)yr
(20
to
24)yr
(25
to
29)yr
(30
to
34)yr
(35
to
39)yr
(40
to
44)yr
(45
to
49)yr
(50
to
54)yr
(55
to
59)yr
(60
to
64)yr
(65
to
69)yr
(70
to
74)yr
(75
to
79)yr
(80
to
84)yr
(85
to
89)yr
(90
to
94)yr
(95
to
99)yr
(100
to
∞)yr
8455834
people
9063026
people
10469513
people
10778025
people
9936888
people
8743624
people
7236450
people
6033841
people
5815975
people
6014408
people
5955863
people
5222887
people
4470746
people
3634221
people
2634244
people
1684618
people
1016864
people
428849
people
121235
people
21209
people
2391
people
8074567
people
8724133
people
9994424
people
10384109
people
9732027
people
8731439
people
7140476
people
5933424
people
5685797
people
6100434
people
6197447
people
5624248
people
5053235
people
4623262
people
3586532
people
2692097
people
1834765
people
870176
people
295184
people
56288
people
6475
people
(0
to
4)yr
(5
to
9)yr
(10
to
14)yr
(15
to
19)yr
(20
to
24)yr
(25
to
29)yr
(30
to
34)yr
(35
to
39)yr
(40
to
44)yr
(45
to
49)yr
(50
to
54)yr
(55
to
59)yr
(60
to
64)yr
(65
to
69)yr
(70
to
74)yr
(75
to
79)yr
(80
to
84)yr
(85
to
89)yr
(90
to
94)yr
(95
to
99)yr
(100
to
∞)yr
8547621
people
8690319
people
9692466
people
10985213
people
10929571
people
9998052
people
8794381
people
6783284
people
5926516
people
5417424
people
5632385
people
5520304
people
4789296
people
4094181
people
2933125
people
2150709
people
943891
people
505849
people
155004
people
28952
people
3239
people
8032156
people
8150446
people
8916537
people
10206011
people
10621793
people
9917118
people
8957883
people
7147012
people
5983843
people
5687806
people
6072310
people
6113344
people
5443734
people
4870903
people
4126845
people
3137122
people
1928991
people
1137316
people
402777
people
90354
people
10276
people
(0
to
4)yr
(5
to
9)yr
(10
to
14)yr
(15
to
19)yr
(20
to
24)yr
(25
to
29)yr
(30
to
34)yr
(35
to
39)yr
(40
to
44)yr
(45
to
49)yr
(50
to
54)yr
(55
to
59)yr
(60
to
64)yr
(65
to
69)yr
(70
to
74)yr
(75
to
79)yr
(80
to
84)yr
(85
to
89)yr
(90
to
94)yr
(95
to
99)yr
(100
to
∞)yr
10394420
people
10103487
people
10285877
people
11001063
people
11222061
people
11652928
people
12343116
people
11796316
people
10871932
people
10054287
people
9800448
people
9994384
people
10168642
people
9325736
people
7594651
people
5635546
people
3324930
people
1815294
people
754913
people
223856
people
31324
people
9945855
people
9672526
people
9843776
people
10569911
people
10855001
people
11333959
people
11956253
people
11498680
people
10817106
people
10162552
people
9991025
people
10065932
people
10514879
people
10145189
people
8720659
people
6884341
people
4461544
people
2622146
people
1335639
people
505932
people
101488
people
In[4]:=
year=1975;PairedBarChartagePyramidData[year,"Male"],agePyramidData[year,"Female"],
Out[4]=
Compare how the population distribution changes over the years:
In[5]:=
ManipulatePairedBarChartagePyramidData[year,"Male"],agePyramidData[year,"Female"],
,{year,years},SaveDefinitionsTrue
Out[5]=
| |||||
| |||||
The process used above to retrieve and reformat the data can be combined into a single function for convenience:
In[6]:=
getAgeDistribution[country_]:=Map[AssociationThread[{"Age","Male","Female"},Transpose[#]]&,AssociationMap[WolframAlpha[country<>" age distribution "<>ToString[#],{{"AgeDistributionPyramidGraphic:AgeDistributionData",1},"ComputableData"}]&,years]];
Use it to retrieve population data for different countries (this may take some time):
In[7]:=
countriesData=With[{countries={"United States","Brazil","Japan","Italy","Nigeria","Qatar"}},AssociationMap[getAgeDistribution,countries]];Short[countriesData]
Out[7]//Short=
United States1975Age,,,,,,,,,,,,,,,,,,,,,Male,,,,,,,,,,,,,,,,,,,,,Female,,,,,,,,,,,,,,,,,,,,,9,2025Age,,,,,,,,,,,,,,,,,,,,,Male,,,,,,,,,,,,,,,,,,,,,Female,,,,,,,,,,,,,,,,,,,,,4,Qatar1975Age,,,,,,,,,,,,,,,,,,,,,Male1,Female,,,,,,,,,,,,,,,,,,,,,10
(0
to
4)yr
(5
to
9)yr
(10
to
14)yr
(15
to
19)yr
(20
to
24)yr
(25
to
29)yr
(30
to
34)yr
(35
to
39)yr
(40
to
44)yr
(45
to
49)yr
(50
to
54)yr
(55
to
59)yr
(60
to
64)yr
(65
to
69)yr
(70
to
74)yr
(75
to
79)yr
(80
to
84)yr
(85
to
89)yr
(90
to
94)yr
(95
to
99)yr
(100
to
∞)yr
8455834
people
9063026
people
10469513
people
10778025
people
9936888
people
8743624
people
7236450
people
6033841
people
5815975
people
6014408
people
5955863
people
5222887
people
4470746
people
3634221
people
2634244
people
1684618
people
1016864
people
428849
people
121235
people
21209
people
2391
people
8074567
people
8724133
people
9994424
people
10384109
people
9732027
people
8731439
people
7140476
people
5933424
people
5685797
people
6100434
people
6197447
people
5624248
people
5053235
people
4623262
people
3586532
people
2692097
people
1834765
people
870176
people
295184
people
56288
people
6475
people
(0
to
4)yr
(5
to
9)yr
(10
to
14)yr
(15
to
19)yr
(20
to
24)yr
(25
to
29)yr
(30
to
34)yr
(35
to
39)yr
(40
to
44)yr
(45
to
49)yr
(50
to
54)yr
(55
to
59)yr
(60
to
64)yr
(65
to
69)yr
(70
to
74)yr
(75
to
79)yr
(80
to
84)yr
(85
to
89)yr
(90
to
94)yr
(95
to
99)yr
(100
to
∞)yr
10394420
people
10103487
people
10285877
people
11001063
people
11222061
people
11652928
people
12343116
people
11796316
people
10871932
people
10054287
people
9800448
people
9994384
people
10168642
people
9325736
people
7594651
people
5635546
people
3324930
people
1815294
people
754913
people
223856
people
31324
people
9945855
people
9672526
people
9843776
people
10569911
people
10855001
people
11333959
people
11956253
people
11498680
people
10817106
people
10162552
people
9991025
people
10065932
people
10514879
people
10145189
people
8720659
people
6884341
people
4461544
people
2622146
people
1335639
people
505932
people
101488
people
(0
to
4)yr
(5
to
9)yr
(10
to
14)yr
(15
to
19)yr
(20
to
24)yr
(25
to
29)yr
(30
to
34)yr
(35
to
39)yr
(40
to
44)yr
(45
to
49)yr
(50
to
54)yr
(55
to
59)yr
(60
to
64)yr
(65
to
69)yr
(70
to
74)yr
(75
to
79)yr
(80
to
84)yr
(85
to
89)yr
(90
to
94)yr
(95
to
99)yr
(100
to
∞)yr
11120
people
8438
people
6432
people
5388
people
4729
people
4067
people
3545
people
2878
people
2198
people
1557
people
1249
people
1000
people
822
people
659
people
469
people
297
people
149
people
65
people
25
people
7
people
1
person
Combine the data and compare populations of different countries:
See Also
Related Symbols
Publisher Information
- Contributed by: Wolfram Research