7. ceci constitue la fin du pipe

Source: vignettes/articles/mapview_07-pipe.Rmd 
## maptools (NA -> 1.1-8) [CRAN]
## rgdal    (NA -> 1.6-7) [CRAN]
## rgeos    (NA -> 0.6-4) [CRAN]
## ── R CMD build ─────────────────────────────────────────────────────────────────
## * checking for file ‘/tmp/RtmplweIYx/remotes804a73a626f2/hrbrmstr-albersusa-07aa87f/DESCRIPTION’ ... OK
## * preparing ‘albersusa’:
## * checking DESCRIPTION meta-information ... OK
## * checking for LF line-endings in source and make files and shell scripts
## * checking for empty or unneeded directories
## * building ‘albersusa_0.4.1.tar.gz’

mapview can be used in piped expressions using %>%, most likely at the very end of it…

Here are just a few examples of piped workflows:

plotting feature unions 

library(mapview)
library(poorman)
library(leaflet)
library(sf)
# GitHub: hrbrmstr/albersusa
library(albersusa)

franconia %>%
  st_union %>%
  plot


mapviewing feature unions 

franconia %>%
  st_union %>%
  mapview


union by district


districts by area


counties by area 

franconia %>%
  mutate(area = as.numeric(st_area(.))) %>%
  mapview(zcol = "area", legend = TRUE)


breweries colored by district 

breweries %>%
  st_intersection(franconia) %>%
  mapview(zcol = "district")


number of breweries by county 

franconia %>%
  mutate(count = lengths(st_contains(., breweries))) %>%
  mapview(zcol = "count")


brewery density by county 

franconia %>%
  mutate(count = lengths(st_contains(., breweries)),
         density = count / as.numeric(st_area(.))) %>%
  mapview(zcol = "density")


using native.crs for a USA composite map 

albersusa::usa_composite("laea") %>%
  mapview(native.crs = TRUE, zcol = "pop_2014", legend = TRUE)


without native.crs 

albersusa::usa_composite("laea") %>%
  mapview(zcol = "pop_2014", legend = TRUE)