从极坐标向量中找到最接近的值

Question

我假设我的问题有一个非常简单的解决方案，其中我有一个表示极角的向量（即 1 到 360 度）。

x<-seq(300,340)

我需要找到最接近y的x的值，

y<-30

在这个例子中，我需要从 x 返回 340 我知道 DescTools 包中的 Closest 函数会从 x 返回 300。我敢肯定，答案可能很简单，但它让我难以捉摸。

欢迎提出意见

Answer 1

这是你想要的吗？

x <- 300:340
y <- 30

polardist <- sapply(x,function(x){min((y-x)%%360,(x-y)%%360)})
ans <- x[polardist==min(polardist)] #Will have length>1 if there are ties