grid.rect(gp=gpar(col="gray")) grid.circle(x=seq(0.1, 0.9, length=100), y=0.5 + 0.4*sin(seq(0, 2*pi, length=100)), r=abs(0.1*cos(seq(0, 2*pi, length=100))))