One Paragraph of project description goes here
These instructions will get you a copy of the project up and running on your local machine for development and testing purposes. See deployment for notes on how to deploy the project on a live system.
SJ Porter sj-porter-dev
sj-porter-dev
/ README-Template.md
Created
May 23, 2019 05:02
— forked from PurpleBooth/README-Template.md
A template to make good README.md
sj-porter-dev
/ sampleREADME.md
Created
May 23, 2019 05:02
— forked from FrancesCoronel/sampleREADME.md
A sample README for all your GitHub projects.
sj-porter-dev
/ europe.R
Created
April 23, 2017 18:06
— forked from halhen/europe.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # data from http://ec.europa.eu/eurostat/web/gisco/geodata/reference-data/population-distribution-demography/geostat | |
| # Originally seen at http://spatial.ly/2014/08/population-lines/ | |
| library(tidyverse) | |
| read_csv('../data/geostat-2011/GEOSTAT_grid_POP_1K_2011_V2_0_1.csv') %>% | |
| rbind(read_csv('../data/geostat-2011/JRC-GHSL_AIT-grid-POP_1K_2011.csv') %>% | |
| mutate(TOT_P_CON_DT='')) %>% | |
| mutate(lat = as.numeric(gsub('.*N([0-9]+)[EW].*', '\\1', GRD_ID))/100, | |
| lng = as.numeric(gsub('.*[EW]([0-9]+)', '\\1', GRD_ID)) * ifelse(gsub('.*([EW]).*', '\\1', GRD_ID) == 'W', -1, 1) / 100) %>% |