Question

我有一个22个点坐标的数据集（点代表鱼侧面视图照片上的地标）。

我想测量这些点之间的24个距离（24个不同的测量值）。例如点1和5之间的距离等等。

我想从中进行一个循环（总是会测量同一组24个距离-我有2000个这样的坐标列表，我必须测量这24个距离）。

我尝试了“ dist”功能（见下文），它为我提供了所有点之间的所有可能测量值。

getwd()
setwd("C:/Users/jakub/merania")
LCmeasure <- read.csv("LC_meranie2.csv", sep = ";", dec = ",", header = T)
LCmeasure
head(LCmeasure)
names(LCmeasure)

> LCmeasure
   point       x          y
1    1 1724.00000 1747.00000
2    2 1864.00000 1637.00000
3    3 1862.00000 1760.00000
4    4 2004.00000 1757.00000
5    5 2077.00000 1533.00000
6    6 2134.00000 1933.00000
7    7 2293.00000 1699.00000
8    8 2282.00000 1588.00000
9    9 2728.00000 1576.00000
10  10 2922.00000 1440.00000
11  11 3018.00000 1990.00000
12  12 3282.00000 1927.00000
13  13 3435.00000 1462.00000
14  14 3629.00000 1548.00000
15  15 3948.00000 1826.00000
16  16 3935.00000 1571.00000
17  17 4463.00000 1700.00000
18  18 4661.00000 1978.00000
19  19 4671.00000 1445.00000
20  20 4101.00000 1699.00000
21  21 2203.00000 2806.00000
22  22 4772.00000 2788.00000

df= data.frame(LCmeasure)
df
dflibrary(tidyverse)
dist(df[,-1])

Points <- data.frame(p1=c(1,1,1,3,4,5,1,1,1,7,10,10,11,12,12,14,15,11,13,7,20,20,20,1),p2=c(8,2,3,4,8,6,11,10,13,10,13,11,13,13,20,20,16,12,14,9,18,17,19,20))
Points

Dists <- Points %>% rowwise() %>% mutate(dist=dist(filter(LCmeasure, Point %in% c(p1,p2))))
Dists

现在，我需要在R中指定仅对那些特定的24个距离进行测量。例如在点1和5之间，然后在点2和10之间，依此类推。

并从中进行循环（始终是同一组测量的24个距离）。

Answer 1

这是我为您解决的问题：

使用所需的成对点生成新的数据框，然后使用dplyr生成基于这些点的距离：

library(tidyverse)
Points <- data.frame(p1=c(1,2,4,5,6),p2=c(5,10,14,15,17))

Dists <- Points %>% rowwise() %>% mutate(dist=dist(filter(LCMeasure, point %in% c(p1,p2))))

> Dists
>     p1    p2  dist
>  <dbl> <dbl> <dbl>
> 1     1     5  413.
> 2     2    10 1076.
> 3     4    14 1638.
> 4     5    15 1894.
> 5     6    17 2341.

如何测量R中某些（像素）坐标对之间的距离？

1 个答案: