Wolfram 언어

그래프와 네트워크

고 충실도 드로잉

그래프와 네트워크의 높은 충실도 드로잉을 살펴봅니다.

In[1]:=
Click for copyable input
SocialMediaData["Facebook", "FriendNetwork"]
Out[1]=
In[2]:=
Click for copyable input
CommunityGraphPlot[SocialMediaData["Facebook", "FriendNetwork"], CommunityLabels -> {"Online friends", "High school\n Local area friends", "Family"}]
Out[2]=

피렌체의 명문가를 알아봅니다.

전체 Wolfram 언어 입력 표시하기
In[3]:=
Click for copyable input
color = ColorData[1, 1]; style = {VertexStyle -> Directive[color, EdgeForm[Directive[Darker[color], Thickness[.006], Opacity[1]]]], VertexLabels -> {"Medici" -> Placed["Medici", {5, 0.5}]}, VertexLabelStyle -> { Directive[FontFamily -> "Helvetica", 15], "Medici" -> Directive[FontFamily -> "Helvetica", 25]}, VertexSize -> .2, EdgeStyle -> Directive[Thick, color, Thickness[.01]], VertexShapeFunction -> {"Medici" -> ({EdgeForm[], Disk[#1, 1.5 #3], Thickness[.01], Circle[#1, 2 #3]} &)}, ImageSize -> {310, Automatic}};
In[4]:=
Click for copyable input
Graph[ExampleData[{"NetworkGraph", "FlorentineFamilies"}], style]
Out[4]=

관련 예제