In[]:=
fulldata=;
In[]:=
TakeLargest[Counts[fulldata[[All,2]]],20]
Out[]=
{1,6,4}266,{1,5,4}60,{1,10,9}48,{1,11,8}46,{1,9,10}41,{1,14,14}41,{1,4,6}37,{1,24,46,24,1}36,{1,12,7}36,{1,8,11}34,{1,13,6}34,{1,9,8}27,{1,4,7}26,{1,4,5}24,{1,15,10}23,{1,10,7}22,{1,6,3}21,{1,11,6}20,{1,8,9}20,{1,10,15}20
In[]:=
Length[Union[fulldata[[All,2]]]]
Out[]=
1377
In[]:=
Union[fulldata[[All,2]]][[400]]
Out[]=
{1,4,7,6}
In[]:=
TakeSmallest[Counts[fulldata[[All,2]]],20]
Out[]=
{1,3,6}1,{1,2,2,2,2}1,{1,9}1,{1,8}1,{1,2,1}1,{1,2}1,{1,2,2}1,{1}1,{1,2,2,2,1}1,{1,4,1}1,{1,2,2,1}1,{1,6}1,{1,4}1,{1,2,2,2}1,{1,7}1,{1,5}1,{1,1}1,{1,3}1,{1,6,1}1,{1,3,3,1}1
In[]:=
Take[KeySelect[ReverseSort[Counts[fulldata[[All,2]]]],Length[#]>3&],30]
Out[]=
{1,24,46,24,1}36,{1,6,9,4}17,{1,7,21,17,2}11,{1,5,8,4}9,{1,6,8,3}8,{1,7,21,25,10}7,{1,7,21,21,6}7,{1,7,18,6}7,{1,8,9,2}7,{1,7,10,2}7,{1,6,11,2}7,{1,4,8,5}7,{1,3,6,4}7,{1,7,14,2}6,{1,7,9,3}6,{1,5,9,5}6,{1,8,8,1}6,{1,7,8,2}6,{1,3,6,6}6,{1,4,5,2}6,{1,6,12,1}5,{1,5,8,6}5,{1,4,9,6}5,{1,6,10,2}5,{1,6,10,1}5,{1,6,9,2}5,{1,5,7,3}5,{1,16,30,16,1}4,{1,6,15,10}4,{1,5,20,4}4
In[]:=
Function[u,With[{c=Select[fulldata,#[[2]]==u&]},{u,GraphData/@(Last/@c),Length[c]}]]/@{{1,10,9},{1,14,14},{1,5,8,4},{1,7,21,25,10}}
Out[]=
{1,10,9},
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,48,{1,14,14},
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,
,41,{1,5,8,4},
,
,
,
,
,
,
,
,
,9,{1,7,21,25,10},
,
,
,
,
,
,
,7
Pure SW stuff
Pure SW stuff