I use the following code to generate and export a simple combined figure with an epilog of the long horizontal arrow.
inten = (x y (z^3 + 0.2))/(x^2 + y^2 + z^2 + 0.01);
max = 1; zlst = Range[2, -2, -4/(5 - 1)];
frameticks = {-0.5, 0.5};
plot0 = Table[
ContourPlot[
inten /. z -> zlst[[-i]], {x, -max, max}, {y, -max, max},
FrameTicks -> {{frameticks, None}, {frameticks, None}},
ImagePadding -> {{Automatic, Automatic}, {23, 36}},
ImageSize -> 160], {i, Length@zlst}];
plot = GraphicsRow[plot0,
Epilog -> {Gray, Thickness[0.01/3], Arrowheads[0.015],
Arrow[{Scaled[{0, 0.96}], Scaled[{0.94, 0.96}]}]},
ImageSize -> 1000]
Export["Fig_try.pdf", plot]
It looks good in the front end, but is weirdly damaged in two aspects in the exported pdf.
- The arrowhead at the top right corner is cut out;
- There appear many glitches around the boundary of each plot.
From the comments received, it seems not limited to my machine or to PDF format. Any remedy or workaround?
Row
instead ofGraphicsRow
improve the situation at all? $\endgroup$GraphicsRow
instead ofRow
to add various epilogs. $\endgroup$.svg
and.eps
, and isn't specific to the.pdf
export. I'm guessing you want vector graphics—but if not, then exporting to.png
(with e.g.Export["Fig_try.png", plot, ImageResolution -> 600]
) seems to work. (There are still some misalignments with the contour lines starting too early and ending too late, but if you look closely, you'll notice these are already present in the notebook itself!) $\endgroup$FullForm
, we see that the regions of the plots are currentlyGraphicsComplex
es ofGraphicsGroup
s ofPolygon
s. I wonder if converting them to some other form, like meshes(?), or messing with their vertex-related options would have any effect on the export. $\endgroup$