Plot1 R Code and PNG file