add plot1 R scripy and png

part1