13
$\begingroup$

I got a graph list containing 110 highly irregular graphs with 12 vertices in the following link.

enter image description here

I would like to put these graphs in my paper (LaTeX). So I chose to print or export them to pdf, but both went wrong. The graphs went out of bound in the pdf. enter image description here

I'd like to ask how I can get these graphs to fit neatly in my paper, like below. enter image description here

Improve this question
$\endgroup$
2
  • $\begingroup$ If you use TableForm instead of Grid? $\endgroup$ Commented Aug 1, 2022 at 14:01
  • $\begingroup$ @demm I left my computer. Once I'm back my lab, I'll try. 110 graphs may be too many and may need to be placed in several PDFs. But some graphs don't go over the margins. I don't wish some graphs to be invisible. $\endgroup$ Commented Aug 1, 2022 at 15:00

2 Answers 2

Reset to default
12
$\begingroup$

For 110 simulated graphs:

g = DegreeGraphDistribution[{2, 4, 4, 4, 3, 3, 2}]; SeedRandom[123];tabGraph=TableForm[ Partition[Table[RandomGraph[g,PlotLabel->Style[i, 10],ImageSize -> 50],{i,1,110}],11],TableSpacing->{0,0}]

enter image description here

Improve this answer
$\endgroup$
4
  • 2
    $\begingroup$ Nice. It would be esthetically more pleasing to align the numbers? $\endgroup$ Commented Aug 1, 2022 at 16:51
  • $\begingroup$ Simply add after TableSpacing->{0,0} the option for the alignment i.e. TableAlignments->Top and all the numbers will be on the same level. $\endgroup$ Commented Aug 1, 2022 at 19:40
  • $\begingroup$ @demm Thank you very much. Because I want to insert these graphs in pdf format in one go into my thesis (LaTex). But your code output is OK inside the notebook, but when exporting, some graphs still cross the border of a page. $\endgroup$ Commented Aug 2, 2022 at 2:01
  • $\begingroup$ I tried reducing the number of graphs per line a bit and it worked. $\endgroup$ Commented Aug 2, 2022 at 2:13
15
$\begingroup$

You can use Labeled with graph:

g = Import["http://users.cecs.anu.edu.au/~bdm/data/highlyirregular12.g6"]; Grid[Partition[ Table[Labeled[ Graph[g[[i]], PlotTheme -> "Monochrome", VertexSize -> .17 {1, 1}, ImageSize -> {50, 30}, VertexStyle -> GrayLevel[.6]], Style[i, FontFamily -> "Baskerville"], Bottom], {i, Length[g]}], UpTo[10]]]

enter image description here

Improve this answer
$\endgroup$
1
  • 2
    $\begingroup$ Your code is great. But I can't give the best answer for both answers. So I chose in chronological order. This is very painful. $\endgroup$ Commented Aug 2, 2022 at 2:14

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.