Язык Wolfram Language™

Маркирующая система точечных объектов

Маркировка разбросанных точек метками различной длины может представлять сложность при ручном выполнении. Новая маркирующая система предоставляет автоматическое решение.

Далее представлен пример графического изображения ВВП в сравнении с населением всех европейских стран.

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