Create plot1.r

![plot1](https://cloud.githubusercontent.com/assets/5725762/3212337/76c4253e-ef55-11e3-99e0-b8dd39c92b27.png)