r - 在 bgMap 参数中使用 ggmap 绘制 sf 点不起作用

Question

我正在尝试按照我在此处找到的说明用 ggmap 对象绘制 sf 对象。

我正在使用的代码如下：

library(sf)
library(dplyr)

url_base <- "http://dados.prefeitura.sp.gov.br/"
dat <- "dataset/8da55b0e-b385-4b54-9296-d0000014ddd5/"
rec <- "resource/dfa2e046-b975-4ff5-983f-dacfd8cb06b2/"
arq <- "download/escolasr34dez2017.csv"

path <- paste0(url_base, dat, rec, arq)
tmp <- tempfile(fileext = ".csv")
download.file(path, tmp)
escolas <- read.csv(tmp, sep = ";")

escolas_sf <- st_as_sf(select(filter(escolas, !is.na(LONGITUDE)), TIPOESC, LONGITUDE, LATITUDE),
                       coords = c("LONGITUDE", "LATITUDE")) %>%
  st_set_crs(31983)

plot(escolas_sf)

map_sp <- ggmap::get_map("Cidade de São Paulo", zoom = 10)
plot(map_sp)

一切正常到这里。我不知道为什么，但粘贴的地图bgMap不显示。我只能看到存储在 sf 对象上的点。

plot(st_transform(escolas_sf, 3857), col = "blue", bgMap = map_sp)

谁能帮我理解为什么？

提前致谢。

标签： rsf