Planifiez une escapade pour le week-end

Trouvez les plus grandes villes américaines et les distances des trajets à partir de Champaign, Illinois.

In[1]:=

data = Quiet[Table[{CommonName[city], QuantityMagnitude[ TravelDistance[{Entity[ "City", {"Champaign", "Illinois", "UnitedStates"}], city}]]}, {city, CountryData["UnitedStates", "LargestCities"]}]];

Créez un nuage de mots à partir des noms de villes associés à leurs distances de déplacement, et utilisez une échelle inversée pour que les villes les plus proches soient plus visibles.

In[2]:=

data = Cases[data, {_String, _Real}]; WordCloud[data, ImageSize -> 400, ScalingFunctions -> (1/# &), PlotTheme -> "Marketing"]

Out[2]=