In[]:=
OrderedHypergraphPlot[First@RandomHypergraph[{10,{5,3}}]]
Out[]=
In[]:=
RandomHypergraph[{10,{5,2}}]
Out[]=
Hypergraph[{{6,5},{3,3},{3,4},{4,7},{9,5}}]
In[]:=
Clear[RandomHypergraph]
In[]:=
Select[List@@@EdgeList[RandomGraph[{50,100}]],ListQ]
Out[]=
In[]:=
ResourceFunction["HypergraphPlot"][List@@@EdgeList[RandomGraph[{50,100}]]]
Out[]=
In[]:=
RandomHypergraph[{10,{10,3}}]
Out[]=
Hypergraph[{{9,5,10},{10,9,5},{4,10,7},{4,8,10},{1,1,8},{2,5,4},{4,8,4},{2,5,2},{9,4,6},{10,3,2}}]
In[]:=
RegionHypergraphPlot[Hypergraph[data_]]:=CommunityGraphPlot[GraphUnion@@(Graph[Select[Tuples[#,2],Apply[Unequal]]]&/@data),data,CommunityRegionStyle->Table[Opacity[.1,ColorData[97,i]],{i,Length[data]}],VertexLabelsAutomatic,EdgeStyleTransparent,VertexStyleGray]
[[We are ignoring the case where a hyperedge already has a self-repeat]]
In[]:=
RegionHypergraphPlot[Hypergraph[{{9,5,10},{10,9,5},{4,10,7},{4,8,10},{1,1,8},{2,5,4},{4,8,4},{2,5,2},{9,4,6},{10,3,2}}]]
Out[]=
Note: This should have had a self-hyperedge, but it doesn’t render well.... [should look like a piece of paper folded on itself ... ]
In[]:=
RandomHypergraph[{n_Integer,{e_Integer,a_Integer}},type___]:=Hypergraph[RandomInteger[{1,n},{e,a}],type]
In[]:=
RandomHypergraph[{n_Integer,sig:{{_Integer,_Integer}..}},type___]:=Hypergraph[Catenate[RandomInteger[{1,n},{#1,#2}]&@@@sig],type]
In[]:=
SeedRandom[4234];RegionHypergraphPlot[RandomHypergraph[{50,{100,3}}]]
Out[]=
In[]:=
SeedRandom[4234];RegionHypergraphPlot[RandomHypergraph[{100,{10,3}}]]
Out[]=