Plot 1 Upload

Uploaded both the image and the R file