Here is the code for "plot1.R"