Instead of explicitly calling HypergraphPlot, one can use short-hand
properties "FinalStatePlot" and "StatesPlotsList":
In[] := WolframModel[{{1, 2, 3}, {4, 5, 6}, {1, 4}} ->
{{2, 7, 8}, {3, 9, 10}, {5, 11, 12}, {6, 13, 14}, {8, 12}, {11,
10}, {13, 7}, {14, 9}},
{{1, 1, 1}, {1, 1, 1}, {1, 1}, {1, 1}, {1, 1}}, 6, "FinalStatePlot"]In[] := WolframModel[{{1, 2, 3}, {4, 5, 6}, {1, 4}} ->
{{2, 7, 8}, {3, 9, 10}, {5, 11, 12}, {6, 13, 14}, {8, 12}, {11,
10}, {13, 7}, {14, 9}},
{{1, 1, 1}, {1, 1, 1}, {1, 1}, {1, 1}, {1, 1}}, 6, "StatesPlotsList"]These properties take the same options as HypergraphPlot (but one has to specify them in a
call to the evolution object, not WolframModel):
In[] := WolframModel[{{1, 2, 3}, {4, 5, 6}, {1, 4}} ->
{{2, 7, 8}, {3, 9, 10}, {5, 11, 12}, {6, 13, 14}, {8, 12}, {11,
10}, {13, 7}, {14, 9}},
{{1, 1, 1}, {1, 1, 1}, {1, 1}, {1, 1}, {1, 1}}, 3]["FinalStatePlot",
VertexLabels -> Automatic]

