r - 两个轴承之间的差异（角度）

Question

使用geosphere::bearing我可以计算两条线的方位角，但是可以计算两条方位角之间的角度吗？

当然，您可以尝试减去或总结方位，但在一个为负而另一个为正的特定情况下，这是行不通的。

例如，如果ber1= - 175 和ber2= 175 之间的角度应该是 10。

有什么建议么 ？

标签： rbearinggeosphere

Answer 1

我不确定现成的软件包，但如果您对解决方案感兴趣，那么您可以尝试

angle_diff <- function(theta1, theta2){
  theta <- abs(theta1 - theta2) %% 360 
  return(ifelse(theta > 180, 360 - theta, theta))
  }

这给出了您的示例轴承 -175 和 175 之间的角度为

angle_diff(-175, 175)
#[1] 10