Конвет листовка карта с участком c участок [р] - PullRequest
Новая
       61

Конвет листовка карта с участком c участок [р]

0 голосов
/ 21 февраля 2020

Как преобразовать листовую карту в обычный c график, чтобы можно было сохранить график в формате PDF.

Я знаю о функции mapshot, чтобы можно было указать что-то вроде mapview::mapshot(m, file = "saveaspdf.pdf").

Но предположим, что наш объект листовки имеет более 200 МБ, поэтому более эффективно преобразовать его в stati c plot и затем сохранить его как pdf / jpg.

Как преобразовать m карту, созданную в коде ниже к стати c участок? 

library(leaflet)
library(tidyverse)

rm(list = ls())
URL2 <- "https://biogeo.ucdavis.edu/data/gadm3.6/Rsp/gadm36_FRA_2_sp.rds"
data2 <- readRDS(url(URL2))


URL1 <- "https://biogeo.ucdavis.edu/data/gadm3.6/Rsp/gadm36_FRA_0_sp.rds"
data1 <- readRDS(url(URL1))



data2@data <- 
  data2@data %>% 
  mutate(hdp = sample(rnorm(nrow(data2@data), mean = 100, sd = 20)))


paris <- data2[48, ]

# Define cut points for the colorbins
data2$hdp %>% max
data2$hdp %>% min
cuts <- c(50, 70, 90, 110, 151)

# Using quantiles by hand 
##########################

# Color: "YlOrRd"
cuts <- colorBin("Greens", domain = data2$hdp, bins = cuts)

m <- 
  leaflet() %>% 
  addProviderTiles("CartoDB.Positron") %>% 
  addPolygons(data=data2, stroke = TRUE, color = "white", weight="", smoothFactor = 0.95, 
              fillOpacity = 0.65, fillColor = ~cuts(data2$hdp)) %>% 
  addLegend(pal = cuts, 
            values = data2$hdp,
            labFormat = labelFormat(suffix = " "),
            opacity = 0.85, title = "Model Predictions", position = "topright") %>% 
  addPolygons(data = data1, color = "black", fill = F, 
              weight = 2) %>% 
  addPolygons(data = paris, color = "red")
...