Racket Plot: Energy Use and Life Expectancy
In Miyazaki last Friday, Hiroaki Koide(小出裕章) gave a speech on the dangers of nuclear power, and the responsibilities to stop it cold and clean it up. It was a thought-provoking presentation in a lot of ways. The event motivated me to work with an interesting visualization of the relations between Energy Use and Life Expectancy in Hiroaki Koide's 2010 book 「隠される原子力、 核の真実」 I have been wanting to work with it for years and finally got it started with Racket Plot over the weekend.
Over the next week or I'll take a look at the book he used for the data, but in the meantime I made a similar plot with on-line data. His point is important: that some countries consume too much energy, while other countries do not consume enough to sustain human life, and that after a certain point increased energy use does not bring greater benefits.
This data and exploration is a worthwhile task to help in learning Racket and Data Visualization..
This is just a practice script. I still don't know how to webscrape with Racket, so I used R's rvest to get data tables from Wikipedia and Statistics Times. The most complete data on Energy Use from Wikipedia is for 2003. I imagine the Life Expectancy Data is more recent. But, shapes seen in the graph, the general relationship seems pretty much the same with the data I found on-line (just for practice) and the data from the serious book 世界国勢図解 that he used. His point that some countries don't have the daily per-capital energy consumption to maintain, that point is better made with kilocalories as the unit. But if I get more appropriate data, I just have to get it into .csv files that follow the same convention that the script expects...
Racket Code
#lang racket
;; use org tables to generate .csv data, easier to alphabetize and visually edit and org-table than a Racket list
(current-directory-for-user "/home/brian/Racket/Earth-Data/")
;; (define Ener-Cons-File-Name "WikipediaEnergyConsumption20190523.csv")
(define Energy-Data-File "EnergyConsumption2003W.csv")
(define Expectancy-Data-File "LifeExpectancyOnly.csv")
(define Country-Groups-File "CountryRegions.csv")
(define Countries-Label-File "LabelCountries.csv")
(define Region-Symbols-File "RegionSymbols.csv")
(define get-path
(lambda (file-name)
(build-path (current-directory-for-user) file-name)))
(define get-data
(lambda (pth)
(let* ((inp (open-input-file pth))
(lines (port->lines inp)))
(close-input-port inp)
(map (lambda (s) (string-split
(regexp-replace* "\"" s "")
","))
lines))))
(define csvf->dict
(lambda (file-name)
(get-data (get-path file-name))))
(define ExpectancyDict (csvf->dict Expectancy-Data-File))
(define EnergyDict (csvf->dict Energy-Data-File))
(define RegionDict (csvf->dict Country-Groups-File))
(define LabelDict (csvf->dict Countries-Label-File))
(define RegionSymbols (csvf->dict Region-Symbols-File))
(require racket/dict)
;; for dict-ref, dict-has-key?, dict-keys dict-map
;; no need for als-ref from Chicken Scheme
(define dict-num
(lambda (dct key)
(string->number (car (dict-ref dct key)))))
;; ^_ macro pattern here?
(define dict-sym
(lambda (dct key)
(string->symbol (car (dict-ref dct key)))))
(define dicts-vec-num
(lambda (d1 d2 key)
(vector (dict-num d1 key) (dict-num d2 key))))
(define dict-plot-anchor
(lambda (dct key)
(if (dict-has-key? dct key)
(string->symbol (car (dict-ref dct key)))
"")))
#;(define plot-label
(lambda (elmnt)
(if (dict? (car elmnt))
(dict-plot-label (first elmnt) (second elemnt)))))
(require plot)
(define dicts->shared-dict
(lambda (d1 d2)
(let ((ds '()))
(dict-for-each d1
(lambda (k v)
(when (dict-has-key? d2 k)
(set! ds (cons (list k (vector
(dict-num d1 k)
(dict-num d2 k)))
ds)))))
ds)))
(define EnerExpecVecs
(dicts->shared-dict EnergyDict ExpectancyDict))
(define RegionSyms->pointlabels
(lambda (dct)
(let ((d (cdr dct)))
(map (lambda (k)
(let* ((ref (dict-ref d k))
(x (string->number (second ref)))
(y (string->number (third ref)))
(vec (vector x y))
(symb (string->symbol (car (dict-ref d k)))))
(point-label vec k #:point-color 'gray)
(points vec #:sym symb #:label k)))
(dict-keys d)))))
(parameterize ((plot-x-far-axis? #f)
(plot-y-far-axis? #f))
(plot (list
(tick-grid)
(lines-interval (list #(1694 73) #(17200 73)) (list #(1694 86) #(17200 86))
#:color 4 #:line1-color 4 #:line2-color 4 #:label "Over-Energized")
(lines-interval (list #(0 52) #(1500 52)) (list #(0 86) #(1500 86))
#:color 1 #:line1-color 1 #:line2-color 1 #:label "Under-Energized")
#;(points (map car (dict-values EnerExpecVecs)))
(map (lambda (k) (if (dict-has-key? RegionDict k)
(let ((region (car (dict-ref RegionDict k))))
(points (dict-ref EnerExpecVecs k)
#:sym (string->symbol (car (dict-ref RegionSymbols region)))
#:size 8))
(points (dict-ref EnerExpecVecs k)
#:sym 'circle)))
(dict-keys EnerExpecVecs))
(map (lambda (k) (point-label (car (dict-ref EnerExpecVecs k))
k
#:anchor (dict-plot-anchor LabelDict k)
#:point-color 'red))
(dict-keys (cdr LabelDict)))
(RegionSyms->pointlabels RegionSymbols)
)
#:x-min -500
#:x-max 17250
#:y-min 50
#:y-max 87
#:x-label "Energy W"
#:y-label "Life Expectancy 平均寿命"
#:width 1200
#:height 800
#:legend-anchor 'bottom-right
#:out-file "EnergyW-LifeExpetancyY-3.png"
#:out-kind 'png
))
Data
I used org-mode tables to work with the .csv files that R's rvest provided. It was nice to adjust the point-labels in and org-table, and then export to .csv . It's not ggrepel, but in this case it was interesting to see where different countries are in relation to one another. With DrRacket's zoom function, later I might label all the points. The plot wouldn't be good for printing, but it might be interesting to zoom around in...
Country Regions
Kazakhstan,Central Asia
Kyrgyzstan,Central Asia
Tajikistan,Central Asia
Turkmenistan,Central Asia
Uzbekistan,Central Asia
China,Eastern Asia
Hong Kong,Eastern Asia
Macao,Eastern Asia
North Korea,Eastern Asia
Japan,Eastern Asia
Mongolia,Eastern Asia
South Korea,Eastern Asia
Afghanistan,Southern Asia
Bangladesh,Southern Asia
Bhutan,Southern Asia
India,Southern Asia
Iran,Southern Asia
Maldives,Southern Asia
Nepal,Southern Asia
Pakistan,Southern Asia
Sri Lanka,Southern Asia
Brunei Darussalam,South-Eastern Asia
Cambodia,South-Eastern Asia
Indonesia,South-Eastern Asia
Laos,South-Eastern Asia
Malaysia,South-Eastern Asia
Myanmar,South-Eastern Asia
Philippines,South-Eastern Asia
Singapore,South-Eastern Asia
Thailand,South-Eastern Asia
Timor-Leste,South-Eastern Asia
Viet Nam,South-Eastern Asia
Armenia,Western Asia
Azerbaijan,Western Asia
Bahrain,Western Asia
Cyprus,Western Asia
Georgia,Western Asia
Iraq,Western Asia
Israel,Western Asia
Jordan,Western Asia
Kuwait,Western Asia
Lebanon,Western Asia
Oman,Western Asia
Qatar,Western Asia
Saudi Arabia,Western Asia
State of Palestine,Western Asia
Syrian Arab Republic,Western Asia
Turkey,Western Asia
United Arab Emirates,Western Asia
Yemen,Western Asia
Burundi,Eastern Africa
Comoros,Eastern Africa
Djibouti,Eastern Africa
Eritrea,Eastern Africa
Ethiopia,Eastern Africa
Kenya,Eastern Africa
Madagascar,Eastern Africa
Malawi,Eastern Africa
Mauritius,Eastern Africa
Mayotte,Eastern Africa
Mozambique,Eastern Africa
Réunion,Eastern Africa
Rwanda,Eastern Africa
Seychelles,Eastern Africa
Somalia,Eastern Africa
South Sudan,Eastern Africa
Uganda,Eastern Africa
United Republic of Tanzania,Eastern Africa
Zambia,Eastern Africa
Zimbabwe,Eastern Africa
Angola,Middle Africa
Cameroon,Middle Africa
Central African Republic,Middle Africa
Chad,Middle Africa
Congo,Middle Africa
Democratic Republic of the Congo,Middle Africa
Equatorial Guinea,Middle Africa
Gabon,Middle Africa
Sao Tome and Principe,Middle Africa
Algeria,Northern Africa
Egypt,Northern Africa
Libya,Northern Africa
Morocco,Northern Africa
Sudan,Northern Africa
Tunisia,Northern Africa
Western Sahara,Northern Africa
Botswana,Southern Africa
Lesotho,Southern Africa
Namibia,Southern Africa
South Africa,Southern Africa
Swaziland,Southern Africa
Benin,Western Africa
Burkina Faso,Western Africa
Cabo Verde,Western Africa
Cote d'Ivoire,Western Africa
Gambia,Western Africa
Ghana,Western Africa
Guinea,Western Africa
Guinea-Bissau,Western Africa
Liberia,Western Africa
Mali,Western Africa
Mauritania,Western Africa
Niger,Western Africa
Nigeria,Western Africa
Saint Helena,Western Africa
Senegal,Western Africa
Sierra Leone,Western Africa
Togo,Western Africa
Argentina,South America
Bolivia (Plurinational State of),South America
Brazil,South America
Chile,South America
Colombia,South America
Ecuador,South America
Falkland Islands (Malvinas),South America
French Guiana,South America
Guyana,South America
Paraguay,South America
Peru,South America
Suriname,South America
Uruguay,South America
Venezuela (Bolivarian Republic of),South America
Anguilla,Caribbean
Antigua and Barbuda,Caribbean
Aruba,Caribbean
Bahamas,Caribbean
Barbados,Caribbean
"Bonaire, Saint Eustatius and Saba",Caribbean
British Virgin Islands,Caribbean
Cayman Islands,Caribbean
Cuba,Caribbean
Curaçao,Caribbean
Dominica,Caribbean
Dominican Republic,Caribbean
Grenada,Caribbean
Guadeloupe,Caribbean
Haiti,Caribbean
Jamaica,Caribbean
Martinique,Caribbean
Montserrat,Caribbean
Puerto Rico,Caribbean
Saint-Barthélemy,Caribbean
Saint Kitts and Nevis,Caribbean
Saint Lucia,Caribbean
Saint Martin (French part),Caribbean
Saint Vincent and the Grenadines,Caribbean
Sint Maarten (Dutch part),Caribbean
Trinidad and Tobago,Caribbean
Turks and Caicos Islands,Caribbean
United States Virgin Islands,Caribbean
Belize,Central America
Costa Rica,Central America
El Salvador,Central America
Guatemala,Central America
Honduras,Central America
Mexico,Central America
Nicaragua,Central America
Panama,Central America
Bermuda,Northern America
Canada,Northern America
Greenland,Northern America
Saint Pierre and Miquelon,Northern America
United States of America,Northern America
Australia,Australia and New Zealand
New Zealand,Australia and New Zealand
Norfolk Island,Australia and New Zealand
Fiji,Melanesia
New Caledonia,Melanesia
Papua New Guinea,Melanesia
Solomon Islands,Melanesia
Vanuatu,Melanesia
Guam,Micronesia
Kiribati,Micronesia
Marshall Islands,Micronesia
Micronesia (Federated States of),Micronesia
Nauru,Micronesia
Northern Mariana Islands,Micronesia
Palau,Micronesia
American Samoa,Polynesia
Cook Islands,Polynesia
French Polynesia,Polynesia
Niue,Polynesia
Pitcairn,Polynesia
Samoa,Polynesia
Tokelau,Polynesia
Tonga,Polynesia
Tuvalu,Polynesia
Wallis and Futuna Islands,Polynesia
Belarus,Eastern Europe
Bulgaria,Eastern Europe
Czech Republic,Eastern Europe
Hungary,Eastern Europe
Poland,Eastern Europe
Republic of Moldova,Eastern Europe
Romania,Eastern Europe
Russian Federation,Eastern Europe
Slovakia,Eastern Europe
Ukraine,Eastern Europe
Albania,Southern Europe
Andorra,Southern Europe
Bosnia and Herzegovina,Southern Europe
Croatia,Southern Europe
Gibraltar,Southern Europe
Greece,Southern Europe
Holy See,Southern Europe
Italy,Southern Europe
Malta,Southern Europe
Montenegro,Southern Europe
Portugal,Southern Europe
San Marino,Southern Europe
Serbia,Southern Europe
Slovenia,Southern Europe
Spain,Southern Europe
The former Yugoslav Republic of Macedonia,Southern Europe
Åland Islands,Northern Europe
Channel Islands,Northern Europe
Denmark,Northern Europe
Estonia,Northern Europe
Faeroe Islands,Northern Europe
Finland,Northern Europe
Guernsey,Northern Europe
Iceland,Northern Europe
Ireland,Northern Europe
Isle of Man,Northern Europe
Jersey,Northern Europe
Latvia,Northern Europe
Lithuania,Northern Europe
Norway,Northern Europe
Sark,Northern Europe
Svalbard and Jan Mayen Islands,Northern Europe
Sweden,Northern Europe
United Kingdom of Great Britain,Northern Europe
Austria,Western Europe
Belgium,Western Europe
France,Western Europe
Germany,Western Europe
Liechtenstein,Western Europe
Luxembourg,Western Europe
Monaco,Western Europe
Netherlands,Western Europe
Switzerland,Western Europe
Energy Use
Country/Territory,2003 W
Afghanistan,119.8
Albania,863.2
Algeria,1515.5
Angola,953.9
Argentina,2458.9
Armenia,1052.9
Australia,7446.8
Austria,5370.3
Azerbaijan,1740.8
Bahrain,10323.2
Bangladesh,278.1
Belarus,3890.4
Belgium,7436.6
Benin,549.6
Bolivia,981.7
Bosnia and Herzegovina,2267.9
Botswana,1501.6
Brazil,1814.1
Brunei Darussalam,11061.9
Bulgaria,3155.6
Cambodia,473.1
Cameroon,482.9
Canada,9825.2
Chile,2405.5
China,2405.5
Colombia,927.1
Congo,963.4
Costa Rica,1328.5
Cote d'Ivoire,645.6
Croatia,2572.2
Cuba,1298.5
Cyprus,2949.3
Czech Republic,5582.3
Denmark,4620.5
Dominican Republic,1118.4
Ecuador,1113.5
Egypt,1202.4
El Salvador,901.2
Eritrea,188.7
Estonia,5531.3
Ethiopia,532.9
Finland,9036.5
France,5366.2
Gabon,1887.4
Georgia,3142.8
Germany,5329.9
Ghana,508.9
Greece,3249.3
Guatemala,949.0
Haiti,304.9
Honduras,800.1
Hong Kong,2598.0
Hungary,3417.3
Iceland,22477.4
India,753.1
Indonesia,1153.7
Iran,3750.2
Iraq,1571.4
Ireland,4284.0
Israel,4001.3
Italy,3747.4
Jamaica,1504.7
Japan,5190.3
Jordan,1586.2
Kazakhstan,6118.0
Kenya,642.9
North Korea,1013.4
South Korea,6736.8
Kosovo[6],1826.9
Kuwait,16248.8
Kyrgyzstan,713.2
Latvia,2624.6
Lebanon,2031.8
Libya,4011.5
Lithuania,2805.2
Luxembourg,11107.3
Macedonia,1867.0
Malaysia,3405.5
Malta,2680.0
Mexico,2090.8
Moldova,972.8
Mongolia,1582.6
Montenegro,1735.5
Morocco,687.9
Mozambique,580.5
Myanmar,388.6
Namibia,935.3
Nepal,454.1
Netherlands,6685.0
New Zealand,5547.2
Nicaragua,721.6
Nigeria,950.1
Norway,8837.0
Oman,9569.7
Pakistan,648.8
Panama,1428.2
Paraguay,987.7
Peru,888.2
Philippines,577.8
Poland,3537.5
Portugal,2946.5
Qatar,17041.2
Romania,2173.1
Russia,6581.2
Saudi Arabia,8212.0
Senegal,362.1
Serbia,2850.5
Singapore,8595.2
Slovakia,4367.6
Slovenia,4686.7
South Africa,3645.1
Spain,3691.5
Sri Lanka,636.3
Sudan,493.9
Sweden,7280.4
Switzerland,4458.5
Syrian Arab Republic,1415.2
Tajikistan,446.7
Tanzania,596.1
Thailand,2261.9
Togo,593.9
Trinidad and Tobago,21187.0
Tunisia,1215.3
Turkey,1924.0
Turkmenistan,5626.3
Ukraine,3787.7
United Arab Emirates,11012.6
United Kingdom,4332.5
United States,9538.8
Uruguay,1652.1
Uzbekistan,2041.1
Venezuela,3553.0
Vietnam,907.2
Yemen,396.6
Zambia,835.9
Zimbabwe,1017.2
Life Expectancy
Country and regions,Expectancy,Female,Male,HALE
Afghanistan,60.5,61.9,59.3,52.2
Albania,77.8,80.7,75.1,68.8
Algeria,75.6,77.5,73.8,66
Angola,52.4,54,50.9,45.8
Antigua and Barbuda,76.4,78.6,74.1,67.5
Argentina,76.3,79.9,72.7,67.6
Armenia,74.8,77.7,71.6,66.8
Australia,82.8,84.8,80.9,71.9
Austria,81.5,83.9,79,72
Azerbaijan,72.7,75.8,69.6,64.7
Bahamas,76.1,79.1,72.9,66.6
Bahrain,76.9,77.9,76.2,67
Bangladesh,71.8,73.1,70.6,62.3
Barbados,75.5,77.9,73.1,66.6
Belarus,72.3,78,66.5,65.1
Belgium,81.1,83.5,78.6,71.1
Belize,70.1,73.1,67.5,62.3
Benin,60,61.1,58.8,52.5
Bhutan,69.8,70.1,69.5,61.2
Bolivia,70.7,73.3,68.2,62.2
Bosnia and Herzegovina,77.4,79.7,75,68.6
Botswana,65.7,68.1,63.3,56.9
Brazil,75,78.7,71.4,65.5
Brunei,77.7,79.2,76.3,70.4
Bulgaria,74.5,78,71.1,66.4
Burkina Faso,59.9,60.5,59.1,52.6
Burundi,59.6,61.6,57.7,52.2
Cambodia,68.7,70.7,66.6,58.9
Cameroon,57.3,58.6,55.9,50.3
Canada,82.2,84.1,80.2,72.3
Cape Verde,73.3,75,71.3,64.4
Central African Republic,52.5,54.1,50.9,45.9
Chad,53.1,54.5,51.7,46.1
Chile,80.5,83.4,77.4,70.4
China,76.1,77.6,74.6,68.5
Colombia,74.8,78.4,71.2,65.1
Comoros,63.5,65.2,61.9,55.9
Congo,64.7,66.3,63.2,56.6
Costa Rica,79.6,82.2,77.1,69.7
Cote d'Ivoire,53.3,54.4,52.3,47
Croatia,78,81.2,74.7,69.4
Cuba,79.1,81.4,76.9,69.2
Cyprus,80.5,82.7,78.3,71.3
Czech Republic,78.8,81.7,75.9,69.4
Denmark,80.6,82.5,78.6,71.2
Djibouti,63.5,65.3,61.8,55.8
Dominican Republic,73.9,77.1,70.9,65.1
DR Congo,59.8,61.5,58.3,51.7
Ecuador,76.2,79,73.5,67
Egypt,70.9,73.2,68.8,62.2
El Salvador,73.5,77.9,68.8,64.1
Equatorial Guinea,58.2,60,56.6,51.2
Eritrea,64.7,67,62.4,55.9
Estonia,77.6,82,72.7,68.9
Eswatini (Swaziland),58.9,61.1,56.6,50.9
Ethiopia,64.8,66.8,62.8,56.1
Fiji,69.9,73.1,67,62.9
Finland,81.1,83.8,78.3,71
France,82.4,85.4,79.4,72.6
Gabon,66,67.2,64.7,57.2
Gambia,61.1,62.5,59.8,53.8
Georgia,74.4,78.3,70.3,66.5
Germany,81,83.4,78.7,71.3
Ghana,62.4,63.9,61,55.3
Greece,81,83.6,78.3,71.9
Grenada,73.6,76.1,71.2,65
Guatemala,71.9,75.2,68.5,62.1
Guinea,59,59.8,58.2,51.7
Guinea-Bissau,58.9,60.5,57.2,51.5
Guyana,66.2,68.5,63.9,58.9
Haiti,63.5,65.5,61.5,55.4
Honduras,74.6,77,72.3,64.9
Hungary,75.9,79.1,72.3,67.4
Iceland,82.7,84.1,81.2,72.7
India,68.3,69.9,66.9,59.5
Indonesia,69.1,71.2,67.1,62.2
Iran,75.5,76.6,74.5,66.6
Iraq,68.9,71.8,66.2,60
Ireland,81.4,83.4,79.4,71.5
Israel,82.5,84.3,80.6,72.8
Italy,82.7,84.8,80.5,72.8
Jamaica,76.2,78.6,73.9,66.9
Japan,83.7,86.8,80.5,74.9
Jordan,74.1,75.9,72.5,65
Kazakhstan,70.2,74.7,65.7,63.3
Kenya,63.4,65.8,61.1,55.6
Kiribati,66.3,68.8,63.7,59.1
Kuwait,74.7,76,73.7,65.8
Kyrgyzstan,71.1,75.1,67.2,63.8
Laos,65.7,67.2,64.1,57.9
Latvia,74.6,79.2,69.6,67.1
Lebanon,74.9,76.5,73.5,65.7
Lesotho,53.7,55.4,51.7,46.6
Liberia,61.4,62.9,59.8,52.7
Libya,72.7,75.6,70.1,63.8
Lithuania,73.6,79.1,68.1,66
Luxembourg,82,84,79.8,71.8
Macedonia,75.7,77.8,73.5,67.5
Madagascar,65.5,67,63.9,56.9
Malawi,58.3,59.9,56.7,51.2
Malaysia,75,77.3,72.7,66.5
Maldives,78.5,80.2,76.9,69.6
Mali,58.2,58.3,58.2,51.1
Malta,81.7,83.7,79.7,71.7
Mauritania,63.1,64.6,61.6,55.1
Mauritius,74.6,77.8,71.4,66.8
Mexico,76.7,79.5,73.9,67.4
Micronesia,69.4,70.6,68.1,62.5
Moldova,72.1,76.2,67.9,64.8
Mongolia,68.8,73.2,64.7,62
Montenegro,76.1,78.1,74.1,67.9
Morocco,74.3,75.4,73.3,64.9
Mozambique,57.6,59.4,55.7,49.6
Myanmar,66.6,68.5,64.6,59.2
Namibia,65.8,68.3,63.1,57.5
Nepal,69.2,70.8,67.7,61.1
Netherlands,81.9,83.6,80,72.2
New Zealand,81.6,83.3,80,71.6
Nicaragua,74.8,77.9,71.5,63.7
Niger,61.8,62.8,60.9,54.2
Nigeria,54.5,55.6,53.4,47.7
North Korea,70.6,74,67,64
Norway,81.8,83.7,79.8,72
Oman,76.6,79.2,75,66.7
Pakistan,66.4,67.5,65.5,57.8
Panama,77.8,81.1,74.7,68.1
Papua New Guinea,62.9,65.4,60.6,56.4
Paraguay,74,76,72.2,65.2
Peru,75.5,78,73.1,65.6
Philippines,68.5,72,65.3,61.1
Poland,77.5,81.3,73.6,68.7
Portugal,81.1,83.9,78.2,71.4
Qatar,78.2,80,77.4,67.7
Romania,75,78.8,71.4,66.8
Russia,70.5,76.3,64.7,63.3
Rwanda,66.1,71.1,60.9,56.6
Saint Lucia,75.2,77.9,72.6,66.1
Saint Vincent and the Grenadines,73.2,75.2,71.3,64.6
Samoa,74,77.5,70.9,66.6
Sao Tome and Principe,67.5,69.4,65.6,59.1
Saudi Arabia,74.5,76,73.2,64.5
Senegal,66.7,68.6,64.6,58.3
Serbia,75.6,78.4,72.9,67.7
Seychelles,73.2,78,69.1,65.5
Sierra Leone,50.1,50.8,49.3,44.4
Singapore,83.1,86.1,80,73.9
Slovakia,76.7,80.2,72.9,68.1
Slovenia,80.8,83.7,77.9,71.1
Solomon Islands,69.2,70.8,67.9,62.1
Somalia,55,56.6,53.5,47.8
South Africa,62.9,66.2,59.3,54.5
South Korea,82.3,85.5,78.8,73.2
South Sudan,57.3,58.6,56.1,49.9
Spain,82.8,85.5,80.1,72.4
Sri Lanka,74.9,78.3,71.6,67
Sudan,64.1,65.9,62.4,55.9
Suriname,71.6,74.7,68.6,63.1
Sweden,82.4,84,80.7,72
Switzerland,83.4,85.3,81.3,73.1
Syria,64.5,69.9,59.9,56.1
Tajikistan,69.7,73.6,66.6,62.1
Tanzania,61.8,63.8,59.9,54.1
Thailand,74.9,78,71.9,66.8
Timor-Leste,68.3,70.1,66.6,60.7
Togo,59.9,61.1,58.6,52.8
Tonga,73.5,76.4,70.6,66
Trinidad and Tobago,71.2,74.8,67.9,63.3
Tunisia,75.3,77.8,73,66.7
Turkey,75.8,78.9,72.6,66.2
Turkmenistan,66.3,70.5,62.2,59.8
Uganda,62.3,64.3,60.3,54
Ukraine,71.3,76.1,66.3,64.1
United Arab Emirates,77.1,78.6,76.4,67.9
United Kingdom,81.2,83,79.4,71.4
United States,79.3,81.6,76.9,69.1
Uruguay,77,80.4,73.3,67.9
Uzbekistan,69.4,72.7,66.1,62.4
Vanuatu,72,74,70.1,64.6
Venezuela,74.1,78.5,70,65.2
Vietnam,76,80.7,71.3,66.6
Yemen,65.7,67.2,64.3,57.7
Zambia,61.8,64.7,59,53.6
Zimbabwe,60.7,62.3,59,52.3
Region Symbols
Region,Symbol,x,y
Central Asia,circle3,3500,60
Eastern Asia,circle4,3500,58
Southern Asia,fullcircle1,3500,56
South-Eastern Asia,plus,3500,54
Western Asia,circle5,3500,52
Eastern Africa,triangleright,6000,60
Middle Africa,diamond,6000,58
Northern Africa,triangleup,6000,56
Southern Africa,triangledown,6000,54
Western Africa,triangleleft,6000,52
South America,downarrow,8500,60
Caribbean,leftarrow,8500,58
Central America,asterisk,8500,56
Northern America,uparrow,8500,54
Australia and New Zealand,fulltriangledown,8500,51
Melanesia,fulltriangleup,11000,64
Micronesia,fulltriangleleft,11000,62
Polynesia,fulltriangleright,11000,60
Eastern Europe,4star,11000,58
Southern Europe,full4star,11000,56
Northern Europe,full8star,11000,54
Western Europe,fullcircle2,11000,52
Data Sources
– https://en.wikipedia.org/wiki/List_of_countries_by_life_expectancy – https://en.wikipedia.org/wiki/List_of_countries_by_energy_consumption_per_capita – http://statisticstimes.com/geography/countries-by-continents.php
#DrRacket #orgmode #Racket #DataVisualization #HiroakiKoide #小出裕章 #LifeExpectancy #EnergyUse #Justice #Inequality