added plot1-4 R files and R scripts