ggmap地图样式库？现在CloudMade不再提供API

Question

我不确定这是否是提出这个问题的正确位置,但有没有人建议访问可用于ggmap的不同地图样式？CloudMade不再为不是"企业帐户"的帐户提供API密钥.

从"ggmap:使用ggplot2进行空间可视化"(Kahle和Wickham),他们建议使用Stamen或Google地图,但我正在寻找与这些不同的风格.

任何人都可以建议可以用于ggmap的地图样式库吗？

干杯

Answer 1

您可以使用以下软件包获得简单的陆地-水对比maps：

使用 xlim 和 ylim 设置地图的边界。

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())

地图有点笨重，但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())