Wolfram Language™

Système d'étiquette avec des attributs de points

L’étiquetage de points de dispersion avec des étiquettes de différentes longueurs peut être difficile si cela se fait manuellement. Le nouveau système d'étiquetage fournit une solution automatique.

Voici un exemple de traçage du PIB versus la population pour tous les pays européens.

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

Affichez 20 exemples avec l'étiquetage automatique d’attributs de points.

In[3]:=

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

Out[3]=

Lorsque les points sont trop concentrés et en trop grand nombre, utiliser des étiquettes combinées avec une légende peut bien fonctionner.

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