带子集和坐标的地图图

Question

我想获得类似于以下内容的地图：

我有一个旅行数据集，带有接送和下降坐标，一个虚拟变量用于酒店目的地，另一个用于住宅目的地。我想绘制一张“谷歌”地图，其中红点表示酒店目的地的位置和住宅目的地的蓝点。

head(X$pickup_longitude)
[1] -73.78381 -73.77659 -73.77670 -73.78991 -73.78944 -73.79015

head(X$pickup_latitude)
[1] 40.64866 40.64492 40.64538 40.64677 40.64737 40.64415

map <- get_map(location = 'New York City', zoom = 11)
mapPoints <- ggmap(map) + 
geom_point(data=subset(X,Hotel!=0),aes(x=X$dropoff_longitude,y=X$dropoff_latitude, color = "red"))) +
geom_point(data=subset(X,Residential!=0),aes(x=X$dropoff_longitude, y=X$dropoff_latitude, color = "blue")))

导致

Error: Aesthetics must be either length 1 or the same as the data (152): x, y, colour

Answer 1

您可能在geom_point语句中使用了太多括号。

map <- get_map(location="New York City", zoom = 11)

mapPoints <- ggmap(map)+ 
  geom_point(data=X, aes(x=longitude, y=latitude, color = "red")) +
  geom_point(data=Y, aes(x=longitude, y=latitude, color = "blue"))