Harnessing the IOT for Global Development
Harnessing the IOT for Global Development
A foray into understanding how the IOT could be applicable to addressing global issues.
Introduction
Introduction
The IOT has many applications in the developing world in fields such as healthcare, agriculture, resource management, water. There are many initiatives currently under way such as monitoring vaccines in the cold chain, measuring water pump use with accelerometers, raising crop yields, networking smoke and fire detectors, tracking epidemic outbreaks, and many others.
Map of Internet Access and Child Labor
Map of Internet Access and Child Labor
First, lets get the data using the Wolfram Search on child labor percentages as well as internet usage data.
◼
Apply the wolfram Search to the relevant statistic across all countries
In[79]:=
data=({#1,QuantityMagnitude[WolframAlpha[#1<>" internetusage","ComputableData"][[4]]],QuantityMagnitude[WolframAlpha[#1<>" child labor",{{"Result",1},"ComputableData"}][[1]]]}&)/@CanonicalNameEntityList;
Not all countries have data on both of these, so we can remove those countries and format the list.
◼
Flatten the embedded lists and only keep ones with real values
In[80]:=
data2=Cases[Map[Flatten,data],{_,_Real,_Real}];
Now we can plot both values on their own world maps to visualize them both.
◼
Create a geoplot with a red-blue gradient
In[76]:=
GeoRegionValuePlot[(Entity["Country",#[[1]]]RGBColor[QuantityMagnitude[#[[2]]]/50,0,1-(QuantityMagnitude[#[[2]]])/50]&)/@data2]
Out[76]=
In[77]:=
GeoRegionValuePlot[(Entity["Country",#[[1]]]RGBColor[QuantityMagnitude[#[[3]]]/50,0,1-(QuantityMagnitude[#[[3]]])/50]&)/@data2]
Out[77]=
We can then create a world plot with a gradient based on the multiplication of the internet usage with child labor percentages.
◼
Create a interpretative geoplot with a relationship between the two statistics
In[78]:=
GeoRegionValuePlot[(Entity["Country",#[[1]]]RGBColor[QuantityMagnitude[#[[2]]]*(QuantityMagnitude[#[[3]]])^1.5/1600,0,1-(QuantityMagnitude[#[[2]]]*QuantityMagnitude[#[[3]]])/800]&)/@data2]
Out[78]=
This map can highlight countries that have great internet access but high child labor percentages, and therefore could be good candidates for implementing IOT technology.
Further Explorations
Connected Devices
Global Development
Authorship information
Created by Benjamin Keller
June 24, 2017
ben.ch.keller@gmail.com