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

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

---

x这是你想要的吗

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

x谢谢，这正是我疲惫的大脑想要的
y<-30

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