r - スプレッドラベルの使い方

Question

マップ上に互いに非常に近いポイントがあり、それらが重なっているためにラベルを分離したいと考えています。spread.labels コマンドを使用したいのですが、次の行に沿ってエラーが発生します。

Error in text.default(newx, y + offsets, labels[sort.index], srt = srt,  : plot.new has not been called yet  

  mp = get_map(location = "Canada", maptype="satellite", color="color")
p = ggmap(mp) +
  geom_point(data=df1, aes(x=decLon, y = decLat), color="red", size=2.6) +
  spread.labels(x=df1$decLon, y=df1$decLat, label=df1$Site, offsets=0.5)
p