# Best way to Export a large list of figures? [closed]

I have over 2000 graphs. I would like to Export them, ideally, in one PDF document with all the graphs on it.

-

## closed as unclear what you're asking by Jens, Szabolcs, Yves Klett, halirutan, RunnyKineMay 15 '14 at 22:20

Please clarify your specific problem or add additional details to highlight exactly what you need. As it's currently written, it’s hard to tell exactly what you're asking. See the How to Ask page for help clarifying this question. If this question can be reworded to fit the rules in the help center, please edit the question.

You want to export them one by one? With what name? –  Öskå May 15 '14 at 19:43
The best way would ,ideally, to be able to have one pdf document with all the graphs on it. Is this possible? –  user7954 May 15 '14 at 19:46
I think I replicated the same thing, but my pdf is blank. –  user7954 May 15 '14 at 20:42
Can size be an issue? It works perfectly fine on a small sample size. Can we adjust how many will fit on a pdf? –  user7954 May 15 '14 at 20:49
You could save them out individually then use LaTeX to make a document with all the plots. You can even have Mathematica write your LaTeX document which will let you add comments about all of your parameters that were used to create all the plots. If you have sub groups of plots that go together you can use the animate package in LaTex to make some really nice results. –  c186282 May 15 '14 at 21:28

This is arranging the plots on a grid:

 plotlist =
Plot[ #.{1, x, x^2, x^3} , {x, -1, 1}, ImageSize -> 180] & /@
RandomReal[{-1, 1} , {2000, 4}];
Export["test2000y.pdf", GraphicsGrid[Partition[#,
Sequence @@ ConstantArray[Floor[.7  Sqrt[Length[#]]], 2],
{1,1}, {}] &@ plotlist]]


( The .7 controls the grid aspect ratio ) This is a screen grab from acrobat:

zoom in and see we have good quality:

Note specifying ImageSize (per @Oska answer ) is essential otherwise the font sizes, line weights etc get buggered up.

-
• All plots in one single page:

SeedRandom@1;
lists = RandomReal[{0, 10}, {10, 10, 2}];
labels = StringForm["Plot n° ", #] & /@ ToString /@ Range@Length@lists
plots = Column[
ListPlot[#, Joined -> True, PlotMarkers -> Automatic,
ImageSize -> 180, PlotLabel -> #2] & @@@ Thread[{lists, labels}]]

Export["~/Plots.pdf", plots]


One PDF with 10 plots in it.

• n plots per page:

SeedRandom@1;
list = RandomReal[{0, 10}, {105, 10, 2}];
labels = ToString@StringForm["Plot n° ", #] & /@ ToString /@ Range@Length@list;
numberPerPage = 10;

parts = Partition[#, numberPerPage, numberPerPage, 1, {}] &;
makeLP = ListPlot[#, Joined -> True, PlotMarkers -> Automatic,
ImageSize -> 180, PlotLabel -> #2] &;
Print["You will get " <> ToString@Length@parts@list <> " pages."]

pdfnames = ToString@StringForm["~/Plots.pdf", #] & /@
ToString /@ Range@Length@parts@list;
ppp = Column[
makeLP @@@ Thread[{(parts@list)[[#]], (parts@labels)[[#]]}]] & /@
Range@Length@parts@list;

Export[#, #2] & @@@ Thread[{pdfnames, ppp}]


11 PDFs with 10 plots per pages for the 10th firsts and 5 for the last one.

-