在ggmap上叠加点

Question

所以我把林地里的树放到了一张马斯加岛的地图上，数据集的开头是这样的：

#ggmap!
library(ggmap)
library(mapproj)
map <- get_map(location = 'Madagascar', zoom = 4)
ggmap(map)
map <- get_map(location = 'Madagascar', zoom = 10)
geocode("kianjavato")
#lon       lat
#47.86682 -21.38024
k <- "kianjavato"
#qmap(k, zoom = 16)
#qmap(k, zoom = 16, source = "stamen", maptype = "toner")
myMap <- get_map(location=k, source="stamen", maptype="toner", crop=FALSE, zoom=16)
# having trouble zooming
ggmap(myMap)

下面是我用来制作地图和获取点数的代码：

ggplot(data=GPScorrect,aes(x=Lon,y=Lat))+geom_point()

但是当我用下面的代码把这两个放在一起的时候：

ggmap(myMap) + geom_point(data=GPScorrect,aes(x = 'Lon', y ='Lat'))

我收到这个错误消息：

Error: Discrete value supplied to continuous scale

请帮帮忙

Answer 1

在提出问题时，请确保提供一个工作示例，该示例将从前到后执行，直到遇到您所询问的错误。在这种情况下，您不需要为GPScorrect提供数据。

不引用你的美学映射。如果你重新使用下面的例子，你应该会得到你想要的东西：

library(ggmap)
library(mapproj)
myMap <- get_map(location = 'Madagascar', zoom = 6)

e1 <- geocode('Antananarivo')
e2 <- geocode('Toamasina')
e3 <- geocode('Antsirabe')
GPScorrect <- rbind(e1, e2, e3)

ggmap(myMap) + geom_point(data=GPScorrect,aes(x = lon, y =lat), color = 'firebrick', size = 3)