This gist shows in two steps how to tilt and stack maps using ggplot2 in order to create an image like this one: [![enter image description here][1]][1]
Let's load the necessary libraries and data to use a reproducible example:
# load libraries
library(rgeos)
library(UScensus2000tract)
library(ggplot2)
| # 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/ | |
| # So, this blew up on both Reddit and Twitter. Two bugs fixed (southern Spain was a mess, | |
| # and some countries where missing -- measure twice, submit once, damnit), and two silly superflous lines removed after | |
| # @hadleywickham pointed that out. The result of the code below can be seen at http://imgur.com/nhVJqwk | |
| library(tidyverse) | |
| read_csv('../data/geostat-2011/GEOSTAT_grid_POP_1K_2011_V2_0_1.csv') %>% |
| ################################################################################ | |
| # | |
| # ikashnitsky.github.io 2017-06-30 | |
| # Produce an RGB coded map of pop structures at NUTS-3 level | |
| # Ilya Kashnitsky, [email protected] | |
| # | |
| ################################################################################ | |
| # Erase all objects in memory | |
| rm(list = ls(all = TRUE)) |
| git config --global core.excludesfile ~/.gitignore | |
| echo .DS_Store >> ~/.gitignore |
library(tidyverse)
library(sf)Generate fake data (tribble() is a cool function, btw)
events <- tribble(
~event, ~latitude, ~longitude,
| #' @title bibtex_2academic | |
| #' @description import publications from a bibtex file to a hugo-academic website | |
| #' @author Lorenzo Busetto, phD (2017) <[email protected]> | |
| bibtex_2academic <- function(bibfile, | |
| outfold, | |
| abstract = FALSE, | |
| overwrite = FALSE) { | |
| require(RefManageR) |
| # see https://www.topbug.net/blog/2013/04/14/install-and-use-gnu-command-line-tools-in-mac-os-x/ | |
| # core | |
| brew install coreutils | |
| # key commands | |
| brew install binutils | |
| brew install diffutils | |
| brew install ed | |
| brew install findutils |
| # Download any data file from a private GitHub repo | |
| # regardless of how large it is. | |
| # Returns a string that will then need to be parsed | |
| # by read_csv or the like to turn it into a data frame. | |
| # Dependencies | |
| require(tidyverse) | |
| require(httr) | |
| require(rlist) | |
| require(jsonlite) |