r: out scatterplot