lollipop.r

library(grid)

lollipopGrob <- function(x, y, size, turns=3){
  
  theta <- seq(0, turns*2*pi, length=120)
  xx <- unit(x, "npc") + unit(size*theta/max(theta)*cos(theta+pi), "mm")
  yy <- unit(y, "npc") + unit(size*theta/max(theta)*sin(theta+pi), "mm")
  segmentsGrob(head(xx, -1), head(yy, -1), tail(xx, -1), tail(yy, -1), 
               gp=gpar(col=hcl(seq(0,360,length=12), 90, 70), lwd=5))
}

l <- lollipopGrob(0.5, 0.5, 5)
grid.newpage()
grid.segments(0, 0.5, 0.5, 0.5)
grid.draw(l)