Exiba as línguas mais comuns do mundo por país 

Obtenha uma lista de países do mundo.

In[1]:=

X countries = CountryData[];

In[2]:=

X Take[countries, 10]

Out[2]=

Obtenha uma lista com a língua mais comum de cada país.

In[3]:=

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

In[4]:=

X Take[firstLanguages, 10]

Out[4]=

Agrupe os países por língua.

In[5]:=

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

Estes são os países em que o espanhol é a língua mais comum.

In[6]:=

X languagegroups[[8]]

Out[6]=

Faça o coloração do mapa do mundo por grupos de línguas mais faladas.

In[7]:=

X GeoListPlot[languagegroups]

Out[7]=