plot 4graph and R script