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

Question

使用geosphere::bearing我可以计算两条轴的轴承，但是可以计算两个轴承之间的角度吗？

当然，您可以尝试减去或总结轴承，但在特定情况下，一个是负面而另一个是正面，这不起作用。

例如，如果ber1 = - 175且ber2 = 175，则两者之间的角度应为10.

有什么建议吗？

Answer 1

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

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

给出了示例轴承-175＆amp;的角度。 175作为

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