使用 ggmap 在同一张地图上绘制两个数据集

Question

我有两个数据集，即钻孔和地震。当我尝试在俄克拉荷马地图上分别绘制两者时，它工作正常。但我想生成一个包含两个数据的地图。 我用于映射的代码是：

Okla_sat_map <- get_map(location="Oklahoma", maptype="satellite", 
                        color="color", zoom=10)

ggmap(Okla_sat_map) + 
geom_point(aes(longitude, latitude, size=mag), colour="red", 
           data=earthquake.df, na.rm=T)

钻探数据：

Okla_sat_map <- get_map(location="Oklahoma", maptype="satellite", 
                        color="color", zoom=10)

ggmap(Okla_sat_map) + 
geom_point(aes(longitude, latitude, size=mag), colour="red", 
           data=drill.df, na.rm=T)

我的数据有点像这样 钻孔数据

    LATITUDE    LONGITUDE
1   36.85323    -98.38950
2   36.79886    -98.36245
3   36.66833    -98.26780
4   36.62468    -98.52917
5   36.53371    -98.10989
6   36.55837    -98.34455
7   36.55837    -98.34455
8   36.54467    -98.49612
9   36.51204    -98.16827
10  36.47222    -98.42875
11  36.61746    -98.51564

地震数据：

   longitude   latitude     mag
1   -97.4381    35.8336     3.0
2   -97.5731    36.1325     3.4
3   -99.0309    36.5110     3.1
4   -97.2297    35.8498     3.1
5   -97.5508    36.1254     3.0
6   -97.5460    36.2927     3.0
7   -97.8245    36.7062     3.0
8   -97.4250    35.8509     4.3
9   -97.4240    35.8219     3.1
10  -97.2674    36.2660     3.0
11  -97.0372    36.1966     3.1

请帮我将这两个数据绘制到一张地图上。

Answer 1

添加一个阶乘变量列，例如'type' 到两个数据集，设置钻孔类型为钻孔，地震类型为地震，然后通过rbind 合并数据集。 然后如上图，例如colour=type 以不同颜色显示两组。