Create Data_byCountry.R