Guess the map 13: Mercator maps are cool, actually

[The_J]

mmhh... China, Turkey and Iran are lower on the scale as you'd expect for something related to wealth.
Will that help for further analysis ^^?

 

[Samson]

mmhh... China, Turkey and Iran are lower on the scale as you'd expect for something related to wealth.
Will that help for further analysis ^^?

I think so, but I have a slight worry my interpretations of those differences could be a mirror on my biases against these countries that I have never been to. It is also possible that it says more about the biases of those who designed the methodology. I think it is interesting those countries that are punching above their weight, such as Bhutan and Scandinavia.

New page, new map (ie. I have fixed more countries)

Spoiler Rant: Why can we not decide what countries are called? :

My longest list of manual fixes for country names so far. How can it be so hard to figure out what countries are called?

world[world$name == "United States","value"] <- input[grepl("USA", input$Entity),"Value"]
world[world$name == "Korea","value"] <- input[grepl("South Korea", input$Entity),"Value"]
world[world$name == "Czech Rep.","value"] <- input[grepl("Czech Republic", input$Entity),"Value"]
world[world$name == "Dominican Rep.","value"] <- input[grepl("Dominican Republic", input$Entity),"Value"]
world[world$name == "Dem. Rep. Congo","value"] <- input[scores$Entity == "Congo (Kinshasa)","Value"]
world[world$name == "Congo","value"] <- input[scores$Entity == "Congo (Brazzaville)","Value"]
world[world$name == "Lao PDR","value"] <- input[scores$Entity == "Laos","Value"]
world[world$name == "S. Sudan","value"] <- input[scores$Entity == "South Sudan","Value"]
world[world$name == "Bosnia and Herz.","value"] <- input[scores$Entity == "Bosnia and Herzegovina","Value"]
world[world$name == "Central African Rep.","value"] <- input[scores$Entity == "Central African Republic","Value"]
world[world$name == "Macedonia","value"] <- input[scores$Entity == "North Macedonia","Value"]
world[world$name == "Côte d'Ivoire","value"] <- input[scores$Entity == "Ivory Coast","Value"]
world[world$name == "Somaliland","value"] <- input[scores$Entity == "Somaliland region","Value"]
world[world$name == "Taiwan","value"] <- input[scores$Entity == "Taiwan Province of China","Value"]

 

[Samson]

To help untease the value/gdp relationship I ploted them against each other, plain and with GDP logged:

So I say it is roughly value ~ log(GDP), so plotting value / log(GDP) gives:

 

[uppi]

Some sort of happiness index?

And while I feel your pain about country names, it could also be much worse. At least there are standards, even if they are sometimes ignored.

 

[Samson]

Some sort of happiness index?

And while I feel your pain about country names, it could also be much worse. At least there are standards, even if they are sometimes ignored.

You got it!!!!!

From The World Happiness Report 2021, but mine is the average of the last 2 decades. This is another version of the map:

I like my function to GDP though, expect more stuff plotted that way if I guess any more.

Yeah, at least there are fewer than two hundred countries. One of my bug bears is using gene symbols for lookup and that is really common.

 

[Kyriakos]

Those suicide-central countries look really happy

 

[Gelion]

Those suicide-central countries look really happy

"Suck it up or leave" squad

 

[warpus]

I wonder how happy Antarcticans are

 

[uppi]

You got it!!!!!

Oh, so I need to make a map then? I am not feeling very creative:

At least this one did not require any more country name cleanup than I had built in, anyway.

No Antarctica data, though.

 

[Samson]

Food Insecurity?

 

[uppi]

Food Insecurity?

No.

 

[The_J]

I was about to say "famine".
Alphabetization rate?

Yellow is less?

 

[Kyriakos]

I was about to say "famine".
Alphabetization rate?

Yellow is less?

Didn't Estonia and maybe other baltic states have a famine a few years ago?
Also, (strategic pun placement coming) for what you mean "alphabetization" would be illiterate

 

[uppi]

I was about to say "famine".
Alphabetization rate?

That would be an interesting map, but it is not this one.

Yellow is less?

Yes. Dark red is (close to) 100%.

 

[warpus]

Access to internet? Access to clean drinking water?

 

[amadeus]

Along similar lines I would guess daily caloric intake.

 

[Ferocitus]

Immunization against childhood diseases.

 

[uppi]

Access to internet? Access to clean drinking water?

No. You are close, though

Along similar lines I would guess daily caloric intake.

No

Immunization against childhood diseases.

No

 

[Samson]

Access to proper toilets?

 

[amadeus]

Access to proper toilets?

Then why is Japan in the same category as all those barbarian countries?