Eine Graphik von Google Plus-Nutzern erstellen 

Erzeugen Sie eine Graphik von Google Plus-Nutzern, deren Posts dieselben Begriffe beinhalten.

Stellen Sie die Verbindung zu Google Plus her.

In[1]:=

X googleplus = ServiceConnect["GooglePlus"]

Out[1]=

Ermitteln Sie die Benutzerkennungen von Nutzern in Ihren Google Plus-Kreisen.

In[2]:=

X users = googleplus["CircledUsers"];

In[3]:=

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

Importieren Sie die letzten Posts aller Nutzer und ermitteln Sie die Wörter, die aus mindestens sechs Buchstaben bestehen.

In[4]:=

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

In[5]:=

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

Erzeugen Sie einen Graphen, der jene Nutzer verbindet, deren Posts dieselben Wörter beinhalten.

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

Beschriften Sie die Nutzer und eliminieren Sie jene, die nicht miteinander verbunden sind.

In[9]:=

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

Out[9]=