R語(yǔ)言geoviz包，slippy_raster#使用“sliplymath”包創(chuàng)建一個(gè)以任何lat long點(diǎn)為中心的正方形光柵

image.png

# Tue Mar 16 14:07:51 2021 -

# 字符編碼：UTF-8
# R 版本：R x64 4.0.4 for window 10
# cgh163email@163.com
# 個(gè)人筆記不負(fù)責(zé)任，拎了個(gè)梨??
.rs.restartR()
require(geoviz)
rm(list = ls());gc()
?slippy_raster#使用“sliplymath”包創(chuàng)建一個(gè)以任何lat long點(diǎn)為中心的正方形光柵，或圍繞“Mapbox”、“Mapzen”或“Stamen”地圖中的一組lat long點(diǎn)創(chuàng)建一個(gè)矩形光柵
lat <- 54.4502651
long <- -3.1767946
square_km <- 1

overlay_image <- slippy_raster(lat = lat,
                               long = long,
                               square_km = square_km,
                               image_source = "stamen",
                               image_type = "watercolor",
                               max_tiles = 5)
require(terra)
map.grd <- rast(overlay_image)
plot(map.grd)
dev.copy(png, "slippy_raster#使用“sliplymath”包創(chuàng)建一個(gè)以任何lat long點(diǎn)為中心的正方形光柵，或圍繞“Mapbox”、“Mapzen”或“Stamen”地圖中的一組lat long點(diǎn)創(chuàng)建一個(gè)矩形光柵.png");dev.off()
# Tue Mar 16 14:12:22 2021 --end