Add aes_string to ggplot function