Wolfram 언어

시각화: 라벨, 스케일, 제외

무엇이든 라벨로 사용

LabelingFunction에서 Hue를 사용하여 2D 플롯에서 3번째 수량을 표현합니다.

전체 Wolfram 언어 입력 표시하기
In[1]:=
Click for copyable input
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]:=
Click for copyable input
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]=

관련 예제

de en es fr ja pt-br ru zh