Muestre las lenguas más comunes del mundo por país 

Obtenga una lista de los países del mundo.

In[1]:=

X countries = CountryData[];

In[2]:=

X Take[countries, 10]

Out[2]=

Obtenga una lista de la lengua más común de cada país.

In[3]:=

X firstLanguages = First[CountryData[#, "Languages"]] & /@ countries;

In[4]:=

X Take[firstLanguages, 10]

Out[4]=

Agrupe los países por lengua.

In[5]:=

X languagegroups = Map[First, GatherBy[Thread[countries -> firstLanguages], Last], {2}];

Éstos son los países en donde el español es la lengua más común.

In[6]:=

X languagegroups[[8]]

Out[6]=

Coloree un mapa del mundo por grupo de lengua.

In[7]:=

X GeoListPlot[languagegroups]

Out[7]=