將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的關系的更多詳細信息（可能提供坐標？）