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.
Afficher l'entrée complète de Wolfram Language
In[2]:=
![Click for copyable input](assets.fr/point-feature-labeling-system/In_50.png)
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]:=
![Click for copyable input](assets.fr/point-feature-labeling-system/In_51.png)
ListLogLogPlot[
allCountryData[[1 ;; 20, {1, 2}]] ->
allCountryData[[1 ;; 20, 3]], options]
Out[3]=
![](assets.fr/point-feature-labeling-system/O_39.png)
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]:=
![Click for copyable input](assets.fr/point-feature-labeling-system/In_52.png)
legend = Multicolumn[
Table[Text@
Row[{ToString[i] <> ".", allCountryData[[i]][[3]]}, " "], {i,
Length[allCountryData]}], 5];
In[5]:=
![Click for copyable input](assets.fr/point-feature-labeling-system/In_53.png)
Legended[ListLogLogPlot[allCountryData[[All, {1, 2}]],
LabelingFunction -> (First@#2 &), options], Placed[legend, Bottom]]
Out[5]=
![](assets.fr/point-feature-labeling-system/O_40.png)