R语言geoviz包，ggslippy#创建图层添加到“ggplot2”图表

创建图层添加到“ggplot2”图表.jpg

# Tue Mar 16 10:01:11 2021 -

# 字符编码：UTF-8
# R 版本：R x64 4.0.4 for window 10
# cgh163email@163.com
# 个人笔记不负责任，拎了个梨🍐
.rs.restartR()
require(geoviz)
rm(list = ls());gc()

?ggslippy#创建图层添加到“ggplot2”图表
library(ggplot2)

dem <- example_raster()

dem <- raster::aggregate(dem, 10) #聚合以加快ggplot进行测试

gg_overlay_image <- slippy_overlay(
  dem,
  image_source = "stamen",
  image_type = "watercolor",
  return_png = FALSE,
  max_tiles = 2
)

ggplot() +
  ggslippy(gg_overlay_image, set_coord_equal = FALSE)
ggsave(filename = '创建图层添加到“ggplot2”图表.jpg',dpi=300)