以下のように ggsave 関数を使用して画像を保存しました
しかし、私はこのような出力が欲しい
al1 <- get_map(location = c(lon = -86.304474, lat = 32.362563), zoom = 11, maptype = 'terrain')
lon<--86.304474
lat<-32.362563
df<-data.frame(lon,lat)
a+ggplot(df)
ggmap(al1)+geom_point(data=df,aes(x=lon,y=lat),size=2)
x 軸と y 軸の値を削除しようとしましたが、問題はパネルの画像の背景が白いことですが、プロット画像のみが必要です。