plot2 R Code