updated plotting #3 R-script