折线的重叠

Overlap of polylines

r
geo
sf

我正在尝试找出两条线之间的重叠百分比。鉴于下面的示例，我相信 stick 2 与 stick 1 重叠 100%。棍子 1 与棍子 2 重叠约 45%。知道如何计算吗？

structure(list(stick_1 = "a", surf_longitude = 845664.186685473, 
    surf_latitude = 309868.295877194, bh_longitude = 847024.324665602, 
    bh_latitude = 305762.239300677, stick_2 = "b", 
    Offset_surf_longitude = 846279.271745815, Offset_surf_latitude = 305380.768014799, 
    Offset_bh_longitude = 843039.956467968, Offset_bh_latitude = 315087.243453924), row.names = 1L, class = "data.frame")

谢谢！

是我多虑了。解决方案见附图。