Skip to main content

graphics - Exporting an image so that the PlotRange has a fixed size in the output


I am writing a document that involves a table of plots, of an array of quantities ($f$ and $g$, say) against an array of variables ($x$ and $y$, say), and which I would like to present in the following form:






I have produced this minimal working example via the following Mathematica code,


fraction = 0.54;
var[1] = "x"; var[2] = "y"; var[3] = "x"; var[4] = "y";
fun[1] = "f"; fun[2] = "f"; fun[3] = "g"; fun[4] = "g";
Grid[Partition[#, 2]] &@
  Table[
   figure[n] = Plot[
     x^n

     , {x, 0, 1}
     , ImageSize -> If[n == 1 || n == 3, fraction 370, (1 - fraction) 370]
     , Frame -> True
     , FrameLabel -> {var[n], fun[n]}
     ,,Epilog->{Inset[Text[Evaluate["("<>{"a","b","c","d"}[[n]]<>") "<>
            fun[n]<>"=\!\(\*SuperscriptBox[\("<>var[n]<>"\), \("<>ToString[n]<>"\)]\)"]],
            Scaled[{0.5,0.97}],Scaled[{0.5,1}]]}
     , ImagePadding -> {{
        If[n == 1 || n == 3, Scaled[0.08], Scaled[0.007]]
        , Scaled[0.01]}, {

        If[n == 3 || n == 4, Scaled[0.08], Scaled[0.007]]
        , Scaled[0.01]}}
     ]
   , {n, 1, 4}];
Table[Export["figure" <> ToString[n] <> ".pdf", figure[n]], {n, 1, 4}]

which then feeds into a simple LaTeX document


\documentclass{article}
\usepackage{graphicx}
\begin{document}

\begin{figure}[h]
\centering
\setlength{\tabcolsep}{0.3mm}
\begin{tabular}{cc}
  \includegraphics[scale=1]{figure1.pdf}&
  \includegraphics[scale=1]{figure2.pdf}\\[-2mm]
  \includegraphics[scale=1]{figure3.pdf}&
  \includegraphics[scale=1]{figure4.pdf}
\end{tabular}
\caption{Figure caption}

\end{figure}
\end{document}


In particular, I want the plots to share scales: I only want to have tick marks and axis labels on the global left and global bottom of the table, because space is at a premium and I want to devote as much space as possible to the plots themselves. This is the reason for the differential use of ImagePadding depending on where in the table each plot sits.


Moreover, I am wedded to the use of scale=1 on the LaTeX figure calls, because I have multiple MaTeX calls on the axis, plot, and tick labels, as well as several other places in the plots, and I want to retain consistency of sizing over all of them. Thus, I want the Exported plots to be produced at the size at which they will be inserted into the LaTeX-produced pdf.


This is a bit problematic, though, because I also want the plot ranges themselves to match up, as exactly as possible, so that the table will be seamless and easier to read. In the code above, this was done by fixing (by hand, and through trial and error) the value of the fraction of the global width that each plot occupies. This mostly works, but it is error-prone and it breaks if there is any sizeable change to the plots, and particularly to the image padding.


This brings me to my question: Is there a way to automate this process? That is, is there a way that I can fix the absolute size, in printer's points, at which the formal PlotRange will be produced within the exported image?



Answer



I don't know if the following addresses all of your issues, but there are 2 things I would try:




  1. ImageSize -> Automatic -> size


This option sets the plot range of the plot to have the ImageSize size.



  1. Charting`ScaledFrameTicks[{Identity, Identity}]


This ticks specification draws tick marks, but no labels.


Using the above, you shouldn't have to worry about tweaking the ImageSize and ImagePadding options. For example:


Grid[{

    {
    Plot[x, {x,0,1}, Frame->True, ImageSize->Automatic->{170,170/GoldenRatio},
        FrameTicks->{{True,True},{Charting`ScaledFrameTicks[{Identity,Identity}],True}},
        FrameLabel->{{f,None}, {None, None}}
    ],
    Plot[y^2, {y,0,1}, Frame->True, ImageSize->Automatic->{170,170/GoldenRatio},
        FrameTicks->{{Charting`ScaledFrameTicks[{Identity,Identity}],True},{Charting`ScaledFrameTicks[{Identity,Identity}],True}}
    ]
    },
    {

    Plot[x^3, {x,0,1}, Frame->True, ImageSize->Automatic->{170,170/GoldenRatio},
        FrameTicks->{{True,True},{Automatic,True}},
        FrameLabel->{{g,None},{x,None}}
    ],
    Plot[y^4, {y,0,1}, Frame->True, ImageSize->Automatic->{170,170/GoldenRatio},
        FrameTicks->{{Charting`ScaledFrameTicks[{Identity,Identity}],True},{Automatic,True}},
        FrameLabel->{{None,None},{y,None}}
    ]
    }
}]


enter image description here


Comments

Post a Comment

Popular posts from this blog

plotting - Filling between two spheres in SphericalPlot3D

Manipulate[ SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, Mesh -> None, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], {n, 0, 1}] I cant' seem to be able to make a filling between two spheres. I've already tried the obvious Filling -> {1 -> {2}} but Mathematica doesn't seem to like that option. Is there any easy way around this or ... Answer There is no built-in filling in SphericalPlot3D . One option is to use ParametricPlot3D to draw the surfaces between the two shells: Manipulate[ Show[SphericalPlot3D[{1, 2 - n}, {θ, 0, Pi}, {ϕ, 0, 1.5 Pi}, PlotPoints -> 15, PlotRange -> {-2.2, 2.2}], ParametricPlot3D[{ r {Sin[t] Cos[1.5 Pi], Sin[t] Sin[1.5 Pi], Cos[t]}, r {Sin[t] Cos[0 Pi], Sin[t] Sin[0 Pi], Cos[t]}}, {r, 1, 2 - n}, {t, 0, Pi}, PlotStyle -> Yellow, Mesh -> {2, 15}]], {n, 0, 1}]
Post a Comment
Read more

plotting - Plot 4D data with color as 4th dimension

I have a list of 4D data (x position, y position, amplitude, wavelength). I want to plot x, y, and amplitude on a 3D plot and have the color of the points correspond to the wavelength. I have seen many examples using functions to define color but my wavelength cannot be expressed by an analytic function. Is there a simple way to do this? Answer Here a another possible way to visualize 4D data: data = Flatten[Table[{x, y, x^2 + y^2, Sin[x - y]}, {x, -Pi, Pi,Pi/10}, {y,-Pi,Pi, Pi/10}], 1]; You can use the function Point along with VertexColors . Now the points are places using the first three elements and the color is determined by the fourth. In this case I used Hue, but you can use whatever you prefer. Graphics3D[ Point[data[[All, 1 ;; 3]], VertexColors -> Hue /@ data[[All, 4]]], Axes -> True, BoxRatios -> {1, 1, 1/GoldenRatio}]
Post a Comment
Read more

plotting - Adding a thick curve to a regionplot

Suppose we have the following simple RegionPlot: f[x_] := 1 - x^2 g[x_] := 1 - 0.5 x^2 RegionPlot[{y < f[x], f[x] < y < g[x], y > g[x]}, {x, 0, 2}, {y, 0, 2}] Now I'm trying to change the curve defined by $y=g[x]$ into a thick black curve, while leaving all other boundaries in the plot unchanged. I've tried adding the region $y=g[x]$ and playing with the plotstyle, which didn't work, and I've tried BoundaryStyle, which changed all the boundaries in the plot. Now I'm kinda out of ideas... Any help would be appreciated! Answer With f[x_] := 1 - x^2 g[x_] := 1 - 0.5 x^2 You can use Epilog to add the thick line: RegionPlot[{y < f[x], f[x] < y < g[x], y > g[x]}, {x, 0, 2}, {y, 0, 2}, PlotPoints -> 50, Epilog -> (Plot[g[x], {x, 0, 2}, PlotStyle -> {Black, Thick}][[1]]), PlotStyle -> {Directive[Yellow, Opacity[0.4]], Directive[Pink, Opacity[0.4]],
Post a Comment
Read more