Create plot1.R

![plot1](https://cloud.githubusercontent.com/assets/8694694/5326142/e81e96a8-7cd4-11e4-9aea-21b17b3d05e7.png)