How do I overlay a set of functions onto a ggplot2 graph when the function relies on the parameters of the inherited datafame?

Question

Thanks for the help.

Effectively what I want to do is more efficiently generate a graph like this using reproducible data that I am providing.

I have p