Rplot4.R