週末旅行の計画を立てる
アメリカ国内の都市と，イリノイ州シャンペーンからそこまでの距離を求める．
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]=
