I have a problem with my plotting function. I already asked kind of a similar question and

When in doubt, keep things stupid and simple. Non-standard evaluation like deparse(substitute( will throw you right into Burns' R inferno.