使用qqmap基于现有地图添加等高线标签(direct.labels)

使用qqmap基于现有地图添加等高线标签(direct.labels),r,ggplot2,ggmap,R,Ggplot2,Ggmap,我试图在qqmap生成的地图上覆盖几层,第一层是高程等高线,第二层是我想添加的几个点,最后我想添加等高线编号的直接标签,而不是填充颜色级别 我的代码是: p0<-ggmap(ger.map) v <-p0+stat_contour(data=df1, aes(x=Long, y=Lati, z = elev,colour=..level..), inherit.aes=FALSE)+ geom_point(data=po1, inherit.aes=F

我试图在qqmap生成的地图上覆盖几层,第一层是高程等高线,第二层是我想添加的几个点,最后我想添加等高线编号的直接标签,而不是填充颜色级别

我的代码是:

   p0<-ggmap(ger.map)
   v <-p0+stat_contour(data=df1, aes(x=Long, y=Lati, z = elev,colour=..level..),
       inherit.aes=FALSE)+
   geom_point(data=po1, inherit.aes=FALSE,aes(x=lo, y=la),color=col,size=4,)

   direct.label(v)
但是当我在头部添加
ggmap(ger.map)
时,它总是给我同样的错误

        v <-ggplot(df1, aes(Long, Lati, z = elev))+
        stat_contour(aes(colour=..level..),size=0.9)+
        geom_point(data=po1, aes(x=lo, y=la),   color=col,inherit.aes=FALSE,size=4)

        direct.label(v)