Create geographic_pca.R