Планирование краткосрочного отпуска на выходные

Найдите города США и расстояние до них от г. Шампейн, штат Иллинойс.

In[1]:=

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

Создайте облако слов из названий городов, соединённых с расстояниями до них, и используйте шкалу обратных величин, чтобы выделить те города, которые расположены ближе.

In[2]:=

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

Out[2]=