safe_aes_name function

Safely extract aesthetic name from ggplot mapping