R and plot