update new r script, fix the output geojson projection issue