使用来自不同数据集的 geom_point 位置向 ggmap 添加图例答案

【问题标题】：adding legend to ggmap with geom_point positions from different datasets使用来自不同数据集的 geom_point 位置向 ggmap 添加图例
【发布时间】：2018-10-05 15:17:59
【问题描述】：

我一直在使用来自不同数据集 (MR + MRTag) 的 geom_point 绘制两组位置数据。

MR
detect_date        Latitude      Longitude    species
12/04/2016 11:08    -6.6524      71.3475      Manta Ray
12/04/2016 11:09    -6.6524      71.3475      Manta Ray
12/04/2016 11:10    -6.6524      71.3475      Manta Ray
16/04/2016 21:27    -6.6524      71.3475      Manta Ray

MRTag
species    taggingdate   deploy_lat  deploy_lon
Manta Ray   3/24/2016   -5.4191      71.83855
Manta Ray   02/05/2013  -5.2568      71.65768333
Manta Ray   02/07/2013  -5.33448     71.9812
Manta Ray   02/08/2013  -5.3046      71.94231667

然后我用下面的代码制作了一张底图

library(ggmap)

MR_bbox <- make_bbox(lon = MR$Longitude, lat = MR$Latitude, f=1)
MR_map <- get_map(location = MR_bbox, source = "google", maptype = "satellite")

然后将我的位置数据从 Mr + MRTag 绘制到地图上

  MR_plot <-
    ggmap(MR_map) + 
     geom_point(data = MR, mapping = aes(x = Longitude, y = Latitude), 
        shape = 1, color = "white") +
     geom_point(data = MRTag, mapping = aes(x = deploy_lon, y = deploy_lat),
       shape = 25, fill = "#00FF00", color = "#00FF00") +
     xlab("Longitude") + 
     ylab("Latitude")

这给了我这个情节

我想在地图上添加两个形状的图例，但我不确定最好的方法，而且方法到目前为止还没有奏效

【问题讨论】：

欢迎来到 SO。请提供一个可重现的例子。这将为想要帮助您的人提供一些可以使用和测试的东西。你可以阅读它here。
希望对您有所帮助

标签： r legend ggmap

【解决方案1】：

解决方案其实很简单：只需将相关的审美参数移入aes()。

MR_plot <- ggmap(MR_map) + 
    geom_point(data = MR, aes(x = Longitude, y = Latitude,
                              color = 'detect', shape = 'detect', fill = 'detect')) +
    geom_point(data = MRTag, aes(x = deploy_lon, y = deploy_lat,
                                 color = 'tag', shape = 'tag', fill = 'tag')) +
    xlab("Longitude") + 
    ylab("Latitude") +
    scale_color_manual(name = 'legend', values = c(detect = 'white', tag = '#00FF00')) +
    scale_fill_manual(name = 'legend', values = c(detect = NA, tag = '#00FF00')) +
    scale_shape_manual(name = 'legend', values = c(detect = 1, tag = 25))

这实际上有点令人困惑：如果您在aes() 之外使用color=，那么您设置这些点的实际颜色并且没有图例，因为这纯粹是一种审美选择。

如果您在aes() 中使用color=（或fill= 或shape=），那么您所做的是定义另一个控制点颜色的变量。例如，如果您想根据物种为这些点着色，您的aes() 将是：aes(x = Longitude, y = Latitude, color = species)。这是同一件事：除了传递一个字符串，您将 geom_point 中所有点的颜色变量设置为单个值。

然后您必须使用scale_color_* 函数（以及相应的填充和形状函数）将这些颜色变量设置为您想要的特定颜色。默认情况下，aes() 中定义的每个比例都会有自己的图例。但是如果你给图例命名并赋予它们相同的名称，那么它们将合二为一。

【讨论】：