grid.newpage()
x <- c(.2, .4, .6, .8)
y <- c(-.05, .05, -.05, .05)
w <- unit(c(2, 4, 6, 8), "mm")
grid.offsetXspline(x, y + .8, w)
grid.offsetXspline(x, y + .6, w,
shape=-1)
grid.offsetXspline(x, y + .4, w,
lineend="round")
grid.offsetXspline(x, y + .2, w,
gp=gpar(col="black"), debug=TRUE)
Run the code above in your browser using DataLab