주말 여행 계획하기

미국 내 도시와 일리노이 주 샴페인에서의 거리를 구합니다.

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]=