如果我理解正确的问题，那么通过控制点绘制样条线就可以完成：

if I understood the question right, drawing a spline through control points should do the job:

xspline(c(-1,-1.5,-3), c(4,2,0), shape = -1)