Цветовое выделение взаимосвязей в сети 

Отображение групп, сосредоточенных вокруг трёх человек на семейном собрании.

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