Добавление ggplot в ggmap

Question

У меня есть следующий график:

dat<-data.frame(name=c("a","b","c"), x=1:3, y=1:3)
ggplot(dat, aes(x=x, y=y))+
geom_point(aes(shape=paste(1:3,": point",name)))+
geom_text(aes(x=x,y=y+0.07), label=1:3)+
scale_shape_manual(values=rep(1,3))+
labs(shape="locations")

Мне нужно добавить точки в ggmap, однако, когда я избавляюсь от ggplot и начинаю с: geom_point(dat, aes(x=x, y=y,shape=paste(1:3,": point",name)))+

Я получаю сообщение об ошибке "Ошибка: дискретное значение передается в непрерывном масштабе"

Answer 1

library(ggmap)
library(ggplot2)


lis <- get_map("Lisbon,Portugal", zoom=12)

p <- ggmap(lis)

d <- data.frame(lon=c(-9.20, -9.20, -9.12),
                lat=c(38.65, 38.80, 38.75),
                loc = c('p1', 'p2', 'p3'))

p + geom_point(data=d, aes(x=lon, y=lat),
               colour = 'red', size = 8, alpha = .6) +
  geom_text(aes(label=loc), data=d, hjust=-1,
            fontface = 'bold')

Не уверен, что это близко к вашим потребностям. Вы должны предоставить дополнительную информацию о том, как ваши данные относятся к ggmap (возможно, предоставляя координаты?)