Add elements to the graphics I get in Wolfram Mathematica?

Hi, I’m a new user on Wolfram Mathematica, and I’m currently working on a problem about planet orbitals. I calculated out the shape of the orbitals, and graphed it out through a serires of equations. My graph looks something like this:

The improvements I want to make are:

  1. relocate the coordinate axis so it would be centered at the original point;
  2. add arrows to the orbital to show the direction of the planet’s motion;
  3. probably add a spot in the middle (as the sun).

Thanks a lot !