Adding new function geom_curve