Make size of ListPolarPlot with PolarAxes consistent

I am currently having an issue with ListPolarPlot, specifically with achieving a consistent size among multiple plots. Consider the following illustration of my issues:

(* some common options for the plots *)
opts = {PolarAxes -> True, PlotRangePadding -> Scaled@0.12, ImageSize -> 350};

tests[pr_] := {
  ListPolarPlot[Table[{i, (Cos@i)^2}, {i, 0, 2 π, π/10}], PlotRange -> pr, opts],
  ListPolarPlot[Table[{i, 1.26 (Cos@i)^2}, {i, 0, 2 π, π/10}], PlotRange -> pr, opts],
  ListPolarPlot[Table[{i, (Cos@i)^10}, {i, 0, 2 π, π/500}], PlotRange -> pr, opts]
  }

tests /@ {All, Automatic, Full}

8Su09 Make size of ListPolarPlot with PolarAxes consistent

Note how neither of the option values produces consistent results: All is broken for the middle plot, Automatic for the last one, and let’s not even talk about Full

Is there any way to get sizing consistent, without resorting to manual adjustments?

1 Answer

Let’s block ads! (Why?)

Recent Questions – Mathematica Stack Exchange