r - ggmap map 样式存储库？现在 CloudMade 不再提供 API

Question

我不确定这是否是问这个问题的正确地方，但是有人建议访问可用于 ggmap 的不同 map 样式吗？ CloudMade 不再向不是“企业帐户”的帐户提供 API key 。

从“ggmap:使用 ggplot2 进行空间可视化”(Kahle 和 Wickham)中，他们建议使用 Stamen 或 Google map ，但我正在寻找与这些不同的风格。

有人可以建议可用于ggmap的 map 样式存储库吗？

干杯

Answer 1

您可以使用 maps 获得简单的陆地 - 水对比。包裹:

使用 xlim 和 ylim 设置 map 的边界。

library(maps)
library(ggplot2)

map <- fortify(map(fill = TRUE, plot = FALSE))

ggplot(data = map, aes(x=long, y=lat, group = group)) +
   geom_polygon(fill = "ivory2") +
   geom_path(colour = "black") +
   coord_cartesian(xlim = c(137, 164), ylim = c(-14, 3.6)) +
   theme(panel.background = element_rect(fill = "#F3FFFF"),
          panel.grid.major = element_blank(),
          panel.grid.minor = element_blank())

map 有点笨重，但高分辨率 map 可在 mapdata 中找到。包>

library(mapdata)
map <- fortify(map("worldHires", fill = TRUE, plot = FALSE))

ggplot(data = map, aes(x=long, y=lat, group = group)) +
   geom_polygon(fill = "ivory2") +
   geom_path(colour = "black") +
   coord_cartesian(xlim = c(135, 165), ylim = c(-15, 0)) +  # Papua New Guinea
   theme(panel.background = element_rect(fill = "#F3FFFF"),
          panel.grid.major = element_blank(),
          panel.grid.minor = element_blank())  # Be patient

或者可以选择单个国家。

map <- fortify(map("worldHires", fill = TRUE, plot = FALSE))

ggplot(data = subset(map, region == "Papua New Guinea"), aes(x=long, y=lat, group = group)) +
   geom_polygon(fill = "ivory2") +
   geom_path(colour = "black") +
   theme(panel.background = element_rect(fill = "#F3FFFF"),
          panel.grid.major = element_blank(),
          panel.grid.minor = element_blank())