Planee una escapada de fin de semana

Encuentre las ciudades de EE.UU. más grandes y sus distancias de viaje desde Champaign, Illinois.

In[1]:=

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

Cree una nube de palabras a partir de los nombres de ciudades con sus respectivas distancias de viaje, y utilice una escala inversa para que las ciudades más cercanas sean más prominentes.

In[2]:=

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

Out[2]=