# How to rotate and move plot in PolarPlot function without axes change?

PolarPlot[Exp[θ], {θ, 0, 10}]


I get plot as below:

If I need to rotate and move this object as below:

What function can I use?

I ask this question because I need to know the general method to rotate and move object. I ask a similar question about ContourPlot, it seemed there's no general method for all plot function.

• What you show doesn't look like a simple rotation. Can you be more precise about specifying the geometric transform you actually want? Commented Mar 7, 2018 at 12:33
• Does this answer both of your questions? rotated PolarPlot with Show
– Kuba
Commented Mar 8, 2018 at 7:07

## 2 Answers

If you use ParametricPlot[] instead, things are easier:

ParametricPlot[Composition[TranslationTransform[{-3000, -100}], RotationTransform[-120 °]][
Exp[θ] AngleVector[θ]] // Evaluate, {θ, 0, 10}]


Note that multiplying your polar function with AngleVector[θ] (equivalently, {Cos[θ], Sin[θ]}) converts it into an equivalent form that can be used by ParametricPlot[].

I would say that it is not a good idea to try to apply geometric transformations to a Graphics object. One should better attack the geometric objects (the graphics primitives such as GraphicsComplex, Polygon, Line, Point, ...) inside a Graphics objects.

Let's start with the graphic you supplied. (Note that I specify a concise PlotRange in order to prevent myself from running into some problems with inconsistencies among the handling Options different plot types.)

g = PolarPlot[Exp[θ], {θ, 0, 10}, PlotRange -> {{-100, 100}, {-100, 100}}]


The relevant primitive here is Line as can be seen from the InputForm of g. In the following I Rotate anything that evaluates to True under RegionQ by Pi/3 about the point {0,0} and Translate it afterwards by {0,10}. Thanks to JEM_Mosig for pointing out that RegionQ can be used.

 g /. {x_?RegionQ :> Translate[Rotate[x, Pi/3, {0, 0}], {0,10}]}


This should work with slight modifications for arbitrary plot types (also 3D plots) and for all graphics primitives.

• Nice :-) Using x_?RegionQ instead of x_Line is a bit more general. Commented Mar 7, 2018 at 21:47
• @JEM_Mosig Yeah, good idea. Actually I am spelunking for a GraphicsPrimitiveQ function... Haven't been successful, yet... =/ Commented Mar 7, 2018 at 21:48
• @HenrikSchumacher,g = PolarPlot[Abs[t]/3, {t, -Pi, Pi}, PlotRange -> {{-1, 1}, {-1, 1}}] doesn't work in your script g /. {x_RegionQ :> Translate[Rotate[x, Pi/3, {0, 0}], {0,10}]} Commented Mar 8, 2018 at 1:31
• @kittygirl Oops. Typo. It has to be x_?RegionQ (with a question mark). Commented Mar 8, 2018 at 6:56