data(tips, package = "reshape")
ggally_smooth(tips, mapping = ggplot2::aes(x = total_bill, y = tip))
ggally_smooth(tips, mapping = ggplot2::aes_string(x = "total_bill", y = "tip"))
ggally_smooth(tips, mapping = ggplot2::aes_string(x = "total_bill", y = "tip", color = "sex"))