Show the translated version of a plot alongside another graphics object

Question

I want to demonstrate the fact that the main part of a Mandelbrot fractal is consisted of a cardioid and some circles. So at first, I wrote this line:

With[{cardiod = PolarPlot[(1 - Cos[t])/2, {t, -Pi, Pi},
  Axes -> False, PlotStyle -> Directive[Thick, Red]]}, 
 Show[{MandelbrotSetPlot[], cardiod}]]

which results in

But if I Translate the cardioid to right, it won't be recognized as a Graphics object. For example

Show[{MandelbrotSetPlot[], Translate[cardiod, {1/4, 0}]}]

results in an error saying Could not combine the graphics objects. I also looked at this question and other linked ones and tried something like this:

p = PolarPlot[(1 - Cos[t])/2, {t, -Pi, Pi},
   Axes -> False, PlotStyle -> Directive[Thick, Red]];
g = Graphics[Translate[p, {1/4, 0}][[1]]];
Show[{MandelbrotSetPlot[], g}]

but again, it doesn't work.

Answer 1

Show[{
  MandelbrotSetPlot[], 
  Graphics @ Translate[cardiod[[1]], {1/4, 0}]}]

Answer 2

If you choose an {x,y} parametrization and "ParametricPlot", then you can simply add some vector for a translation:

cardiod = 
 ParametricPlot[{1/4 + 0.5 (1 - Cos[ph]) Cos[ph],  0.5 (1 - Cos[ph]) Sin[ph]}, {ph, 0, 2 Pi}, 
Axes -> False, PlotStyle -> Directive[Thick, Red]]; 

Show[{MandelbrotSetPlot[], cardiod}]