plot4 R Code