plotting in R - testing