R 使用sp:进行意外质心计算：Polygon@labpt

我最近在为一个绘图项目计算质心，我注意到一些可疑的位置。例如，日本的

labpt

输出远远超出其纬度范围。我的第一个问题是这里发生了什么？我的第二个问题是，是否有一个很好的质心计算方法可以正确地得到质心

library(sp)
library(maps)

japan <- map_data("world",region="japan")

> max(japan$lat)
[1] 45.50952
> min(japan$lat)
[1] 24.26606

max(japan$long)
[1] 145.833
min(japan$long)
[1] 123.6789

# note 63 is calculated Latitude for Japan
sp::Polygon(japan[c("long","lat")])@labpt
[1] 130.32951  63.62904

库（sp）
图书馆（地图）
日本最大值（日本元拉特）
[1] 45.50952
>min（日本$lat）
[1] 24.26606
最大值（日本元长）
[1] 145.833
min（日本元长）
[1] 123.6789
#注63为日本的计算纬度
多边形（日本[c（“长”、“纬度”）]）@labpt
[1] 130.32951  63.62904

通过谷歌搜索，我得出以下结论：

library(rgeos)

rgeos::gCentroid(SpatialPoints(japan[c('long','lat')]))

SpatialPoints:
     x        y
1 135.2924 35.47393