Create common.R file to put all common functions for getting the data
plot2 completed