R - Как добавить атрибуты SpatialLine к своей конечной точке?

Question

Это SpatialLine и Spatialpoint в конце. Атрибут строки (например, длина) должен быть добавлен как информация к точке. Как это сделать?

library(sp) 

l1 = cbind(c(1,2,3,4),c(3,2,2,4)) 
rownames(l1) = letters[1:4] 
Sl1 = Line(l1) 
Ll1 = Lines(list(Sl1), ID="a") 
Sl = SpatialLines(list(Ll1)) 

Sl_length<-SpatialLinesLengths(Sl,longlat=FALSE) 

pts = cbind(4,4) 
dimnames(pts)[[1]] = letters[1] 
df = data.frame(a = 1) 
row.names(df) = letters[1] 
SpatialPointsDataFrame(pts, df) 

Answer 1

Учитывая

library(raster) 
Sl = spLines(cbind(c(1,2,3,4),c(3,2,2,4))) 
pts <- SpatialPointsDataFrame(cbind(4,4), data.frame(a = 1)) 

Вы можете сделать

pts$Sl_length <- SpatialLinesLengths(Sl, longlat=FALSE)