R Function that graphs with modified column name

Question

Here is the code on it\'s own that works.

ggplot(stkPres, aes(x = AAPL, y = AAPL.ret)) + geom_point()

Here is my attempt at a function: