R source and PNG for plot 2.