R 非常小岛屿的高分辨率黑白地图

我需要创建一个小岛的地图（黑白地图或灰度）<代码>worldHires不起作用：

library(maps)
library(mapdata)
map("worldHires", fill=TRUE, col="grey80", xlim=c(105.2, 105.8), ylim=c(-10.8, -10.2))
map.scale(ratio=FALSE, relwidth = 0.18)   

Error in map.poly(database, regions, exact, xlim, ylim, boundary, interior,  : 
  nothing to draw: all regions out of bounds

我尝试了包

ggmap

和以下代码：

library(ggmap)
pngMAP_df <-  get_map(location = c(lon = 105.62, lat = -10.5), source = "google", zoom = 12)
ggmap(pngMAP_df)

库（ggmap）
pngMAP_df您应该将
color
参数设置为黑白：

library(ggmap)
pngMAP_df<- get_map(location = c(lon = 105.62, lat = -10.5), 
                    source = "google", zoom = 12,color='bw')

ggmap(pngMAP_df)

使用
color=“bw”
参数绘制地图后，可以使用标准
ggplot2
命令添加点和文本：

library(ggmap)
pngMAP_df <-  get_map(location = c(lon = 105.62, lat = -10.5),
                      source = "google",
                      zoom = 12,
                      color="bw")
ggmap(pngMAP_df) +
    geom_point(x=105.58, y=-10.5, col="red") +
    geom_text(x=105.60, y=-10.49, label="foo")

库（ggmap）
pngMAP_df如果您阅读了for
get_map
，您会看到有一个
color
参数。将其添加到代码中会得到灰度图像（见下文）

库（ggmap）
pngMAP_df如果你告诉我这是什么编程语言和库，那会很有帮助。对不起，我使用的是R版本2.15.3，看起来你有一个默认的格式来创建长轴标签…我在测试你的代码时有漂亮的轴。！非常非常感谢所有的答案。很抱歉问了一个其他地方可能已经回答过的问题。有人知道如何添加以公里为单位的地图比例尺吗？我搜索了论坛并阅读了ggmap手册，但没有找到任何关于这方面的信息！
library(ggmap)
pngMAP_df <-  get_map(location = c(lon = 105.62, lat = -10.5),
                      source = "google",
                      zoom = 12,
                      color="bw")
ggmap(pngMAP_df) +
    geom_point(x=105.58, y=-10.5, col="red") +
    geom_text(x=105.60, y=-10.49, label="foo")

library(ggmap)
pngMAP_df <-  get_map(location = c(lon = 105.62, lat = -10.5), 
              source = "google",
              color = "bw",
              zoom = 12)
ggmap(pngMAP_df)