code to port seaborn aesthetics to R