Wolfram言語

新しい可視化領域

週末旅行の計画を立てる

アメリカ国内の都市と,イリノイ州シャンペーンからそこまでの距離を求める.

In[1]:=
Click for copyable input
data = Quiet[Table[{CommonName[city], QuantityMagnitude[ TravelDistance[{Entity[ "City", {"Champaign", "Illinois", "UnitedStates"}], city}]]}, {city, CountryData["UnitedStates", "LargestCities"]}]];

都市名とその都市までの移動距離をペアにしたワードクラウドを生成する.逆スケールを使って近い都市の方が目立つようにする.

In[2]:=
Click for copyable input
data = Cases[data, {_String, _Real}]; WordCloud[data, ImageSize -> 400, ScalingFunctions -> (1/# &), PlotTheme -> "Marketing"]
Out[2]=

関連する例

de en es fr ko pt-br ru zh