R 多段线重叠

我试图找出两条线之间重叠的百分比。给出下面的例子，我相信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")

---

谢谢

我想得太多了。有关解决方案，请参见附图。

请提供一个可复制的示例。很抱歉，更新了示例。