Plot and R Code for plot4