SpatialLinesDataFrameのセグメント数

Question

readOGRの空間ラインデータフレームをインポートした後、各ラインのラインセグメント（ノード）の数を決定したいと思います。長さを単にベクトルとしてエクスポートする実用的な方法は見つけられません。

routes@lines私はラインスロットに私をつかまえますが、次にどのように1つの長さを得るのですか？

たとえば、次のサンプルデータでは、最初の行は93個のセグメントで構成され、2番目の行は170個のセグメント、3番目の91個のセグメントなどで構成されています。最後に

、私はSpatialLinesDataFrame

中の線分の長さを表す1657個の数字のベクトルが欲しい迅速な解決策はありますか？出力構造に基づいて

> class(routes) 
[1] "SpatialLinesDataFrame" 
attr(,"package") 
[1] "sp" 
> str(routes) 
Formal class 'SpatialLinesDataFrame' [package "sp"] with 4 slots 
    ..@ data  :'data.frame': 1657 obs. of 3 variables: 
    .. ..$ start_time: Factor w/ 1631 levels "2016/09/09 00:00:02",..: 1 2 3 4 5 6 7 8 9 10 ... 
    .. ..$ duration : int [1:1657] 786 1248 738 786 651 660 616 889 408 475 ... 
    .. ..$ difftime :Class 'difftime' atomic [1:1657] 2 4 19 67 92 119 170 202 206 213 ... 
    .. .. .. ..- attr(*, "units")= chr "secs" 
    ..@ lines  :List of 1657 
    .. ..$ :Formal class 'Lines' [package "sp"] with 2 slots 
    .. .. .. ..@ Lines:List of 1 
    .. .. .. .. ..$ :Formal class 'Line' [package "sp"] with 1 slot 
    .. .. .. .. .. .. ..@ coords: num [1:93, 1:2] -79.9 -79.9 -79.9 -79.9 -79.9 ... 
    .. .. .. ..@ ID : chr "0" 
    .. ..$ :Formal class 'Lines' [package "sp"] with 2 slots 
    .. .. .. ..@ Lines:List of 1 
    .. .. .. .. ..$ :Formal class 'Line' [package "sp"] with 1 slot 
    .. .. .. .. .. .. ..@ coords: num [1:170, 1:2] -79.9 -79.9 -79.9 -79.9 -79.9 ... 
    .. .. .. ..@ ID : chr "1" 
    .. ..$ :Formal class 'Lines' [package "sp"] with 2 slots 
    .. .. .. ..@ Lines:List of 1 
    .. .. .. .. ..$ :Formal class 'Line' [package "sp"] with 1 slot 
    .. .. .. .. .. .. ..@ coords: num [1:91, 1:2] -79.9 -79.9 -79.9 -79.9 -79.9 ... 
    .. .. .. ..@ ID : chr "2" 

Answer 1

、そのけど

sapply(routes@lines, function (x) dim(x@Lines[[1]]@coords)[1])