Système d'étiquetage des caractéristiques ponctuelles

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 tracé du PIB par rapport à 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 des caractéristiques ponctuelles.

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 fonctionne bien.

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