相关疑难解决方法(0)

我试图通过沿线的成对点分割一条大线形状。基于以前主要由@mbcaradima在这里、这里、这里和这里提出的问题，我整理了一些适用于单点但不适用于多点的代码。

请参阅下面的可重现示例：

图书馆和数据

# libraries
library(tidyverse)
library(sf)
library(rgdal)
library(sp)

river <- structure(list(FWK_Code = structure(1L, .Label = "1_F461", class = "factor"), 
                    FWK_Name = structure(1L, .Label = "Glonn von Odelzhausen bis Mündung in die Amper", class = "factor"), 
                    Achse_SWK = structure(NA_integer_, .Label = character(0), class = "factor"), 
                    GEWKZ_11 = structure(1L, .Label = "1648", class = "factor"), 
                    NAM11_SEG = structure(1L, .Label = "Glonn", class = "factor"), 
                    GWO11_SEG = structure(1L, .Label = "1330", class …