Utilice cualquier cosa como una etiqueta: Nuevo en Wolfram Language 11

Utilice cualquier cosa como una etiqueta

Use Hue en la función LabelingFunction para representar una tercera cantidad en gráficos 2D.

muestre la entrada completa de Wolfram Language

In[1]:=

hotjupiters = 
 DeleteMissing[
  EntityValue[
   EntityClass["Exoplanet", "HotJupiter"], {"Radius", "Density", 
    "Gravity"}], 1, Infinity]; {radius, density, gravity} = 
 Transpose[hotjupiters];
gMinMax = MinMax[gravity];
data = Transpose[{radius, density}];

In[2]:=

labeler[data_, index_, meta_] := 
  Placed[Hue[
    Rescale[Log[QuantityMagnitude[Extract[gravity, index]]], 
     Log[QuantityMagnitude[gMinMax]], {0, 0.5}]], Center];
ListPlot[data, PlotRange -> {{20000, 100000}, {0, 6.7}}, 
 LabelingFunction -> labeler, ImageSize -> 400, 
 AxesLabel -> {"Radius", "Density"}]

Out[2]=