在R中使用ggmap打印多边形

我想在地图上画一个多边形。为此,我目前使用ggmap,但它不允许我这样做,总是给我一条错误消息:

Fehler:ggplot2二进制运算符的非数值参数

我的代码如下所示:

> library(rgdal)
> library(geojsonio)
> library(sp)
> library(maps)
> library(ggmap)
> library(maptools)

> data_file <- "/home/jan/Downloads/map.geojson"

> data_json <- geojson_read(data_file, what = "sp")

> plot(data_json, usePolypath = FALSE)

> mapImage <- ggmap(get_googlemap(c(lon = -118.243683, lat = 34.052235), scale = 1, 
+                                 zoom = 7), extent = "normal")
Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=34.052235,-118.243683&zoom=7&size=640x640&scale=1&maptype=terrain&sensor=false

> dat <- as.data.frame(data_json)

> names(data)[1:2] <- c("lon","lat")

> print(mapImage)+
+   geom_polygon(data = dat, aes(lon, lat), colour="red", fill="red")

Fehler in print(mapImage) + geom_polygon(data = dat, aes(lon, lat), colour = "red",  : 
  nicht-numerisches Argument für binären Operator

但如果我这样做了

> dat2 <- as.numeric(dat)

> print(mapImage)+
+   geom_polygon(data = dat2, aes(lon, lat), colour="red", fill="red")
Fehler: ggplot2 doesn't know how to deal with data of class numeric

我得到了错误

ggplot2不知道如何处理numeric类的数据

PS.Iá对R和编程非常陌生

非常感谢。