Plot gif of 3 dimensional heart in R inspired by this blog: http://alstatr.blogspot.co.uk/2014/02/r-animating-2d-and-3d-plots.html I made a 2D gif of a heart with: 

library(animation)
saveGIF({
for(i in 1:150){
dat&lt;- data.frame(t=seq(0, 2*pi, by=0.1) )
xhrt &lt;- function(t) 16*sin(t)^3
 yhrt &lt;- function(t) 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t)
dat$y=yhrt(dat$t)
dat$x=xhrt(dat$t)
with(plot(x,y, type="l", xlim = c(-100  , i ^ 2 / 10 )) ) 
} 
}, interval = 0.1, ani.width = 550, ani.height = 550)


I wonder if anyone out there could show me how to do this in 3D!
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}]