我试图在 R 中使用 distHavrsine 函数,在循环内计算几百行的某些纬度和经度坐标之间的距离。在我的循环中,我有这个代码:
if ((distHaversine(c(file[i,"long"], file[i,"lat"]),
c(file[j,"long"], file[j,"lat"]))) < 50 )
Run Code Online (Sandbox Code Playgroud)
之后,如果距离小于 50 米,我希望它记录这些行,以及它所引用的纬度和经度坐标的位置:
0.492399367 30.42530045
Run Code Online (Sandbox Code Playgroud)
和
0.496899361 30.42497045
Run Code Online (Sandbox Code Playgroud)
但我收到这个错误
.pointsToMatrix(p1) 中的错误:纬度 > 90
我正在尝试绘制散点图,然后覆盖一些多边形并在ggplot 2中填充具有特定颜色的多边形,并且我在填充时获得正确的颜色有一些问题.我可以绘制散点图和多边形,并将散点图和多边形的边框着色为相同,但是当我尝试填充多边形时,它们总是出现不同的颜色或给我错误.
我的数据看起来像这样,
id lat long group
Ak 0.5109300 30.43713 1
Ak 0.5109300 30.43713 2
An 0.4709994 30.43434 1
An 0.4860330 30.44015 2
At 0.4956100 30.44610 2
At 0.4938700 30.44640 2
At 0.4837816 30.44658 3
Be 0.4932194 30.43455 3
Bo 0.4922330 30.44582 1
Bo 0.4922330 30.44582 3
cb 0.4929994 30.44486 5
de 0.4926486 30.45684 5
de 0.5000001 30.45331 5
eg 0.4854526 30.46824 6
eh 0.4765586 30.46987 6
gh 0.4822123 30.54835 7
Run Code Online (Sandbox Code Playgroud)
我有两个颜色列表,一个用于散点图中的点,一个用于多边形的边框和填充,原因有两个列表,是因为我按数据列网络对点进行分组,并希望在所有点周围绘制多边形,级别为1-5(但不是6和7).所以我创建了以下颜色列表
col_list<-c("#FF222C", "#1DFBFF", "#FDFF24", "#2CFF18", "#FF38F4", "#C3C4C9", "#000000")
col_list5<-c("#FF222C", …Run Code Online (Sandbox Code Playgroud)