Wolfram言語™

点の特徴についてのラベル付けシステム

散在する点に手動でさまざまな長さのラベルを付けるのは難しい．新しいラベル付けシステムは，自動的にこれを行う方法を提供する．

次は，ヨーロッパ諸国のGDPと人口のプロット例である．

In[1]:=

options = {ImageSize -> 550, PlotTheme -> "Detailed", PlotLabel -> "GDP vs. Population for European Countries", FrameLabel -> {"Population", "GDP"}, LabelStyle -> 10, PlotStyle -> PointSize[0.01], PlotRangePadding -> Scaled[.06]};

In[2]:=

countries = CountryData["Europe"]; allCountryData = DeleteMissing[ EntityValue[CountryData["Europe"], {"Population", "GDP", "Name"}], 1, Infinity];

自動的に点の特徴についてのラベルを付けた20例を表示する．

In[3]:=

ListLogLogPlot[ allCountryData[[1 ;; 20, {1, 2}]] -> allCountryData[[1 ;; 20, 3]], options]

Out[3]=

点が密集していて数が多すぎる場合は，ラベルと凡例を組み合せるとうまくいく．

In[4]:=

legend = Multicolumn[ Table[Text@ Row[{ToString[i] <> ".", allCountryData[[i]][[3]]}, " "], {i, Length[allCountryData]}], 5];

In[5]:=

Legended[ListLogLogPlot[allCountryData[[All, {1, 2}]], LabelingFunction -> (First@#2 &), options], Placed[legend, Bottom]]

Out[5]=