‹›그래프와 네트워크고 충실도 드로잉
그래프와 네트워크의 높은 충실도 드로잉을 살펴봅니다.
SocialMediaData["Facebook", "FriendNetwork"]
CommunityGraphPlot[SocialMediaData["Facebook", "FriendNetwork"],
CommunityLabels -> {"Online friends",
"High school\n Local area friends", "Family"}]
피렌체의 명문가를 알아봅니다.
전체 Wolfram 언어 입력 표시하기
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}};
Graph[ExampleData[{"NetworkGraph", "FlorentineFamilies"}], style]