使用ggmap繪制地圖時出錯

Question

當我嘗試下面的代碼時，收到以下錯誤消息。

my.Map <- get_map(location ="Singapore",source = "osm",zoom = 10)
 ggmap(my.Map)

錯誤信息：

zero_range（from）中的錯誤：x的長度必須為1或2

我已經嘗試過使用多個示例進行同樣的操作並重新加載程序包，但我無法弄清楚如何解決此問題，因為它只涉及查詢google地圖並繪制它們。

下面是我的sessionInfo

R version 3.3.0 (2016-05-03) Platform: x86_64-apple-darwin13.4.0 (64-bit) Running under: OS X 10.11.5 (El Capitan)

locale: [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8

attached base packages: [1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages: [1] ggmap_2.6.1        ggplot2_2.1.0.9001

loaded via a namespace (and not attached):  [1] Rcpp_0.12.7       plyr_1.8.4        tools_3.3.0       digest_0.6.10      [5] evaluate_0.9      tibble_1.2        gtable_0.2.0      lattice_0.20-34  [9] png_0.1-7         shiny_0.14        rstudioapi_0.6    mapproj_1.2-4     [13] yaml_2.1.13       proto_0.3-10      stringr_1.1.0     knitr_1.14        [17] RgoogleMaps_1.4.1 maps_3.1.1  grid_3.3.0        R6_2.1.3          [21] jpeg_0.1-8        rmarkdown_1.1     bookdown_0.1      sp_1.2-3          [25] reshape2_1.4.1    magrittr_1.5      scales_0.4.0.9003 htmltools_0.3.5  [29] assertthat_0.1    mime_0.5          xtable_1.8-2      colorspace_1.2-6  [33] geosphere_1.5-5   httpuv_1.3.3      labeling_0.3      stringi_1.1.1     [37] miniUI_0.1.1      lazyeval_0.2.0    munsell_0.4.3     rjson_0.2.15

my.Map的描述

str(my.Map)
chr [1:607, 1:607] "#F2EFE9" "#F2EFE9" "#F2EFE9" "#F2EFE9" "#F2EFE9" ...
- attr(*, "class")= chr [1:2] "ggmap" "raster"
- attr(*, "bb")='data.frame':   1 obs. of  4 variables:
..$ ll.lat: num 0.912
..$ ll.lon: num 103      ..$ ur.lat: num 1.79
..$ ur.lon: num 104
- attr(*, "source")= chr "osm"
- attr(*, "maptype")= chr "openstreetmap"
- attr(*, "scale")= num 575000

Answer 1

問題似乎出在開放街道地圖（ osm ）上。 ?get_openstreetmap將為您提供有關該問題的更多詳細信息。

收到來自download.file的錯誤消息，消息為HTTP狀態'503 Service Unavailable'。 您可以通過設置urlonly = TRUE來確認這一點，然后在Web瀏覽器中輸入URL。 解決方案是（1）更改源或（2）等待OSM服務器恢復。

如果您稍微更改代碼以將google用作源，它將起作用。

my.Map <- get_map(location ="Singapore",source = "google")
ggmap(my.Map)