R語言maptiles包亩歹，get_tiles函數(shù)從地圖服務商下載切片

Snipaste_2020-11-25_23-53-38.png

Snipaste_2020-11-26_00-00-18.png

# Wed Nov 25 23:41:34 2020 -

# 字符編碼：UTF-8
# R 版本：R x64 4.0.3 for window 10
# cgh163email@163.com
# 個人筆記不負責任
# —— 拎了個梨??
rm(list=ls());gc()
.rs.restartR()
require(maptiles)
# get_tiles從地圖服務商下載切片
get_credit("OpenStreetMap") #地圖服務商屬性
# Wed Nov 25 23:42:38 2020 --get_tiles從地圖服務器獲取基礎(chǔ)地圖分幅
#
# 基于空間對象范圍獲取地圖分幅。地圖可以從各種地圖服務器獲取香伴。
# Wed Nov 25 23:45:19 2020 --
Providers:
  "OpenStreetMap.MapnikBW", "OpenStreetMap", "OpenStreetMap.DE", "OpenStreetMap.France", "OpenStreetMap.HOT",
"Stamen.Toner", "Stamen.TonerBackground", "Stamen.TonerHybrid", "Stamen.TonerLines", "Stamen.TonerLabels", "Stamen.TonerLite", "Stamen.Watercolor", "Stamen.Terrain", "Stamen.TerrainBackground", "Stamen.TerrainLabels",
"Esri.WorldStreetMap", "Esri.DeLorme", "Esri.WorldTopoMap", "Esri.WorldImagery", "Esri.WorldTerrain", "Esri.WorldShadedRelief", "Esri.OceanBasemap", "Esri.NatGeoWorldMap", "Esri.WorldGrayCanvas",
"CartoDB.Positron", "CartoDB.PositronNoLabels", "CartoDB.PositronOnlyLabels", "CartoDB.DarkMatter", "CartoDB.DarkMatterNoLabels", "CartoDB.DarkMatterOnlyLabels", "CartoDB.Voyager", "CartoDB.VoyagerNoLabels", "CartoDB.VoyagerOnlyLabels",
"Thunderforest.OpenCycleMap", "Thunderforest.Transport", "Thunderforest.TransportDark", "Thunderforest.SpinalMap", "Thunderforest.Landscape", "Thunderforest.Outdoors", "Thunderforest.Pioneer", "Thunderforest.MobileAtlas", "Thunderforest.Neighbourhood",
"OpenTopoMap",
"HikeBike",
"Wikimedia",
# Wed Nov 25 23:45:27 2020 --
require(sf)
require(maptiles)


# map <- st_read(system.file("shape/nc.shp", package="sf"), quiet = TRUE)
map <- st_read('https://geo.datav.aliyun.com/areas_v2/bound/440100_full.json')
plot(map[2]);BRRR::skrrrahh(25)

get_tiles(map,crop = T,zoom = 6) %>%
  plot_tiles()
# Wed Nov 25 23:53:42 2020 --
get_tiles(x = map,crop = T, #  裁剪到指定的x范圍
          zoom = 6, #  放大級別
          verbose = T, #  顯示情況
# cachedir = NULL, #  緩存路徑
forceDownload = T #  覆蓋文件
          ) %>%
  plot_tiles()
# Wed Nov 25 23:58:43 2020 --
get_tiles(map,zoom = 6,
          provider = 'Wikimedia') %>%
  plot_tiles()
# Thu Nov 26 00:01:14 2020 --end