plot4 R Script