如何从R中的x和y点计算多边形中的面积？

# 安装和加载所需的包
install.packages("sp")
install.packages("rgeos")
library(sp)
library(rgeos)

# 创建一个多边形对象
x <- c(0, 1, 1, 0, 0)
y <- c(0, 0, 1, 1, 0)
polygon <- Polygon(cbind(x, y))
polygons <- Polygons(list(polygon), ID = "polygon")
spatialPolygons <- SpatialPolygons(list(polygons))

# 计算多边形的面积
area <- gArea(spatialPolygons)

# 打印结果
print(area)