高忠実度の描画
グラフとネットワークの高忠実度の描画.
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[4]:=

Graph[ExampleData[{"NetworkGraph", "FlorentineFamilies"}], style]
Out[4]=
