Remove substitute function from ggplot  aes argument