Plot gif of 3 dimensional heart in R
Mathematica
This is done in Mathematica, but it may give you some ideas as to how to implement it in R.
hearts = Table[
  With[{v = RotationTransform[\[Theta], {0, 0, 1}][{3, 0, -.2}]},
   ContourPlot3D[(2 (4/3 x)^2 + 2 y^2 + z^2 - 1)^3 - (4/3 x)^2 z^3/
       10 - y^2 z^3, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}, 
    MaxRecursion -&gt; 6, Mesh -&gt; None,
    BoxRatios -&gt; {.3, 1, 1},
    SphericalRegion -&gt; True,
    Contours -&gt; {0}, Boxed -&gt; False, PlotRange -&gt; All, Axes -&gt; False, 
    ViewPoint :&gt; v, ContourStyle -&gt; Red, 
    ImageSize -&gt; 300]], {\[Theta], 0, 2 Pi, Pi/24}]