주말 여행 계획하기
미국 내 도시와 일리노이 주 샴페인에서의 거리를 구합니다.
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]=
