My R plots,1 to 4