Scatter plot multiple variables in r