绘制 Google Plus 的用户图 

绘制在帖子中使用相同词语的 Google Plus 用户图.

连接至 Google Plus.

In[1]:=

X googleplus = ServiceConnect["GooglePlus"]

Out[1]=

获取你的 Google Plus 圈中的用户 ID.

In[2]:=

X users = googleplus["CircledUsers"];

In[3]:=

X ids = Lookup[users, "UserID"];

导入每位用户最近的帖子，并找出含有6个字母以上词.

In[4]:=

X posts = googleplus["UserPosts", "UserID" -> #] & /@ ids;

In[5]:=

X words = DeleteDuplicates[Flatten[ StringCases[#, word : (WordCharacter ..) /; StringLength[word] > 5 :> word] ]] & /@ posts;

创建的图形中相连接的用户其帖子共享相同词语.

In[6]:=

X n = Length[ids];

In[7]:=

X edges = Cases[ Subsets[Range[n], {2}], _?({} =!= Intersection @@ words[[#]] &)];

In[8]:=

X graph = Graph[Range[n], edges]

Out[8]=

标注用户并消除未连接的.

In[9]:=

X Subgraph[graph, Cases[WeaklyConnectedComponents[graph], {_, __}], VertexLabels -> Thread[Range[n] -> Lookup[users, "DisplayName"]], ImagePadding -> {{Automatic, 100}, {Automatic, Automatic}}]

Out[9]=