Dealing data with "readdate.R"
Plot 1-4 and saved as png