In[]:=
GraphModule{res,sublevels,vfs},​​res=Reap
[◼]
EvolutionGraph
[2,2,​​GraphLayout->"LayeredDigraphEmbedding"],​​"SubLevels";​​sublevels=res[[2,1,1]];​​res=res[[1]];​​vfs=Association[KeyValueMap[Function[{key,rules},key->GraphicsRow[​​ArrayPlot[ArrayPad[#,1]&/@#,ImageSize->{Automatic,(2+key[[1]])10},Mesh->(key[[1]]<5),MeshStyle->Opacity[.1]​​]&/@Union[CellularAutomaton[{#,2,2},{{1},0},​​key[[1]]+1]&/@rules],Spacings->0,​​PlotRangePadding->None​​]],sublevels]];​​ClearAttributes[vfs,Temporary];​​Subgraph[res,VertexOutComponent[res,{0,1}],​​GraphLayout->"LayeredDigraphEmbedding",AspectRatio->2/3,​​EdgeStyle->Gray,​​VertexSize->1/2,​​VertexShapeFunction->Function[​​Inset[vfs[#2],#1,Automatic,​​Times[#3[[1]],​​#/Last[#]&@ImageDimensions[vfs[#2]],​​Sqrt[First[#2]+5]​​]​​]​​],​​PerformanceGoal->"Quality"​​]​​,VertexCoordinates->

Out[]=
In[]:=
ggx=%22;
In[]:=
Graph[ggx,VertexLabels->Automatic]
Out[]=
In[]:=
Options[ggx,VertexCoordinates]
Out[]=
{VertexCoordinates{{0.,17.8809},{-1.77636×
-11
10
,15.6458},{6.26,13.195},{-3.37588,13.4107},{8.,13.4107},{-4.86,13.39},{1.37561×
-11
10
,13.4107},{7.,11.1756},{8.,11.1756},{-5.29849,11.1756},{-7.72,11.115},{-3.37588,11.1756},{3.34,11.18},{-2.,6.70533},{5.58,11.18},{0.98,11.18},{-2.,11.1756},{-0.8,11.18},{8.12,9.165},{7.,8.94044},{9.16,7.345},{-8.42004,8.94044},{-6.54461,8.94044},{-5.04,9.945},{-4.54,8.84},{-3.04,8.71},{1.,8.94044},{-1.,8.94044},{2.,8.94044},{5.0698,6.70533},{-4.,4.47022},{-2.,4.47022},{-1.,4.47022},{5.84,8.775},{3.62,6.435},{-2.,8.94044},{1.33176×
-9
10
,8.94044},{8.63179,4.47022},{7.28,4.615},{9.63179,4.47022},{-8.,6.70533},{-9.,6.70533},{-11.14,6.565},{-10.,6.70533},{-7.,6.70533},{-7.60749,4.47022},{-4.,6.70533},{-5.38,6.305},{-2.79595,0.},{-7.71223×
-10
10
,6.70533},{-1.,6.70533},{1.82,6.305},{5.0698,4.47022},{-5.7,1.755},{-3.31118,2.23511},{-4.31118,2.23511},{7.58,2.21},{8.42,2.275},{9.63179,2.23511},{-5.64,4.355}}}
In[]:=
VertexShapeHighlight[g_,vs_,efun_]:=With[{coord=Association[Thread[VertexList[g]->GraphEmbedding[g]]]},efun/@(coord/@vs)]
In[]:=
Show[ggx,Graphics[VertexShapeHighlight[ggx,{{2,1}},Style[{Opacity[.2,Red],Disk[#,1]}]&]]]
Out[]=
In[]:=
Manipulate[Show[ggx,Graphics[{VertexShapeHighlight[ggx,{VertexList[ggx][[vv]]},Style[{Opacity[.2,Red],Disk[#,1]}]&],VertexShapeHighlight[ggx,{DominatorVertexList[ggx,{0,1}][[vv]]},Style[{Opacity[.2,Blue],Disk[#,1]}]&]}]],{vv,1,VertexCount[ggx],1}]
Out[]=
​
vv
Showggx,

In[]:=
DominatorTreeGraph[ggx,{0,1}]
https://www.nature.com/articles/nmicrobiol201648/figures/1

Taxonomy