R, ggplot2: How to plot bezier curves that pass through fixed coordinates?

Question

I am helping someone translate hand-drawn economics supply and demand functions into image files that can be included in a Word document. These have been going well using Hmisc: