为ggmap创建base_layer无法识别data.frame

我正在尝试使用 ggmap 在地图上绘制位置。因为我想使用分面，所以我必须提供base_layer论证ggmap。我也试图将其包装在一个函数中。

我有定义地图边界框的变量：

long.range <- c(-71.5, -67.5)
lat.range <- c(42.5, 44.5)

还有一个 data.frame 定义了我想要绘制的数据：

test.data <- data.frame("Name" = c("site1","site2","site3"),
                        "LAT" = c(43.25,43.4,44),
                        "LONG" = c(-71.25,-69.5,-68.5))

我有一个函数可以抓取地图并将 data.frame 应用为 base_layer：

CreateBaseMap <- function(lat.range = c(NA,NA),
                          long.range = c(NA,NA),
                          data.in = NULL){    
  # download the map tile
  base.map.in <- get_map(location = c(min(long.range),
                                      min(lat.range),
                                      max(long.range),
                                      max(lat.range)),
                         source = "osm")
  # create the map object
  if (is.null(data.in)){
    base.map <- ggmap(base.map.in)
  } else {    
    base.map <- ggmap(base.map.in,
                      base_layer = ggplot(aes_string(x = "LONG",
                                                     y = "LAT"),
                                          data = data.in))
  }
  base.map <- base.map +
    labs(x = "Longitude",
         y = "Latitude") + 
    coord_map()
  print(base.map)
  return(base.map)
}

然后我使用调用我的函数

base.map <- CreateBaseMap(lat.range = lat.range, long.range = long.range, data.in = test.data)

我收到这个错误。

Error in ggplot(aes_string(x = "LONG", y = "LAT"), data = data.in) : 
  object 'data.in' not found

到目前为止已排除故障

我知道如果我直接调用函数的内部，如下所示：

base.map <- ggmap(get_map(location = c(min(long.range),
                                       min(lat.range),
                                       max(long.range),
                                       max(lat.range)),
                          source = "osm"),
                  base_layer = ggplot(aes_string(x = "LONG",
                                                 y = "LAT"),
                                      data = test.data)) +
  geom_point()
print(base.map)

然后就可以正常工作了。

我也检查过使用print(data.in)data.in 在调用之前就存在base_layer，我可以看到它就在那里。

Question

看来调用的是base_layer不认识data.in.

1. 我该如何说服base_layer它真的想接受data.in?
2. 这是一个问题吗ggplot，还是我做错了什么？

解决方案似乎是使用%+% on the ggplot从创建的项目ggmap调用，而不是包含base_layer在原来的调用中ggmap。这绕过了 @baptiste 识别的代码问题。

要实现此解决方案，请复制以下代码来代替#create the map object在我原来的问题中：

# create the map object
  if (is.null(data.in)){
    base.map <- ggmap(base.map.in)
  } else {    
    base.map <- ggmap(base.map.in ) %+% data.in + aes(x = LONG,
                                                      y = LAT)
  }