Grafique a los usuarios de Google Plus 

Cree un gráfico de usuarios de Google Plus, cuyas publicaciones tienen términos comunes.

Conéctese a Google Plus.

In[1]:=

X googleplus = ServiceConnect["GooglePlus"]

Out[1]=

Obtenga las identificaciones de los usuarios de sus círculos de Google Plus.

In[2]:=

X users = googleplus["CircledUsers"];

In[3]:=

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

Importe las publicaciones de cada usuario y encuentre palabras con seis o más letras.

In[4]:=

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

In[5]:=

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

Cree un gráfico donde los usuarios están conectados si sus publicaciones comparten las mismas palabras.

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

Etiquete a los usuarios y elimine a los no conectados.

In[9]:=

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

Out[9]=