Plot 4.R