從極坐標向量中找到最接近的值

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