How To Plot Multiple Functions In R