Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Легенды
Цветовое выделение взаимосвязей в сети
Отображение групп, сосредоточенных вокруг трёх человек на семейном собрании.
In[1]:=
X
familygathering = ExampleData[{"NetworkGraph", "FamilyGathering"}]
Out[1]=
Выделение связей с Давидом, Линдой и Оскаром различными цветами.
In[2]:=
X
people = {"Linda", "David", "Oscar"};
In[3]:=
X
highlightedgraph = HighlightGraph[familygathering, MapIndexed[ Style[Subgraph[familygathering, # \[UndirectedEdge] _], Directive[AbsoluteThickness[5], ColorData[68][First[#2]]]] &, people], ImageSize -> 400, VertexLabelStyle -> Directive[18, GrayLevel[0.3]], GraphHighlightStyle -> "VertexDiamond"]
Out[3]=
Создание линейной легенды, использующей те же стили, что и в графе, и комбинирование легенды с подсвеченным графом.
In[4]:=
X
legend = LineLegend[ Table[Directive[AbsoluteThickness[5], ColorData[68][i]], {i, 3}], people, LabelStyle -> {18, Bold, GrayLevel[0.3]}, LegendMarkerSize -> {35, 15}]
Out[4]=
Сочетание легенды и графа.
In[5]:=
X
Legended[highlightedgraph, legend]
Out[5]=