Message Boards

GROUPS:

Staff Picks Data Science Economics Recreation Social Science Curated Data Graphics and Visualization Wolfram Language Geographic Information System Computational Humanities

Jofre Espigule-Pons

[GIF] Celebrating 30th anniversary of the world wide web

Jofre Espigule-Pons, Wolfram Research

Posted 2 years ago

3565 Views

1 Reply

5 Total Likes

Follow this post

enter image description here

Today (March 12) is the 30th anniversary of the world wide web and I was curious about how “world wide” the web has become. So, I decided to create the above BubbleChart in order to explore today’s (2018) internet users as percentage of population versus GDP per capita in US dollars. Bubbles size depicts countries population. And the percents for internet users come from internet world stats site and the World Bank Data Catalog.

The list of countries that appear in the BubbleChart are the following (note that I excluded some countries like North Korea and others with missing data):

countries=

Countries

;

In[]:=

percents=

Percents

;

In[]:=

bubbles=MapThread[Callout[{CountryData[#1,"GDPPerCapita"],#2,CountryData[#1,"Population"]},CountryData[#1,"Name"]]&,{countries,percents}];

bubblesGrouped=GroupBy[bubbles,CountryData[#[[-1]],"Continent"]&];

In[]:=

BubbleChart[bubblesGrouped,ScalingFunctions{"Log","Log",Automatic},PlotLabelStyle["Internet users vs GDP per capita",Bold,24],FrameLabel{Style["GDP per person in US dollars",20],Style["Internet users as percentage of population (%)",20]},PlotTheme"Detailed",ImageSize800,ChartStyle"Pastel",ChartLegendsKeys[bubblesGrouped]]

In[]:=

Out[]=

Without using “Log” Scaling function for “internet users percents” the resulting BubbleChart is better for separating countries with high GDP per capita:

BubbleChart[bubblesGrouped,ScalingFunctions{"Log",Automatic,Automatic},PlotLabelStyle["Internet users vs GDP per capita",Bold,24],FrameLabel{Style["GDP per person in US dollars",20],Style["Internet users as percentage of population (%)",20]},PlotTheme"Detailed",ImageSize800,ChartStyle"Pastel",ChartLegendsKeys[bubblesGrouped]]

In[]:=

Out[]=

Finally I decided to create an animation to illustrate the growth of internet users over the last three decades. To create the custom bubble chart I used ListLogLinearPlot and for the inset map plot I used GeoRegionValuePlot. The notebook attached contains the data and some of the code that I used.

Looking the bubbles over the years, it looks like there is some power law in place, at least above a certain GDP per capita threshold. It would be interesting to investigate it along with the price of personal computers and smart phones over time. But I will stop here for now.

Hope you enjoyed this little computational excursion.

Raw data and code attached below.

POSTED BY: Jofre Espigule-Pons

Answer

1 Reply

Sort By:

Moderation Team

Moderation Team, WOLFRAM

Posted 5 months ago

-- you have earned *Featured Contributor Badge* Your exceptional post has been selected for our editorial column *Staff Picks* http://wolfr.am/StaffPicks and Your Profile is now distinguished by a *Featured Contributor Badge* and is displayed on the Featured Contributor Board. Thank you!

POSTED BY: Moderation Team

Answer

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback

Enable JavaScript to interact with content and submit forms on Wolfram websites. Learn how »