고 충실도 드로잉: Wolfram Language 11의 신기능

‹›

고 충실도 드로잉

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

In[1]:=

SocialMediaData["Facebook", "FriendNetwork"]

Out[1]=

In[2]:=

CommunityGraphPlot[SocialMediaData["Facebook", "FriendNetwork"], 
 CommunityLabels -> {"Online friends", 
   "High school\n Local area friends", "Family"}]

Out[2]=

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

전체 Wolfram 언어 입력 표시하기

In[3]:=

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

Graph[ExampleData[{"NetworkGraph", "FlorentineFamilies"}], style]

Out[4]=

Wolfram 언어™

고 충실도 드로잉

관련 예제